pjsimpletextgrid.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.006                            *)
(*  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 PJSimpleTextGrid;

interface

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

type

  TCellTextEvent = procedure (Sender: TObject; APageIndex,ACol,ARow: Integer; var Text: string) of object;
  TCellAlignEvent = procedure (Sender: TObject; ACol,ARow: Integer; var Alignment: TAlignment) of object;

  TCustomSimpleTextGridPrintJob = class(TCustomTextGridPrintJob)
  private
    { Private declarations }
    FOnColWidth: TColWidthEvent;
    FOnCellText: TCellTextEvent;
    FOnCellAlign: TCellAlignEvent;
  protected
    { Protected declarations }
    property OnColWidth: TColWidthEvent read FOnColWidth write FOnColWidth;
    property OnCellText: TCellTextEvent read FOnCellText write FOnCellText;
    property OnCellAlign: TCellAlignEvent read FOnCellAlign write FOnCellAlign;
  public
    { Public declarations }
    function GetColWidth(TheCanvas: TCanvas; ACol: Integer): Integer; override;
    function GetCellText(APageIndex,ACol,ARow: Integer): string; override;
    function GetCellAlignment(ACol,ARow: Integer): TAlignment; override;
  end;

  TSimpleTextGridPrintJob = class(TCustomSimpleTextGridPrintJob)
  published
    { Published declarations }
    property OnColWidth;
    property OnCellText;
    property OnCellAlign;
    // TCustomTextGridPrintJob properties
    property HeaderFont;
    property PageFont;
    property FooterFont;
    property ClipMode;
    property Multiline;
    // TCustomGridPrintJob properties
    property OnCustomizeCellCanvas;
    property ColCount;
    property RowCount;
    property RowsPerPage;
    property PagesPerRow;
    property TableBorders;
    property HeaderCellBorders;
    property PageCellBorders;
    property FooterCellBorders;
    property IndexColumn;
    property IndexStart;
    // TCustomGridPrintJob events
    property OnColSubpage;
    // TCustomPrintJob properties
    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;
    // TCustomPrintJob events
    property OnCreate;
    property OnDestroy;
    property OnDraw;
    property OnPrinterSetupChange;
    property OnStartPrint;
    property OnEndPrint;
    property OnPrintProgress;
    property OnStartPrintPage;
    property OnEndPrintPage;
    property OnUpdate;
  end;

procedure Register;

implementation

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

function TCustomSimpleTextGridPrintJob.GetCellText(APageIndex,ACol,ARow: Integer): string;
begin
  if Assigned(FOnCellText) then FOnCellText(Self,APageIndex,ACol,ARow,Result);
end;

function TCustomSimpleTextGridPrintJob.GetCellAlignment(ACol,ARow: Integer): TAlignment;
begin
  Result:=taCenter;
  if Assigned(FOnCellAlign) then FOnCellAlign(Self,ACol,ARow,Result);
end;

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

end.