![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Добавление серий в Chart [D5]
vitnt2000 © (2002-05-08 07:46:00)Подскажите пожалуйста
Как в Сhart программно добавить серии и указать их параметры?, пробовал:
DBChart1.SeriesList.Add(new);
вылетает по ошибке
Upendra (2002-05-09 10:49:00) [1]Кстати, небольшое замечание...
Если ParentChart присваивать после заполнения серии точками, то чарт рисуется значительно быстрее
Reals (2002-05-08 11:25:00) [2]забыл доавить еще обявление переменных:
var
Series1 : TLineSeries;
Series2 : TLineSeries;
P.S. С остальными переменными думаю понятно.
С Уважением...
Reals (2002-05-08 11:23:00) [3]Держи вот код, это программное создание компонента TChart:
Может разберешься...
varChart1 : TChart;
Chart1 := TChart.Create(nil);
Series1:=TLineSeries.Create(Chart1);
Series1.ParentChart:=Chart1;
Series1.Title:="";
Series2:=TLineSeries.Create(Chart1);
Series2.ParentChart:=Chart1;
Series2.Title:="";
with Chart1 do begin
for i:=1 to 2 do begin
X := 10*i;
Y := 50*i;
Series1.AddXY(IntToFloat(X), IntToFloat(Y));
end;
for i:=1 to 2 do begin
X := 20*i;
Y := 70*i;
Series2.AddXY(IntToFloat(X),IntToFloat(Y));
end;
end;
Title.Text.Text:="";
LeftAxis.Title.Caption:="";
LeftAxis.AutomaticMinimum:=False;
LeftAxis.AutomaticMaximum:=True;
BottomAxis.Title.Caption:="";
BottomAxis.AutomaticMinimum:=False;
BottomAxis.AutomaticMaximum:=True;
View3D := False;
Parent := Form;
Width := 250;
Height := 200;
end;
Chart1.Free;
С Уважением...
vitnt2000 (2002-05-08 08:38:00) [4]А как в цикле добавит несколько серий?
Series1, Series2, Series3 ....
forester (2002-05-08 07:56:00) [5]Попробуй следующим образом:
DBChart1.RemoveAllSeries;
DBChart1.AddSeries(Series1);
// первая строка не обязательна, обычно используется когда производится попеременное подключение различных серий