TAChart: Add multiple series to line demo for performance testing

git-svn-id: trunk@25892 -

components/tachart/demo/line/Main.lfm

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

components/tachart/demo/line/Main.pas

@@ -13,6 +13,7 @@ type
   { TForm1 }
 
   TForm1 = class(TForm)
+    btnAddSeries: TButton;
     cbRotated: TCheckBox;
     Chart1: TChart;
     Chart1LineSeries1: TLineSeries;
@@ -20,6 +21,7 @@ type
     cb3D: TCheckBox;
     Panel1: TPanel;
     RandomChartSource1: TRandomChartSource;
+    procedure btnAddSeriesClick(Sender: TObject);
     procedure cb3DChange(Sender: TObject);
     procedure cbLineTypeChange(Sender: TObject);
     procedure cbRotatedChange(Sender: TObject);
@@ -34,6 +36,20 @@ implementation
 
 { 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);
 begin
   with Chart1LineSeries1 do