unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    plPrev1: TplPrev;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    procedure HogeHoge;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Printers;

{$R *.DFM}

//====================================================================
//  逐次表示方式のコード
//
//  描画用クラスメソッドを作成する(ここではHogeHogeという名前).
//  このメソッド名をProcNameプロパティに指定する．
//  総頁数をPageCountに指定する
//====================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  //用紙の印刷方向を横にする
  //poLandscape等の定数名の使用にはusesにPrintersが必要
  plPrev1.plSetPrinter.Orientation:=poLandscape;

  //印刷用のメソッドと頁数を設定
  plPrev1.ProcName   := HogeHoge;
  plPrev1.PageCount  := 3;

  //プレビューフォームのサイズと位置を設定
  //自動生成なので，そのためのプロパティがある
  //指定しなければデフォルト値となる
  plPrev1.FormPosition := poDesktopCenter;
  plPrev1.FormWidth    := 660;
  plPrev1.FormHeight   := 450;

  plPrev1.ShowModal;
end;
//====================================================================
//  描画用メソッド
//  このメソッド内に本コンポーネントのTCanvasを使用したコードを記述 　　
//  複数頁の場合は，頁番号によって処理を分岐する．
//====================================================================
procedure TForm1.HogeHoge;
begin
  //全頁共通のコード
  plPrev1.Canvas.Font.Height:=200;
  plPrev1.Canvas.TextOut(250,300,'逐次表示方式');

  //頁番号によって異なるコード
  case plPrev1.PageNumber of
  1:begin
      plPrev1.Canvas.Font.Color :=clRed;
      plPrev1.Canvas.Font.Height:=160;
      plPrev1.Canvas.TextOut(250,900,'最初の頁です');
    end;
  2:begin
      plPrev1.Canvas.Font.Color :=clBlue;
      plPrev1.Canvas.Font.Height:=160;
      plPrev1.Canvas.TextOut(250,900,'真ん中の頁です');
    end;
  3:begin
      plPrev1.Canvas.Font.Color :=clGreen;
      plPrev1.Canvas.Font.Height:=160;
      plPrev1.Canvas.TextOut(250,900,'最後の頁です');
    end;
  end;
end;

end.

program BitMapTest;

uses
  Forms,
  BitMapTestUnit in 'BitMapTestUnit.pas' {Form1},
  Unit2 in 'Unit2.pas' {plPrevForm2},
  Unit1 in 'Unit1.pas' {plPrevForm1},
  plPrevfrm in 'D:\XRAYpl\plPrevfrm.pas' {plPrevForm}; //パスを変更する

{$R *.RES}