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

Вниз

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

← →
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;



---

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

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

Наверх

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