Текущий архив: 2006.09.10;
Скачать: CL | DM;

Вниз

Нужно динамически создать/удалить несколько Series.   Найти похожие ветки 

← →
Mikka Hakkinnen   (2006-08-16 14:56) [0]

Нашёл в форуме код, он работает, но неясно, по каким именам потом обращаться к созданным сериям? Chart1.Series[i] ?

procedure CreateNewSeries(Sender: TObject);
var
 Series  : TLineSeries;
 Color   : TColorDialog;
 i       : integer;
begin
 Series := TLineSeries.Create(Chart1);
 Color := TColorDialog.Create(nil);
 try
   if Color.Execute then begin
     for i := 0 to 100 do begin
       Series.AddX(Random(100));
       Series.AddY(Random(100));
     end;
   end;
   Series.SeriesColor := Color.Color;
 finally
   Color.Free;
 end;
 Chart1.AddSeries(Series);
 Series.Active := True;
 Chart1.Repaint;
end;


---

← →
Mikka Hakkinnen   (2006-08-16 15:23) [1]

Всем спасибо! Вопрос снимаю - нашёл ответ на Исходниках.ру .

---

← →
Mikka Hakkinnen   (2006-08-17 08:13) [2]

Кажется, погорячился.
Серии создаются, но обращаться к ним сложно, да и удалить не знаю как.
Попробую использовать Chart1.SeriesList[i]:=Series;

---

← →
MBo ©   (2006-08-17 08:34) [3]

Не очень ясно, в чем именно проблема...

---

← →
Mikka Hakkinnen   (2006-08-17 12:09) [4]

Обошёлся без SeriesList, проблема решена
(http://forum.sources.ru/index.php?showtopic=149625&st=0&#entry1223582).
В чём проблема была - динамически создавать и удалять серии для построения меняюшегося числа графиков

---

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

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c