Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.
Все есть в Хелпе :)




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




Наверх





Память: 0.72 MB
Время: 0.041 c
1-100011          kserg@ukr.net         2002-01-15 12:40  2002.01.31  
Про меню (в смысле про TMainMenu)


1-99965           Aleksandr             2002-01-14 11:12  2002.01.31  
Проекция объектов


1-99958           Romul                 2002-01-12 14:28  2002.01.31  
Как удерживать бегунок у ScrollBar внизу?


4-100126          Osmiy                 2001-11-22 13:38  2002.01.31  
net send без имени компа?


14-100065         fliz                  2001-12-11 15:07  2002.01.31  
опечатка в метро