VPF::Проблема с TChart - Форум программистов

Nick64

Дата 23.10.2006, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 5.10.2006

Репутация: нет
Всего: нет

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

Alexeis

Дата 23.10.2006, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(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;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »