Скачать: CL | DM;

Новая серия в TChart   Найти похожие ветки 

← →
dik59   (2011-01-22 23:48) [0]

Уважаемые мастера, никак не могу заставить работать TChart.
(исходного кода нет, сам разобраться не могу)
Создаю программно несколько серий данных по образцу, созданному в инспекторе, но почему-то новые серии не видны. Вот код:

procedure TForm1.AddData;
var i:integer;
   s,t:TChartSeries;
begin
 t := ch.Series[0];
 if t.Count > 0 then begin
   s  := TChartSeries.Create(Self);
   s.Assign(t); // тут я пытаюсь сделать вид серии подобным ch.Series[0];
                   // не знаю, правильно ли это
   s.Clear;
   s.Title := "Новая серия";
   s := ch.AddSeries(s);
 end else
   s := t;
 for i := 1 to 360 do begin
   if s = t then  // заполнение первой серии
     s.AddXY(i*1.0,sin(i*pi/2.0/180.0))
   else            // заполнение последующих серий
     s.AddXY(i*1.0,sin(i*pi/180.0));
 end;
end;

Первый вызов заполняет существующую серию, я её вижу, а вот последующие вызовы данные в новую серию пишут, изменяется масштаб первого графика, но второго графика не видно.
Вопрос: что нужно сделать, чтобы новые графики появлялись?

---

← →
dik59   (2011-01-23 09:03) [1]

Сам разобрался,
вместо s  := TChartSeries.Create(Self);
нужно  s  := TLineSeries.Create(Self);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c