simpletextgridmain.pas

来自「GREATIS Print Suite Pro for Delphi (3-7,」· PAS 代码 · 共 56 行

(*          GREATIS PRINT SUITE                 *)
(*  Copyright (C) 2001-2007 Greatis Software    *)
(*      web: http://www.greatis.com             *)
(*  support: http://www.greatis.com/bteam.html  *)

unit SimpleTextGridMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  PSJob, PSStatusBar, PSPreview, ExtCtrls, PSToolbar, PJTextGrid,
  PJSimpleTextGrid;

type
  TMainForm = class(TForm)
    PreviewToolbar: TPreviewToolbar;
    Preview: TPreview;
    PreviewStatusBar: TPreviewStatusBar;
    SimpleTextGridPrintJob: TSimpleTextGridPrintJob;
    procedure SimpleTextGridPrintJobColWidth(Sender: TObject; TheCanvas: TCanvas;
      ACol: Integer; var ColWidth: Integer);
    procedure SimpleTextGridPrintJobCellText(Sender: TObject; APageIndex,
      ACol, ARow: Integer; var Text: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.SimpleTextGridPrintJobColWidth(Sender: TObject;
  TheCanvas: TCanvas; ACol: Integer; var ColWidth: Integer);
begin
  with Sender as TSimpleTextGridPrintJob,GetPageRect do
    ColWidth:=(Right-Left) div ColCount;
end;

procedure TMainForm.SimpleTextGridPrintJobCellText(Sender: TObject;
  APageIndex, ACol, ARow: Integer; var Text: String);
begin
  case ARow of
    rowHeader: Text:=Format('H.%d',[ACol]);
    rowFooter: Text:=Format('F.%d',[ACol]);
  else Text:=Format('%d.%d',[ACol,ARow]);
  end;
end;

end.