diff --git a/components/tachart/demo/line/Main.lfm b/components/tachart/demo/line/Main.lfm index fcc379b2a5..e6a1776e9a 100644 --- a/components/tachart/demo/line/Main.lfm +++ b/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 diff --git a/components/tachart/demo/line/Main.pas b/components/tachart/demo/line/Main.pas index 783d0e2067..13e66510a5 100644 --- a/components/tachart/demo/line/Main.pas +++ b/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; diff --git a/components/tachart/demo/line/linedemo.lpi b/components/tachart/demo/line/linedemo.lpi index cd0d232970..e56d9caf01 100644 --- a/components/tachart/demo/line/linedemo.lpi +++ b/components/tachart/demo/line/linedemo.lpi @@ -32,7 +32,7 @@ - +