mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-24 13:16:24 +02:00
52 lines
1.1 KiB
ObjectPascal
52 lines
1.1 KiB
ObjectPascal
unit frmStatistics;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
Forms, Controls, StdCtrls, ExtCtrls,
|
|
TAGraph, TASeries, TASources;
|
|
|
|
type
|
|
TStatisticsFrame = class(TFrame)
|
|
cbAccDirStatistics: TComboBox;
|
|
cbCumulative: TCheckBox;
|
|
ccsAvg: TCalculatedChartSource;
|
|
ccsSum: TCalculatedChartSource;
|
|
chCalc: TChart;
|
|
chCalcLineSeries1: TLineSeries;
|
|
chCalcLineSeriesAvg: TLineSeries;
|
|
chCalcLineSeriesSum: TLineSeries;
|
|
Panel2: TPanel;
|
|
RandomChartSource2: TRandomChartSource;
|
|
procedure cbAccDirStatisticsChange(Sender: TObject);
|
|
procedure cbCumulativeChange(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TStatisticsFrame.cbCumulativeChange(Sender: TObject);
|
|
begin
|
|
chCalcLineSeriesSum.Active := cbCumulative.Checked;
|
|
end;
|
|
|
|
procedure TStatisticsFrame.cbAccDirStatisticsChange(Sender: TObject);
|
|
var
|
|
dir: TChartAccumulationDirection;
|
|
begin
|
|
dir := TChartAccumulationDirection(cbAccDirStatistics.ItemIndex);
|
|
ccsAvg.AccumulationDirection := dir;
|
|
ccsSum.AccumulationDirection := dir;
|
|
end;
|
|
|
|
end.
|
|
|