unit PageCountUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, plPrev;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    plPrev1: TplPrev;
    procedure BitBtn1Click(Sender: TObject);
    procedure plPrev1BeforeView(Sender: TObject; Page: Integer);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  10頁分を作成して表示
//  ここではテストなのでこのコードを作成する段階で頁数はわかっているが，業務ア
//  プリでは不明なこともある．
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  LPageStr : string;
  i        : Integer;
begin
  plPrev1.BeginDoc;

  //9回改頁を繰り返す
  i := 1;
  while True do begin
    //頁番号の文字列を作成
    LPageStr := IntToStr(plPrev1.PageNumber) + ' 頁目';

    //文字のサイズ
    plPrev1.FontSize(30);
    //文字列を描画
    plPrev1.TextOut(250, 300, LPageStr);
    plPrev1.TextOut(250, 450, '先読み方式で頁番号を印刷する方法');
    i := i+1;
    if i > 10 then break;

    //改頁
    plPrev1.NewPage;
  end;
  plPrev1.EndDoc;

  //最初は3頁目を表示する
  plPrev1.PageNumber := 3;
  plPrev1.ShowModal;
end;

//=============================================================================
//  TplPrevのOnBeforeViewイベント処理
//
//  OnBeforeViewイベントではCanvasに描画できる
//  (OnBeforeViewイベントは逐次表示方式では無効)
//=============================================================================
procedure TForm1.plPrev1BeforeView(Sender: TObject; Page: Integer);
var
  LPageStr : string;
begin
  //文字のサイズ
  plPrev1.FontSize(100);
  //頁番号の文字列を作成
  LPageStr := IntToStr(Page) + '/' + IntToStr(plPrev1.PageCount);
  //X=105.0mm,Y=260.0mmに位置に文字列を描画
  plPrev1.TextOutCC(1050, 2600, LPageStr);
end;

end.