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






イベント


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


図1
イベント一覧




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


OnNoPrintDraw(Sender,Page)

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

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




各頁の描画前のイベント 


OnBeforePageDraw(Sender,DataNo,Page)

単票形式では，OnBeforeLabelDraw イベントと同じタイミングで発生します．

引数 型 説明
Sender TObject コンポーネント自身
DataNo Integer 頁の先頭ラベルに描画するデータ番号
開始番号は 1
最終頁の最後のラベルでラベル枚数と同じ
Page Integer 頁番号




各頁の描画後のイベント 


OnAfterPageDraw(Sender,DataNo,Page)

単票形式では，OnAfterLabelDraw イベントと同じタイミングで発生します．

引数 型 説明
Sender TObject コンポーネント自身
DataNo Integer 頁の先頭ラベルに描画するデータ番号
開始番号は 1
最終頁の最後のラベルでラベル枚数と同じ
Page Integer 頁番号




各ラベル描画前のイベント 


OnBeforeLabelDraw(Sender,Rect,ARow,ACol,LabelNo)

単票形式では，OnBeforePageDraw と同じタイミングで発生します．AddPageCount で追加した頁には発生しません．

引数 型 説明
Sender TObject コンポーネント自身
Rect TRect ラベル領域の TRect 構造体の値
ARow Integer 頁内のラベルの行番号
ACol Integer 頁内のラベルの列番号
LabelNo Integer ラベルの番号
1 から始まり最後はラベルの印刷枚数




各ラベル描画直後のイベント 


OnAfterLabelDraw(Sender,Rect,ARow,ACol,LabelNo)

項目プロパティで画像などを挿入している場合，OnBeforeLabelDraw イベント内で文字列を描画してしまうと画像が上に描画されて文字列が表示されなくなってしまいます．このような場合にこのイベントを使用することで回避できます．
単票形式では，OnAfterPageDraw と同じタイミングで発生します．また，AddPageCount で追加した頁では発生しません．

引数 型 説明
Sender TObject コンポーネント自身
Rect TRect ラベル領域の TRect 構造体の値
ARow Integer 頁内のラベルの行番号
ACol Integer 頁内のラベルの列番号
LabelNo Integer ラベルの番号
1 から始まり最後はラベル枚数と同じ




各データ描画前のイベント 


OnBeforeDataDraw(Sender,Rect,ACol,Text)

このイベント内で Textプ ロパティの値を変更すると，印刷する内容が変更できます．
また，AddPageCount で追加した頁では発生しません．

引数 型 説明
Sender TObject コンポーネント自身
Rect TRect ラベル領域の TRect 構造体の値
ACol Integer 印刷項目の項目番号
var Text Integer 項目番号 ACol の描画文字列




ヘッダ部描画開始イベント 


OnHeader(Sender,Page,YPos)

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

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




フッタ部描画開始イベント 


OnFooter(Sender,Page,YPos)

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

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






プレビューフォームリサイズ時のイベント 


OnResize(Sender,Page)

プレビューのイメージのサイズを変更した時に発生します．このイベント内では Canvas への描画はできません．

引数 型 説明
Sender TOjbect プレビューフォーム
Page Integer 表示中の頁番号




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


OnPrintBtnClick(Sender,CanPrint)

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

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




プリンタ設定ダイアログ表示終了時のイベント 


OnPrinterSetupDialog(Sender)

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

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




印刷時のイベント 


OnPrint(Sender,Page)

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

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




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


OnFormShow(Sender)

プレビューフームを表示する際に発生します．TForm の OnShow イベントと同様の使い方ができます．プレビューフォームの uni t内に印刷用のコードを書く時は，この OnFormSho w内に書きます．ただし，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)

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

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