Текущий архив: 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.053 c
