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.