TAChart: Add derivative series to the Statistics page of the line demo

git-svn-id: trunk@32185 -

components/tachart/demo/line/Main.lfm

@@ -156,7 +156,7 @@ object Form1: TForm1
       ClientWidth = 637
       object chCalc: TChart
         Left = 0
-        Height = 453
+        Height = 419
         Top = 0
         Width = 637
         AxisList = <        
@@ -201,6 +201,31 @@ object Form1: TForm1
           LinePen.Width = 2
           Source = ccsAvg
         end
+        object chCalcLineSeriesDerivative: TLineSeries
+          Title = 'Derivative'
+          Source = ccsDerivative
+        end
+      end
+      object Panel2: TPanel
+        Left = 0
+        Height = 34
+        Top = 419
+        Width = 637
+        Align = alBottom
+        ClientHeight = 34
+        ClientWidth = 637
+        TabOrder = 1
+        object cbCumulative: TCheckBox
+          Left = 8
+          Height = 17
+          Top = 7
+          Width = 73
+          Caption = 'Cumulative'
+          Checked = True
+          OnChange = cbCumulativeChange
+          State = cbChecked
+          TabOrder = 0
+        end
       end
     end
     object tsPointers: TTabSheet
@@ -292,13 +317,20 @@ object Form1: TForm1
     AccumulationRange = 5
     Origin = RandomChartSource1
     left = 464
-    top = 148
+    top = 108
   end
   object ccsSum: TCalculatedChartSource
     AccumulationMethod = camSum
     AccumulationRange = 0
     Origin = RandomChartSource1
     left = 464
-    top = 96
+    top = 52
+  end
+  object ccsDerivative: TCalculatedChartSource
+    AccumulationMethod = camDerivative
+    AccumulationRange = 2
+    Origin = RandomChartSource1
+    left = 464
+    top = 160
   end
 end

components/tachart/demo/line/Main.pas

@@ -20,7 +20,10 @@ type
     cbRotated: TCheckBox;
     cbSorted: TCheckBox;
     ccsAvg: TCalculatedChartSource;
+    ccsDerivative: TCalculatedChartSource;
     ccsSum: TCalculatedChartSource;
+    cbCumulative: TCheckBox;
+    chCalcLineSeriesDerivative: TLineSeries;
     chPointers: TChart;
     chCalc: TChart;
     chCalcLineSeries1: TLineSeries;
@@ -38,6 +41,7 @@ type
     lblPointsCount: TLabel;
     PageControl2: TPageControl;
     Panel1: TPanel;
+    Panel2: TPanel;
     pnlPointers: TPanel;
     RandomChartSource1: TRandomChartSource;
     sePointerSize: TSpinEdit;
@@ -47,6 +51,7 @@ type
     procedure btnAddSeriesClick(Sender: TObject);
     procedure btnRefreshClick(Sender: TObject);
     procedure cb3DChange(Sender: TObject);
+    procedure cbCumulativeChange(Sender: TObject);
     procedure cbLineTypeChange(Sender: TObject);
     procedure cbRotatedChange(Sender: TObject);
     procedure cbSortedChange(Sender: TObject);
@@ -105,6 +110,11 @@ begin
     ls.Depth := 15 - ls.Depth;
 end;
 
+procedure TForm1.cbCumulativeChange(Sender: TObject);
+begin
+  chCalcLineSeriesSum.Active := cbCumulative.Checked;
+end;
+
 procedure TForm1.cbLineTypeChange(Sender: TObject);
 var
   ls: TLineSeries;

components/tachart/demo/line/linedemo.lpi

@@ -32,7 +32,7 @@
     <RequiredPackages Count="3">
       <Item1>
         <PackageName Value="LCLBase"/>
-        <MinVersion Major="1" Release="1" Valid="True"/>
+        <MinVersion Major="1" Valid="True" Release="1"/>
       </Item1>
       <Item2>
         <PackageName Value="TAChartLazarusPkg"/>