frxclass.pas

报表源码 FastReport 3 is new generation of the report generators components. It consists of report engin

    property KeepFooter:Boolean read FKeepFooter write FKeepFooter default False;
    property KeepHeader:Boolean read FKeepHeader write FKeepHeader default False;
    property KeepTogether:Boolean read FKeepTogether write FKeepTogether default False;
    property OutlineText;
    property PrintChildIfInvisible;
    property PrintIfDetailEmpty:Boolean read FPrintIfDetailEmpty
      write FPrintIfDetailEmpty default False;
    property RowCount:Integer read FRowCount write SetRowCount;
    property StartNewPage;
    property Stretched;
    property OnMasterDetail:TfrxNotifyEvent read FOnMasterDetail write FOnMasterDetail;
  end;

  TfrxHeader = class(TfrxBand)
  private
    FReprintOnNewPage:Boolean;
  published
    property AllowSplit;
    property Child;
    property KeepChild;
    property PrintChildIfInvisible;
    property ReprintOnNewPage:Boolean read FReprintOnNewPage write FReprintOnNewPage default False;
    property StartNewPage;
    property Stretched;
  end;

  TfrxFooter = class(TfrxBand)
  private
  public
  published
    property AllowSplit;
    property Child;
    property KeepChild;
    property PrintChildIfInvisible;
    property Stretched;
  end;

  TfrxMasterData = class(TfrxDataBand)
  private
  public
  published
  end;

  TfrxDetailData = class(TfrxDataBand)
  private
  public
  published
  end;

  TfrxSubdetailData = class(TfrxDataBand)
  private
  public
  published
  end;

  TfrxDataBand4 = class(TfrxDataBand)
  private
  public
  published
  end;

  TfrxDataBand5 = class(TfrxDataBand)
  private
  public
  published
  end;

  TfrxDataBand6 = class(TfrxDataBand)
  private
  public
  published
  end;

  TfrxPageHeader = class(TfrxBand)
  private
    FPrintOnFirstPage:Boolean;
  public
    constructor Create(AOwner:TComponent); override;
  published
    property Child;
    property PrintChildIfInvisible;
    property PrintOnFirstPage:Boolean read FPrintOnFirstPage write FPrintOnFirstPage default True;
    property Stretched;
  end;

  TfrxPageFooter = class(TfrxBand)
  private
    FPrintOnFirstPage:Boolean;
    FPrintOnLastPage:Boolean;
  public
    constructor Create(AOwner:TComponent); override;
  published
    property PrintOnFirstPage:Boolean read FPrintOnFirstPage write FPrintOnFirstPage default True;
    property PrintOnLastPage:Boolean read FPrintOnLastPage write FPrintOnLastPage default True;
  end;

  TfrxColumnHeader = class(TfrxBand)
  private
  public
  published
    property Stretched;
  end;

  TfrxColumnFooter = class(TfrxBand)
  private
  public
  published
  end;

  TfrxGroupHeader = class(TfrxBand)
  private
    FCondition:String;
    FKeepTogether:Boolean;
    FReprintOnNewPage:Boolean;
  public
    FLastValue:Variant;
  published
    property AllowSplit;
    property Child;
    property Condition:String read FCondition write FCondition;
    property KeepChild;
    property KeepTogether:Boolean read FKeepTogether write FKeepTogether default False;
    property ReprintOnNewPage:Boolean read FReprintOnNewPage write FReprintOnNewPage default False;
    property OutlineText;
    property PrintChildIfInvisible;
    property StartNewPage;
    property Stretched;
  end;

  TfrxGroupFooter = class(TfrxBand)
  private
  public
  published
    property AllowSplit;
    property Child;
    property KeepChild;
    property PrintChildIfInvisible;
    property Stretched;
  end;

  TfrxReportTitle = class(TfrxBand)
  private
  public
  published
    property Child;
    property KeepChild;
    property PrintChildIfInvisible;
    property StartNewPage;
    property Stretched;
  end;

  TfrxReportSummary = class(TfrxBand)
  private
  public
  published
    property AllowSplit;
    property Child;
    property KeepChild;
    property PrintChildIfInvisible;
    property StartNewPage;
    property Stretched;
  end;

  TfrxChild = class(TfrxBand)
  private
  public
  published
    property AllowSplit;
    property Child;
    property KeepChild;
    property PrintChildIfInvisible;
    property StartNewPage;
    property Stretched;
  end;

  TfrxOverlay = class(TfrxBand)
  private
    FPrintOnTop:Boolean;
  public
  published
    property PrintOnTop:Boolean read FPrintOnTop write FPrintOnTop default False;
  end;

  TfrxNullBand = class(TfrxBand);

