Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Проблема с TChart

Автор: Nick64 23.10.2006, 12:07

Привет ALL!
Суть проблемы следующая, как заставить бары в TChart изменять свою высоту в зависимости от данных? Причем по оси X баров должно быть 12. Как-то можно стереть один бар или уменьшить его высоту?
Заранее спасибо.

Автор: Alexeis 23.10.2006, 12:25

Цитата(Nick64 @ 23.10.2006, 12:07

)

Суть проблемы следующая, как заставить бары в TChart изменять свою высоту в зависимости от данных?

А как они еще могут менятся?

Добавлено @ 12:36

Код


//добавление
procedure TForm1.btn1Click(Sender: TObject);
begin
 Series1.AddY(12);
 Series1.AddY(10);
 Series1.AddY(2);
 Series1.AddY(5);
 Series1.AddY(15);
 Series1.AddY(7);
 Series1.AddY(4);
 Series1.AddY(11);
 Series1.AddY(8);
 Series1.AddY(4);
 Series1.AddY(3);
 Series1.AddY(1);
end;
//Изменение
procedure TForm1.btn2Click(Sender: TObject);
var
  i : integer;
begin
 for i := 0 to Series1.Count - 1
 do
   Series1.YValue[i] := i;
end;
//удаление
procedure TForm1.btn3Click(Sender: TObject);
begin
  Series1.Delete(3);
end;