Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Вниз

Добавление серий в Chart   Найти похожие ветки 

← →
vitnt2000   (2002-05-08 07:46) [0]

Подскажите пожалуйста
Как в Сhart программно добавить серии и указать их параметры?, пробовал:
DBChart1.SeriesList.Add(new);
вылетает по ошибке

---

← →
forester   (2002-05-08 07:56) [1]

Попробуй следующим образом:

DBChart1.RemoveAllSeries;
DBChart1.AddSeries(Series1);

// первая строка не обязательна, обычно используется когда производится попеременное подключение различных серий

---

← →
vitnt2000   (2002-05-08 08:38) [2]

А как в цикле добавит несколько серий?
Series1, Series2, Series3 ....

---

← →
Reals   (2002-05-08 11:23) [3]

Держи вот код, это программное создание компонента TChart:
Может разберешься...

var Chart1 : 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;

С Уважением...

---

← →
Reals   (2002-05-08 11:25) [4]

забыл доавить еще обявление переменных:
var
Series1 : TLineSeries;
Series2 : TLineSeries;

P.S. С остальными переменными думаю понятно.
С Уважением...

---

← →
Upendra   (2002-05-09 10:49) [5]

Кстати, небольшое замечание...
Если ParentChart присваивать после заполнения серии точками, то чарт рисуется значительно быстрее

---

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

Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Наверх

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