T_Report

type T_Report = class(TObject)

public

  constructor Create;

  destructor Destroy; override;

  procedure BeginWrite();

  procedure EndWrite;

  procedure WriteDocument;

  procedure PagePreview;

  procedure Section();

  procedure Page;

  function BackColor();

  function Font();

  function LineStyle();

  function Border();

  function Column();

  procedure WriteHeader();

  function WritePage();

  procedure WriteFooter();

  procedure NumSectionHeader();

  procedure NumSectionFooter();

  procedure NumPageHeader();

  procedure NumPageFooter();

  procedure NumPageSectionHeader();

  procedure NumPageSectionFooter();

  procedure HorizLineHeader();

  procedure HorizLinePage();

  procedure HorizLineFooter();

  procedure SpaceHeader();

  procedure SpacePage();

  procedure SpaceFooter();

  function LineSpace();

  procedure BeginGroup();

  procedure EndGroup();

  procedure ColorColChange();

  procedure FrameMargins();

  procedure FrameHeader();

  procedure FramePage();

  procedure FrameFooter();

  procedure LinePage();

  procedure SurfPage();

  procedure ImageHeader();

  procedure ImagePage();

  procedure ImageFooter();

  procedure PrintPdf();

  property Language: Char; [rw]

  property Visualiser: Boolean; [rw]

  property NumSection: Integer; [rw]

  property NumPage: Integer; [rw]

  property NumPageSection: Integer; [rw]

  property PaperHeight: Integer; [r]

  property PaperWidth: Integer; [r]

  property DefaultFile: string; [rw]

  property CurrentColor: Integer; [rw]

  property SectionTitle: string; [rw]

end;

T_Report

TObject