TFPReportLayouter

type TFPReportLayouter = class(TComponent)

protected

  procedure PushLoop(); virtual;

  function PopLoop; virtual;

  procedure RemoveBandsFromPage(); virtual;

  function HandleOverflowedBands(); virtual;

  procedure CheckNewOrOverFlow(); virtual;

  procedure SetPageCount();

  procedure IncPageNumberPerDesignerPage;

  procedure InitRTCurPageIdx;

  procedure IncPageNumber;

  procedure InitPageNumber;

  function IsFirstPass;

  function TwoPass;

  procedure InitPass(); virtual;

  procedure InitBandList(); virtual;

  procedure InitDesignPage(); virtual;

  procedure RunDataLoop(); virtual;

  procedure PrepareRecord();

  procedure PrepareHeaderFooter(); virtual;

  procedure PrepareBottomStackedFooters; virtual;

  procedure UpdateSpaceRemaining(); virtual;

  function CommonRuntimeBandProcessing(); virtual;

  procedure ShowDataBand; virtual;

  procedure ShowDataHeaderBand; virtual;

  procedure ShowDetailBands; virtual;

  procedure ShowColumnFooterBand(); virtual;

  function HandleHeaderBands; virtual;

  procedure HandleFooterBands; virtual;

  procedure HandleBottomStackedFooters; virtual;

  procedure HandleRepeatedGroupHeaderBands(); virtual;

  procedure HandleGroupBands; virtual;

  procedure HandleLastGroupFooters; virtual;

  procedure HandleReportSummaryBands; virtual;

  procedure ShowGroupHeaderBand(); virtual;

  procedure ShowGroupFooterBand(); virtual;

  function ShowBandWithChilds(); virtual;

  function NoSpaceRemaining; virtual;

  procedure StartNewPage; virtual;

  procedure StartNewColumn; virtual;

  procedure EndColumn; virtual;

  procedure EndPage; virtual;

  procedure HandleOverflowed; virtual;

  procedure DoExecute; virtual;

  property CurrentLoop: TLoopData; [r]

  property PerDesignerPageCount []: Cardinal; [rw]

  property Pages []: TFPReportCustomPage; [r]

  property RTObjects: TFPList; [r]

  property RTCurPageIdx: Integer; [r]

  property RTCurColumn: UInt8; [r]

  property RTCurPage: TFPReportCustomPage; [r]

  property RTCurColumnFooterBand: TFPReportCustomColumnFooterBand; [r]

  property RTCurDsgnPageIdx: Integer; [rw]

  property RTIsLastColumn: Boolean; [r]

  property PageNumberPerDesignerPage: Integer; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute();

  property Report: TFPCustomReport; [r]

end;

TFPReportLayouter

TObject