TGridPrinter

type TGridPrinter = class(TComponent)

protected

  FFactorX: Double;

  FFactorY: Double;

  FLeftMargin: Integer;

  FTopMargin: Integer;

  FRightMargin: Integer;

  FBottomMargin: Integer;

  FHeaderMargin: Integer;

  FFooterMargin: Integer;

  FColWidths: array of Double;

  FRowHeights: array of Double;

  FFixedColPos: Integer;

  FFixedRowPos: Integer;

  FOutputDevice: TGridPrnOutputDevice;

  FPageBreakRows: array of Integer;

  FPageBreakCols: array of Integer;

  FPageNumber: Integer;

  FPageCount: Integer;

  FPageRect: TRect;

  FPixelsPerInchX: Integer;

  FPixelsPerInchY: Integer;

  FPreviewBitmap: TBitmap;

  FPreviewPage: Integer;

  FColCount: Integer;

  FRowCount: Integer;

  FFixedCols: Integer;

  FFixedRows: Integer;

  FPrinting: Boolean;

  procedure CalcFixedColPos();

  procedure CalcFixedRowPos();

  procedure DoLinePrinted(); virtual;

  function DoManualPageBreak(); virtual;

  procedure DoNewLine(); virtual;

  procedure DoNewPage(); virtual;

  procedure DoPrepareCanvas(); virtual;

  procedure DoPrintCell(); virtual;

  procedure DoUpdatePreview; virtual;

  procedure Execute();

  function GetBrushColor();

  function GetFontColor();

  function GetPenColor();

  procedure LayoutPageBreaks;

  procedure Loaded; override;

  procedure Measure();

  procedure NewPage;

  procedure Notification(); override;

  procedure Prepare;

  procedure PrepareCanvas(); virtual;

  procedure PrintByCols();

  procedure PrintByRows();

  procedure PrintCell(); virtual;

  procedure PrintCheckbox(); virtual;

  procedure PrintColHeaders();

  procedure PrintFooter();

  procedure PrintHeader();

  procedure PrintHeaderFooter();

  procedure PrintGridLines();

  procedure PrintPage();

  procedure PrintRowHeader();

  procedure ScaleColWidths();

  procedure ScaleRowHeights();

  procedure SelectFont();

  property OutputDevice: TGridPrnOutputDevice; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  function CreatePreviewBitmap();

  function GetCellText(); virtual;

  procedure Print;

  procedure ScaleToPages();

  function ScaleX();

  function ScaleY();

  procedure UpdatePreview;

  property Canvas: TCanvas; [r]

  property ColCount: Integer; [r]

  property ColWidth []: Double; [r]

  property FooterMargin: Integer; [r]

  property HeaderMargin: Integer; [r]

  property PageHeight: Integer; [r]

  property PageWidth: Integer; [r]

  property PageRect: TRect; [r]

  property PixelsPerInchX: Integer; [r]

  property PixelsPerInchY: Integer; [r]

  property Padding: Integer; [r]

  property PageCount: Integer; [r]

  property PageNumber: Integer; [r]

  property PrintDateTime: TDateTime; [r]

  property PrintScaleToNumHorPages: Integer; [rw]

  property PrintScaleToNumVertPages: Integer; [rw]

  property PrintScalingMode: TGridPrnScalingMode; [rw]

  property RowCount: Integer; [r]

  property RowHeight []: Double; [r]

published

  property Grid: TCustomGrid; [rw]

  property BorderLineColor: TColor; [rw]

  property BorderLineWidth: Double; [rws]

  property FileName: string; [rw]

  property FixedLineColor: TColor; [rw]

  property FixedLineWidth: Double; [rws]

  property Footer: TGridPrnHeaderFooter; [rw]

  property FromPage: Integer; [rw]

  property GridLineColor: TColor; [rw]

  property GridLineWidth: Double; [rws]

  property Header: TGridPrnHeaderFooter; [rw]

  property Margins: TGridPrnMargins; [rw]

  property Monochrome: Boolean; [rw]

  property Options: TGridPrnOptions; [rw]

  property Orientation: TPrinterOrientation; [rws]

  property PrintOrder: TGridPrnOrder; [rw]

  property PrintScaleFactor: Double; [rws]

  property ShowPrintDialog: TGridPrnDialog; [rw]

  property ToPage: Integer; [rw]

  property OnAfterPrint: TNotifyEvent; [rw]

  property OnBeforePrint: TNotifyEvent; [rw]

  property OnGetCellText: TGridPrnGetCellTextEvent; [rw]

  property OnGetRowCount: TGridPrnGetRowCountEvent; [rw]

  property OnGetColCount: TGridPrnGetColCountEvent; [rw]

  property OnLinePrinted: TGridPrnLinePrintedEvent; [rw]

  property OnManualPageBreak: TGridPrnManualPageBreakEvent; [rw]

  property OnNewLine: TGridPrnNewLineEvent; [rw]

  property OnNewPage: TGridPrnNewPageEvent; [rw]

  property OnPrepareCanvas: TOnPrepareCanvasEvent; [rw]

  property OnPrintCell: TGridPrnPrintCellEvent; [rw]

  property OnUpdatePreview: TNotifyEvent; [rw]

end;

TGridPrinter

TObject