Допустим есть три прогрессбара. Они работают так:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Timer1.Enabled=false then ProgressBar1.Position:= ProgressBar1.Position -1;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ProgressBar1.Position:= ProgressBar1.Position +20;
end;
Как мне графический, то есть диаграммой отобразить его. Либо в картинку(тогда через какое то время изображение периодический бы очищалось и диаграмма рисовалась заново) или в TChart . Отрисовать только линию без осей. Гуглил - не помогло