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 |
フッタマージンの値 |
| プレビューのイメージのサイズを変更した時に発生します。このイベント内では Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TOjbect |
プレビューフォーム |
| Page |
Integer |
表示中の頁番号 |
OnPrintBtnClick(Sender,CanPrint)
| プレビューフォームの [印刷] ボタンで、印刷ダイアログを表示した時に発生します。このイベント内では Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TObject |
プレビューフォーム |
| var CanPrint |
Boolean |
この値をFalseにすると印刷しない
デフォルトは Ture |
OnPrinterSetupDialog(Sender)
| 各頁のメタファイをプリンタに出力した後に発生します。このイベント内では、Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TObject |
プレビューフォーム |
| 各頁のメタファイをプリンタに出力した後に発生します。このイベント内では、Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TObject |
本コンポーネント |
| Page |
Integer |
出力した頁番号 |
| プレビューフームを表示する際に発生します。TForm の OnShow イベントと同様の使い方ができます。プレビューフォームの uni t内に印刷用のコードを書く時は、この OnFormSho w内に書きます。ただし、Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TObject |
プレビューフォーム |
OnFormClose(Sender,Action)
| プレビューフームを閉じた時に発生します。TForm の OnClsoe と同じです。このイベント内では、Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TObject |
プレビューフォーム |
| var Action |
TCloseAction |
TForm の Action と同じ |
| Close メソッドが呼ばれた時、あるいは、システムの閉じる動作を行った時に発生します。TForm の OnCloseQuery と同じです。このイベント内では、Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TObject |
プレビューフォーム |
| var CanClsoe |
Boolean |
TForm の CanClose と同じ |
| プレビューフォームが破棄された時に発生します。TFor の OnDestroy と同じです。このイベント内では、Canvas への描画はできません。 |
| 引数 |
型 |
説明 |
| Sender |
TObject |
プレビューフォーム |
|