{ Pages }

  TfrxPage = class(TfrxComponent)
  private
  protected
  public
  published
    property Font;
    property Visible;
  end;

  TfrxReportPage = class(TfrxPage)
  private
    FBackPicture:TfrxPictureView;
    FBin:Integer;
    FBinOtherPages:Integer;
    FBottomMargin:Extended;
    FColumns:Integer;
    FColumnWidth:Extended;
    FColumnPositions:TStrings;
    FDataSet:TfrxDataSet;
    FDuplex:TfrxDuplexMode;
    FHGuides:TStrings;
    FLargeDesignHeight:Boolean;
    FLeftMargin:Extended;
    FMirrorMargins:Boolean;
    FOrientation:TPrinterOrientation;
    FOutlineText:String;
    FPrintIfEmpty:Boolean;
    FPrintOnPreviousPage:Boolean;
    FRightMargin:Extended;
    FSubReport:TfrxSubReport;
    FTitleBeforeHeader:Boolean;
    FTopMargin:Extended;
    FVGuides:TStrings;
    FOnAfterPrint:TfrxNotifyEvent;
    FOnBeforePrint:TfrxNotifyEvent;
    FOnManualBuild:TfrxNotifyEvent;
    FDataSetName:String;
    procedure SetColumns(const Value:Integer);
    procedure SetOrientation(Value:TPrinterOrientation);
    procedure SetHGuides(const Value:TStrings);
    procedure SetVGuides(const Value:TStrings);
    procedure SetColumnPositions(const Value:TStrings);
    procedure SetFrame(const Value:TfrxFrame);
    function GetFrame:TfrxFrame;
    function GetColor:TColor;
    procedure SetColor(const Value:TColor);
    function GetBackPicture:TPicture;
    procedure SetBackPicture(const Value:TPicture);
    procedure SetDataSet(const Value:TfrxDataSet);
    procedure SetDataSetName(const Value:String);
    function GetDataSetName:String;
  protected
    FPaperHeight:Extended;
    FPaperSize:Integer;
    FPaperWidth:Extended;
    procedure Notification(AComponent:TComponent; Operation:TOperation); override;
    procedure SetPaperHeight(const Value:Extended); virtual;
    procedure SetPaperWidth(const Value:Extended); virtual;
    procedure SetPaperSize(const Value:Integer); virtual;
    procedure UpdateDimensions;
  public
    FSubBands:TList; { list of master bands }
    FVSubBands:TList; { list of vertical master bands }
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
    class function GetDescription:String; override;
    function FindBand(Band:TfrxBandClass):TfrxBand;
    function IsSubReport:Boolean;
    procedure AlignChildren; override;
    procedure ClearGuides;
    procedure Draw(Canvas:TCanvas; ScaleX, ScaleY, OffsetX, OffsetY:Extended);
    procedure SetDefaults; virtual;
    property SubReport:TfrxSubReport read FSubReport;
  published
    { paper }
    property Orientation:TPrinterOrientation read FOrientation
      write SetOrientation default poPortrait;
    property PaperWidth:Extended read FPaperWidth write SetPaperWidth;
    property PaperHeight:Extended read FPaperHeight write SetPaperHeight;
    property PaperSize:Integer read FPaperSize write SetPaperSize;
    { margins }
    property LeftMargin:Extended read FLeftMargin write FLeftMargin;
    property RightMargin:Extended read FRightMargin write FRightMargin;
    property TopMargin:Extended read FTopMargin write FTopMargin;
    property BottomMargin:Extended read FBottomMargin write FBottomMargin;
    property MirrorMargins:Boolean read FMirrorMargins write FMirrorMargins
      default False;
    { columns }
    property Columns:Integer read FColumns write SetColumns default 0;
    property ColumnWidth:Extended read FColumnWidth write FColumnWidth;
    property ColumnPositions:TStrings read FColumnPositions write SetColumnPositions;
    { bins }
    property Bin:Integer read FBin write FBin default DMBIN_AUTO;
    property BinOtherPages:Integer read FBinOtherPages write FBinOtherPages
      default DMBIN_AUTO;
    { other }
    property BackPicture:TPicture read GetBackPicture write SetBackPicture;
    property Color:TColor read GetColor write SetColor default clTransparent;
    property DataSet:TfrxDataSet read FDataSet write SetDataSet;
    property DataSetName:String read GetDataSetName write SetDataSetName;
    property Duplex:TfrxDuplexMode read FDuplex write FDuplex default dmNone;
    property Frame:TfrxFrame read GetFrame write SetFrame;
    property LargeDesignHeight:Boolean read FLargeDesignHeight
      write FLargeDesignHeight default False;
    property OutlineText:String read FOutlineText write FOutlineText;
    property PrintIfEmpty:Boolean read FPrintIfEmpty write FPrintIfEmpty default True;
    property PrintOnPreviousPage:Boolean read FPrintOnPreviousPage
      write FPrintOnPreviousPage default False;
    property TitleBeforeHeader:Boolean read FTitleBeforeHeader
      write FTitleBeforeHeader default True;
    property HGuides:TStrings read FHGuides write SetHGuides;
    property VGuides:TStrings read FVGuides write SetVGuides;
    property OnAfterPrint:TfrxNotifyEvent read FOnAfterPrint write FOnAfterPrint;
    property OnBeforePrint:TfrxNotifyEvent read FOnBeforePrint write FOnBeforePrint;
    property OnManualBuild:TfrxNotifyEvent read FOnManualBuild write FOnManualBuild;
  end;

  TfrxDialogPage = class(TfrxPage)
  private
    FBorderStyle:TFormBorderStyle;
    FCaption:String;
    FColor:TColor;
    FForm:TForm;
    FOnActivate:TfrxNotifyEvent;
    FOnClick:TfrxNotifyEvent;
    FOnDeactivate:TfrxNotifyEvent;
    FOnHide:TfrxNotifyEvent;
    FOnKeyDown:TfrxKeyEvent;
    FOnKeyPress:TfrxKeyPressEvent;
    FOnKeyUp:TfrxKeyEvent;
    FOnResize:TfrxNotifyEvent;
    FOnShow:TfrxNotifyEvent;
    FOnCloseQuery:TfrxCloseQueryEvent;
    FPosition:TPosition;
    FWindowState:TWindowState;
    procedure DoInitialize;
    procedure DoOnActivate(Sender:TObject);
    procedure DoOnClick(Sender:TObject);
    procedure DoOnCloseQuery(Sender:TObject; var CanClose:Boolean);
    procedure DoOnDeactivate(Sender:TObject);
    procedure DoOnHide(Sender:TObject);
    procedure DoOnKeyDown(Sender:TObject; var Key:Word; Shift:TShiftState);
    procedure DoOnKeyPress(Sender:TObject; var Key:Char);
    procedure DoOnKeyUp(Sender:TObject; var Key:Word; Shift:TShiftState);
    procedure DoOnShow(Sender:TObject);
    procedure DoOnResize(Sender:TObject);
    procedure SetBorderStyle(const Value:TFormBorderStyle);
    procedure SetCaption(const Value:String);
    procedure SetColor(const Value:TColor);
    function GetModalResult:TModalResult;
    procedure SetModalResult(const Value:TModalResult);
  protected
    procedure SetLeft(Value:Extended); override;
    procedure SetTop(Value:Extended); override;
    procedure SetWidth(Value:Extended); override;
    procedure SetHeight(Value:Extended); override;