|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Значения ProgressBar диаграммой
Допустим есть три прогрессбара. Они работают так:
Код:
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 . Отрисовать только линию без осей. Гуглил - не помогло Последний раз редактировалось lmikle, 04.12.2013 в 06:55. |
#2
|
|||
|
|||
Ну добавь в каждый обработчик событий добавление новой точки в серию TChart. Что-то типа
Код:
Chart1.Series[0].Add(ProgressBar1.Position); |