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

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

Browse Source 
git-svn-id: trunk@32185 -
This commit is contained in:
ask 2011-09-05 11:10:20 +00:00
parent 842f2e1772
commit 2451ea26ea
3 changed files with 46 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -156,7 +156,7 @@ object Form1: TForm1
ClientWidth = 637 ClientWidth = 637
object chCalc: TChart object chCalc: TChart
Left = 0 Left = 0
Height = 453 Height = 419
Top = 0 Top = 0
Width = 637 Width = 637
AxisList = < AxisList = <
@ -201,6 +201,31 @@ object Form1: TForm1
LinePen.Width = 2 LinePen.Width = 2
Source = ccsAvg Source = ccsAvg
end 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
end end
object tsPointers: TTabSheet object tsPointers: TTabSheet
@ -292,13 +317,20 @@ object Form1: TForm1
AccumulationRange = 5 AccumulationRange = 5
Origin = RandomChartSource1 Origin = RandomChartSource1
left = 464 left = 464
top = 148 top = 108
end end
object ccsSum: TCalculatedChartSource object ccsSum: TCalculatedChartSource
AccumulationMethod = camSum AccumulationMethod = camSum
AccumulationRange = 0 AccumulationRange = 0
Origin = RandomChartSource1 Origin = RandomChartSource1
left = 464 left = 464
top = 96 top = 52
end
object ccsDerivative: TCalculatedChartSource
AccumulationMethod = camDerivative
AccumulationRange = 2
Origin = RandomChartSource1
left = 464
top = 160
end end
end end

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

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

2
components/tachart/demo/line/linedemo.lpi
View File

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