paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add multiple series to line demo for performance testing

Browse Source 
git-svn-id: trunk@25892 -
This commit is contained in:
ask 2010-06-04 10:51:17 +00:00
parent ceced0f482
commit 3efb8f9a7f
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/demo/line/Main.lfm
View File

@ -6,6 +6,7 @@ object Form1: TForm1
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 467 ClientHeight = 467
ClientWidth = 556 ClientWidth = 556
Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -53,6 +54,15 @@ object Form1: TForm1
OnChange = cbRotatedChange OnChange = cbRotatedChange
TabOrder = 2 TabOrder = 2
end end
object btnAddSeries: TButton
Left = 284
Height = 25
Top = 8
Width = 75
Caption = 'More series'
OnClick = btnAddSeriesClick
TabOrder = 3
end
end end
object Chart1: TChart object Chart1: TChart
Left = 0 Left = 0
@ -75,6 +85,7 @@ object Form1: TForm1
'TAChart' 'TAChart'
) )
Align = alClient Align = alClient
DoubleBuffered = True
ParentColor = False ParentColor = False
object Chart1LineSeries1: TLineSeries object Chart1LineSeries1: TLineSeries
LinePen.Color = clTeal LinePen.Color = clTeal

16
components/tachart/demo/line/Main.pas
View File

@ -13,6 +13,7 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
btnAddSeries: TButton;
cbRotated: TCheckBox; cbRotated: TCheckBox;
Chart1: TChart; Chart1: TChart;
Chart1LineSeries1: TLineSeries; Chart1LineSeries1: TLineSeries;
@ -20,6 +21,7 @@ type
cb3D: TCheckBox; cb3D: TCheckBox;
Panel1: TPanel; Panel1: TPanel;
RandomChartSource1: TRandomChartSource; RandomChartSource1: TRandomChartSource;
procedure btnAddSeriesClick(Sender: TObject);
procedure cb3DChange(Sender: TObject); procedure cb3DChange(Sender: TObject);
procedure cbLineTypeChange(Sender: TObject); procedure cbLineTypeChange(Sender: TObject);
procedure cbRotatedChange(Sender: TObject); procedure cbRotatedChange(Sender: TObject);
@ -34,6 +36,20 @@ implementation
{ TForm1 } { TForm1 }
procedure TForm1.btnAddSeriesClick(Sender: TObject);
var
s: TLineSeries;
i, j: Integer;
begin
for i := 1 to 10 do begin
s := TLineSeries.Create(Chart1);
s.SeriesColor := clRed;
for j := 1 to 1000 do
s.AddXY(j, Random * 5 + Chart1.SeriesCount * 10);
Chart1.AddSeries(s);
end;
end;
procedure TForm1.cb3DChange(Sender: TObject); procedure TForm1.cb3DChange(Sender: TObject);
begin begin
with Chart1LineSeries1 do with Chart1LineSeries1 do