Форум: "Основная";
Поиск по всему сайту: 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.018 c
4-100103          neodiX                2001-11-29 15:30  2002.01.31  
Kak programno, na vremia, otkliucit mysh i klavu v WinNT ili Win2k? Ocen nado..


6-100029          Alex_Sudakov          2001-11-01 11:56  2002.01.31  
Дурацкий вопрос...:)


1-100006          jorh                  2002-01-15 09:14  2002.01.31  
Индекс компонента - это круто


4-100111          alex16                2001-12-04 07:35  2002.01.31  
exe file


14-100053         Arhelon               2001-12-10 08:29  2002.01.31  
Помогите плз с Аьской (ActiveList)