VPF::TChart. Работа с осями Run-Time. Axis - Форум программистов

AHgpeu

Дата 21.1.2008, 10:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Не получается с Axis Run-Time
Нужно убрать все оси стандартные, добавить мои и "привязать" к ним Серии

Код


Chart1.LeftAxis.Axis.Visible := FALSE;//НЕ срабатывает. Оси все равно видимы
  //...С остальными осями стандартными делаю тоже самое

  AxisY1 := TChartAxis.Create(Chart1);//Ось Слева
  AxisY2 := TChartAxis.Create(Chart1);//Ось справа
  AxisX := TChartAxis.Create(Chart1);//Ось снизу
  //...Настройки позиции
  AxisX.Horizontal := TRUE;
  AxisX.DateTimeFormat := 'h:nn';//Надо чтобы был формат ВРЕМЕНИ   <<== НЕ СРАБАТЫВАЕТ
  

  Series1.VertAxis := TVertAxis(AxisY1);//"подвязываю серию1 к оси1"
  Series2.VertAxis := TVertAxis(AxisY2);//---""----
  Series1.HorizAxis := THorizAxis(AxisX);//                        <<== НЕ СРАБАТЫВАЕТ
  Series2.HorizAxis := THorizAxis(AxisX);
  //при выполнении кода у Серий остаются стандартные оси Left и Bottom

  for i := 0 to 25 do
  begin
    Series1.AddY(random(25),'', clRed);
    Series2.AddY(random(25),'', clBlue);
  end;

Из всего кода, выполняется только создание новых осей и размещение их

Что делаю не так?*

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

ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ

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