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

Вниз

Добавление TChartSeries во время выполнения программы   Найти похожие ветки 

← →
Artem K.   (2002-01-12 13:51) [0]

Подскажите пожалуйста как добавлять новые Series"ы к TChart"у во время выполнения программы, и сколько их можно добавить.
Я делал так:
...
var
ns:TChartSeries;
begin
ns:=tchartseries.Create(self);
ns.AddXY(10,10);
ns.AddXY(20,20);
ns.AddXY(10,30);
сhart1.AddSeries(ns);
end;
...
, но графика не видно.

---

← →
Mbo   (2002-01-13 08:28) [1]

Удалено модератором

---

← →
ikra   (2002-01-13 17:03) [2]

И чарту (если чарт тоже создается в runtime)и сериесу необходимо указать родителя, только после этого график виден:

type
TForm1 = class(TForm)
Panel1: TPanel;
{...}
public
Chart1 : TChart;
Series1 : TFastLineSeries;
end;
//-------------------------------------
{по кнопке Button1 создаем чарт и натягиваем его на Panel1, которая уже создана в Design-time}
procedure TForm1.Button1Click(Sender: TObject);
begin
Chart1:=TChart.Create(Panel1);
With Chart1 do
begin
Align:=alClient;
View3D:=False;
Parent:=Panel1;
end;
end;
//-------------------------------------
{по кнопке Button2 создаем сериес и натягиваем его на Chart1}
procedure TForm1.Button2Click(Sender: TObject);
var MaxSer : integer;
i,j : integer;
tmp : double;
PointCount : Integer;
begin
if Chart1=Nil then
Begin
ShowMessage("Необходимо сначала создать Chart");
Exit;
End;
Series1:=TChartSeries.Create(Self);
Series1.ParentChart:=Chart1;
Series1:=TChartSeries.Create(Self);
Series1.ParentChart:=Chart1;
Series1:=TChartSeries.Create(Self);
Series1.ParentChart:=Chart1;

Randomize;
MaxSer:=3;
PointCount:=200;
for j:=0 to MaxSer-1 do
Begin
tmp:=Random(1000);
TChartSeries(Chart1[j]).Clear;
// TChartSeries(Chart1[j]).SeriesColor:=clRed;

for i:=1 to PointCount do
begin
tmp:=tmp+Random(1000)-500;
TChartSeries(Chart1[j]).AddXY(i,tmp,"", clBlue);
end;
end;
end;



---

← →
ikra   (2002-01-13 17:08) [3]

2) Maximum 134217727 points per Series and same for Series per Chart.
Все есть в Хелпе :)

---

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

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

Наверх

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