You've already forked lazarus-ccr
63 lines
1.1 KiB
ObjectPascal
63 lines
1.1 KiB
ObjectPascal
|
{ Template for LazStats forms containing the ParamsPanel and a ChartFrame }
|
||
|
|
|
||
|
|
unit BasicStatsChartFormUnit;
|
||
|
|
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
|
||
|
|
ChartFrameUnit, BasicStatsParamsFormUnit;
|
||
|
|
|
||
|
|
type
|
||
|
|
|
||
|
|
{ TBasicStatsChartForm }
|
||
|
|
|
||
|
|
TBasicStatsChartForm = class(TBasicStatsParamsForm)
|
||
|
|
private
|
||
|
|
|
||
|
|
protected
|
||
|
|
FChartFrame: TChartFrame;
|
||
|
|
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
BasicStatsChartForm: TBasicStatsChartForm;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.lfm}
|
||
|
|
|
||
|
|
uses
|
||
|
|
Utils;
|
||
|
|
|
||
|
|
{ TBasicStatsChartForm }
|
||
|
|
|
||
|
|
constructor TBasicStatsChartForm.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
|
||
|
|
FChartFrame := TChartFrame.Create(self);
|
||
|
|
FChartFrame.Parent := Self;
|
||
|
|
FChartFrame.Align := alClient;
|
||
|
|
FChartFrame.Chart.BottomAxis.Intervals.MaxLength := 80;
|
||
|
|
FChartFrame.Chart.BottomAxis.Intervals.MinLength := 30;
|
||
|
|
FChartFrame.BorderSpacing.Left := 4;
|
||
|
|
FChartFrame.BorderSpacing.Top := 8;
|
||
|
|
FChartFrame.BorderSpacing.Bottom := 8;
|
||
|
|
FChartFrame.BorderSpacing.Right := 8;
|
||
|
|
|
||
|
|
InitToolbar(FChartFrame.ChartToolbar, tpRight);
|
||
|
|
|
||
|
|
Reset;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|