pjsimplegrid.pas

GREATIS Print Suite Pro for Delphi (3-7,2005,2006,2007) and C++ Builder (3-6) Set of components for

(*  GREATIS PRINT SUITE PRO                          *)
(*  unit version 1.85.007                            *)
(*  Copyright (C) 2001-2007 Greatis Software         *)
(*  http://www.greatis.com/delphicb/printsuite/      *)
(*  http://www.greatis.com/delphicb/printsuite/faq/  *)
(*  http://www.greatis.com/bteam.html                *)

unit PJSimpleGrid;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  PSJob, PJGrid;

type

  TCustomSimpleGridPrintJob = class(TCustomGridPrintJob)
  private
    { Private declarations }
    FOnColWidth: TColWidthEvent;
    FOnDrawCell: TDrawCellEvent;
  protected
    { Protected declarations }
    property OnColWidth: TColWidthEvent read FOnColWidth write FOnColWidth;
    property OnDrawCell: TDrawCellEvent read FOnDrawCell write FOnDrawCell;
  public
    { Public declarations }
    function GetColWidth(TheCanvas: TCanvas; ACol: Integer): Integer; override;
    procedure DrawCell(TheCanvas: TCanvas; TheRect: TRect; APageIndex,ACol,ARow: Integer; Target: TDrawTarget); override;
  end;

  TSimpleGridPrintJob = class(TCustomSimpleGridPrintJob)
  published
    { Published declarations }
    property OnColWidth;
    property OnDrawCell;
    property OnCustomizeCellCanvas;
    property ColCount;
    property RowCount;
    property RowsPerPage;
    property TableBorders;
    property HeaderCellBorders;
    property PageCellBorders;
    property FooterCellBorders;
    property IndexColumn;
    property IndexStart;
    property MultiDoc;
    property Title;
    property Margins;
    property MarginsUnits;
    property MarginsError;
    property Header;
    property HeaderUnits;
    property Footer;
    property FooterUnits;
    property PageMode;
    property PageWidth;
    property PageHeight;
    property PageUnits;
    property Orientation;
    property Options;
    property RelativeCoords;
    property DefaultDrawing;
    property OnCreate;
    property OnDestroy;
    property OnDraw;
    property OnInitDraw;
    property OnPrinterSetupChange;
    property OnStartPrint;
    property OnEndPrint;
    property OnPrintProgress;
    property OnStartPrintPage;
    property OnEndPrintPage;
    property OnUpdate;
  end;

procedure Register;

implementation

function TCustomSimpleGridPrintJob.GetColWidth(TheCanvas: TCanvas; ACol: Integer): Integer;
begin
  Result:=inherited GetColWidth(TheCanvas,ACol);
  if Assigned(FOnColWidth) then FOnColWidth(Self,TheCanvas,ACol,Result);
end;

procedure TCustomSimpleGridPrintJob.DrawCell(TheCanvas: TCanvas; TheRect: TRect; APageIndex,ACol,ARow: Integer; Target: TDrawTarget);
begin
  CustomizeCellCanvas(ACol,ARow,TheCanvas);
  if Assigned(FOnDrawCell) then
    FOnDrawCell(Self,TheCanvas,TheRect,APageIndex,ACol,ARow,Target);
end;

procedure Register;
begin
  RegisterComponents('Print Jobs', [TSimpleGridPrintJob]);
end;

end.