Значения ProgressBar диаграммой

@saikle · Регистрация: 16.12.2009

Author24 — интернет-сервис помощи студентам

Допустим есть три прогрессбара. Они работают так:

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 . Отрисовать только линию без осей. Гуглил - не помогло

@ZfoxAK · 04.12.2013, 06:24

Так?

@saikle · 04.12.2013, 10:29 **[ТС]**

ZfoxAK, выглядеть должно примерно так. Как это отобразить на форме? Чтобы был живой график и с течением времени сам менялся?
Смысл такой: значения прогрессбара сами постепенно уменьшаются. Пользователь нажатием на кнопку их увеличивает. Эти значения и отображаются на графике. График должен быть "живым"

@ZfoxAK · 04.12.2013, 10:45

Сообщение от saikle

Отрисовать только линию без осей.

Кликаешь на компоненте, в окне редактора закладка Axic - Show Axic

Для добавление значений

Delphi

1	Chart1.Series[0].AddXY(x,y,'',clGreen);

Для удаления

Delphi

1	Chart1.Series[0].Delete(index:integer);

@saikle · 04.12.2013, 11:30 **[ТС]**

Написал.

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
var y:integer;
begin
if Timer1.Enabled=false then ProgressBar1.Position:= ProgressBar1.Position -1;
Chart1.Series[0].AddXY(ProgressBar1.Position,y+1,'',clGreen);
end;

Почему то сам график не отображается

Хотя цифры слева бегут

@ZfoxAK · 04.12.2013, 13:18

Delphi

1	sleep(100);

@saikle 12 / 12 / 0 Регистрация: 16.12.2009 Сообщений: 113
		1
	Значения ProgressBar диаграммой 04.12.2013, 01:11. Показов 633. Ответов 5 Метки нет (Все метки) Допустим есть три прогрессбара. Они работают так: 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 . Отрисовать только линию без осей. Гуглил - не помогло 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	04.12.2013, 06:24	2
	Так? 0

@saikle 12 / 12 / 0 Регистрация: 16.12.2009 Сообщений: 113
	04.12.2013, 10:29 [ТС]	3
	ZfoxAK, выглядеть должно примерно так. Как это отобразить на форме? Чтобы был живой график и с течением времени сам менялся? Смысл такой: значения прогрессбара сами постепенно уменьшаются. Пользователь нажатием на кнопку их увеличивает. Эти значения и отображаются на графике. График должен быть "живым" 0

	04.12.2013, 13:18