You've already forked lazarus-ccr
65ee7405e5
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7761 8e941d3f-bd1b-0410-a28a-d453659cc2b4
74 lines
1.2 KiB
ObjectPascal
74 lines
1.2 KiB
ObjectPascal
unit BasicStatsReportFormUnit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
|
|
ReportFrameUnit, BasicStatsParamsFormUnit;
|
|
|
|
type
|
|
|
|
{ TBasicStatsReportForm }
|
|
|
|
TBasicStatsReportForm = class(TBasicStatsParamsForm)
|
|
private
|
|
|
|
protected
|
|
FReportFrame: TReportFrame;
|
|
procedure UpdateBtnStates; override;
|
|
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
procedure Reset; override;
|
|
|
|
end;
|
|
|
|
var
|
|
BasicStatsReportForm: TBasicStatsReportForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
uses
|
|
Utils;
|
|
|
|
constructor TBasicStatsReportForm.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
|
|
FReportFrame := TReportFrame.Create(self);
|
|
FReportFrame.Parent := Self;
|
|
FReportFrame.Align := alClient;
|
|
FReportFrame.BorderSpacing.Left := 4;
|
|
FReportFrame.BorderSpacing.Top := 4;
|
|
FReportFrame.BorderSpacing.Bottom := 4;
|
|
FReportFrame.BorderSpacing.Right := 4;
|
|
|
|
InitToolbar(FReportFrame.ReportToolbar, tpRight);
|
|
|
|
Reset;
|
|
end;
|
|
|
|
|
|
procedure TBasicStatsReportForm.Reset;
|
|
begin
|
|
inherited;
|
|
if Assigned(FReportFrame) then
|
|
FReportFrame.Clear;
|
|
end;
|
|
|
|
|
|
procedure TBasicStatsReportForm.UpdateBtnStates;
|
|
begin
|
|
inherited;
|
|
if Assigned(FReportFrame) then
|
|
FReportFrame.UpdateBtnStates;
|
|
end;
|
|
|
|
|
|
end.
|
|
|