Форум: "Основная";
Поиск по всему сайту: 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.026 c
3-99880           Dorixe                2001-12-26 13:31  2002.01.31  
Trouble Поиск


7-100091          ReNoiZer              2001-10-18 17:57  2002.01.31  
Убедительная просьба к Mystic...


7-100083          Neo2002               2001-10-22 21:34  2002.01.31  
Как обратно врубить мышь и клаву?


14-100056         \/\/ \/\/ \/\/        2001-12-02 10:14  2002.01.31  
Помогите плииз!!!


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