Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2001年01月06日] [更新 2016年04月30日]　DBGrid 印刷コンポーネント
DBGrid 印刷コンポーネント
イベント
動作確認等 図は Windows 7 U64(SP1) + Delphi XE(UP1) Pro で作成






イベント


Ver4.0 では，プレビューフォーム関係のイベントを追加しました．これにより，プレビューフォームまたは，継承したプレビューフォームを表示しなくてもプレビューフォームのイベントを作成することが可能となりました．


図1
イベント一覧




各頁プレビューまたは印刷前のイベント 


OnBeforeView(Sender, Page)

各々の頁をプレビューまたは印刷する前に発生するイベントです．このイベント発生時点で頁数プロパティが確定しています．したがって，このイベントを利用すると頁数の印刷が可能です．このイベント内では Canvas への描画が可能です．

引数 型 説明
Sender TObject コンポーネント自身
Page Integer これから表示または印刷する頁の番号


リスト1
頁数をプレビュー印刷するコード 
procedure TForm1.plDBGridPrev1BeforeView(Sender: TObject; Page: Integer);
var
  LPageStr : string;
begin
  //文字のサイズ
  plDBGridPrev1.FontSize(12);
  //頁番号の文字列を作成
  LPageStr := IntToStr(Page) + '/' + IntToStr(plDBGridPrev1.PageCount);
  //X=105.0mm,Y=270.0mmに位置に文字列を描画
  plDBGridPrev1.TextOutCC(1050, 2700, LPageStr);
end;



印刷しない描画用のイベント 


OnNoPrintDraw(Sender, Page)

このイベント内に書いたコードは印刷しません．また描画のクリップもしません．印刷はしないが，プレビューはしたい描画に使用します．

引数 型 説明
Sender TObject コンポーネント自身
Page Integer 頁番号




最初の頁の描画開始前のイベント 


OnReportStart(Sender, YPos)

引数 YPos の値を変更すると印刷開始 Y 座標値を変更できます．デフォルトは上マージンです．このイベント内で Canvas への描画が可能です．

引数 型 説明
Sender TObject コンポーネント自身
var YPos Integer 上マージンの値
このY座標値から TDBGrid の罫線を描画する




全頁描画終了後のイベント 


OnReportEnd(Sender, Page, YPos)

全頁分の描画が終了する直前に発生します．このイベント後に最終頁のメタファイルイメージの作成が終了します．このイベント内ではCanvasへの描画が可能です．

引数 型 説明
Sender TObject コンポーネント自身
Page Integer 現在の頁番号
PageCount プロパティに等しい値
YPos Integer 描画を終了した頁の一番下の横罫線の Y 座標値




ヘッダ部開始イベント 


OnHeader ( Sender, Page, YPos )

他のイベント内でもヘッダ部やフッタ部に描画コードを書くことはできますが，このイベントではヘッダマージンの値を引数から取得できます．このイベント内では Canvas への描画ガ可能です．

引数 型 説明
Sender TObject コンポーネント自身
Page Integer 頁番号
YPos Integer ヘッダマージンの値




フッタ部開始イベント 


OnFooter(Sender, Page, YPos)

他のイベント内でもヘッダ部やフッタ部に描画コードを書くことはできますが，このイベントでは，フッタマージンの値を引数から取得できます．このイベント内では Canvas への描画が可能です．

引数 型 説明
Sender TObject コンポーネント自身
Page Integer 頁番号
YPos Integer フッタマージンの値




各セルデータ描画開始前のイベント 


OnBeforePrintCell(Sender, Rect, ACol, ARow, PageRow, Text)

各々のセルのデータの描画前に発生します．Canavas への描画が可能です．

引数 型 説明
Sender TObject コンポーネント自身
Rect TRect ACol と ARow で決まるセル描画矩形領域の TRect 構造体
ACol Integer セルの列番号で，一番左が 0
ARow Integer データの行番号で 0 から始まる値
ただし，0 はタイトル行
PageRow Integer この頁だけの行番号
頁が変わる度に0から始まり，0 はタイトル行
var Text String セルの文字列
このテキストを変更すると，該当するセルの描画内容を変更するができる




行データ描画時のイベント 


OnPrintCell(Sender, Rect, ACol, ARow, PageRow, Text)

このイベントを定義するとセルの文字列を描画しません．このイベント内では Canvas への描画が可能です．セルのテキストを全て自前で描画する時に利用できます．
OnBeforePrintCell イベントでも，引数の Text の値を空文字にすれば，セルに文字列を描画しないようにすることができます．

引数 型 説明
Sender TObject コンポーネント自身
Rect TRect ACol と ARow で決まるセル描画矩形領域の TRect 構造体
ACol Integer セルの列番号で，一番左が 0
ARow Integer データの行番号で0から始まる値
ただし 0 はタイトル行
PageRow Integer この頁だけの行番号
頁が変わる度に 0 から始まり，0 はタイトル行
Text String セルの文字列．参照用






印刷ダイアログ表示時のイベント 


OnPrintBtnClick(Sender, CanPrint)

プレビューフォームの[印刷]ボタンで，印刷ダイアログを表示した時に発生します．このイベント内では Canvas への描画はできません．

引数 型 説明
Sender TObject プレビューフォーム
var CanPrint Boolean この値を False にすると印刷しない
デフォルトは Ture で印刷する




印刷時のイベント 


OnPrint(Sender, Page)

各頁のメタファイをプリンタに出力した後に発生します．このイベント内では，Canvas への描画はできません．

引数 型 説明
Sender TObject 本コンポーネント
Page Integer 出力した頁番号




プレビューフォームを表示する時のイベント 


OnFormShow(Sender)

プレビューフームを表示する際に発生します．TForm の OnShow イベントと同様の使い方ができます．プレビューフォームの unit 内に印刷用のコードを書く時は，この OnFormShow 内に書きます．ただし，Canvas への描画はできません．

引数 型 説明
Sender TObject プレビューフォーム




プレビューフォームが閉じた時のイベント 


OnFormClose(Sender, Action)

プレビューフームを閉じた時に発生します．TForm の OnClsoe イベントと同じです．このイベント内では，Canvas への描画はできません．

引数 型 説明
Sender TObject プレビューフォーム
var Action TCloseAction TForm の Action と同じ




プレビューフォームが閉じる時のイベント 


OnFormCloseQuery(Sender)

Close メソッドが呼ばれた時，あるいは，システムの閉じる動作を行った時に発生します．
TForm の OnCloseQuery と同じです．このイベント内では，Canvas への描画はできません．

引数 型 説明
Sender TObject プレビューフォーム
var CanClsoe Boolean TForm の CanClose と同じ




プレビューフォームが破棄される時のイベント 


OnFormDestory(Sender)

プレビューフォームが破棄された時に発生します．TForm の OnDestroy と同じです．このイベント内では Canvas への描画はできません．

引数 型 説明
Sender TObject プレビューフォーム