base.pas

suite component ace report

unit base;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SctCtrl, SctRep, Menus, SctVar, ExtCtrls;

type
  TFormBaseReport = class(TForm)
    Report: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    PageHeaderBandSub: TSctSubBand;
    SctTextLabel1: TSctvarlabel;
    SctImageLabel1: TSctImageLabel;
    SctTextLabel2: TSctvarlabel;
    SctTextLabel3: TSctvarlabel;
    SctTextLabel4: TSctvarlabel;
    SctTextLabel5: TSctvarlabel;
    TextLabel1: TSctvarlabel;
    varlabel6: TSctvarlabel;
    varlabel7: TSctvarlabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormBaseReport: TFormBaseReport;

implementation

{$R *.DFM}

procedure TFormBaseReport.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

end.