|
▼ yumapaさん
> 一つ配置し、CheckBox = True にしたとき '取扱注意' という文言を
> 封筒に表示させ、印刷するようにしたいと考えております。
よくぞ聞いて下さいました．プレビュー画面で，プレビューの内容を変更出来
るのがTplTackPrev(旧TplTackPrint)の特徴なのです．
# あの，すみません．今，かなり酔っぱらっています．
# アルコールは弱いのですが，好きなんです．
# もしかしたらメッチャクチャなレスかも知れません...
> procedure TplPrevForm1.CheckBox1Click(Sender: TObject);
> begin
> if CheckBox1.Checked=True then
> begin
> Form2.plPrev1.TextRectLC(100,500,300,400,'取扱注意'); (1)
> Form2.plPrev1.Display(Form2.plPrev1.PageNumber); (2)
> end;
> end;
これですが，(2)はそのままです．その頁を表示するという意味ですね．
問題は(1)です．これは，
OnAfterLabelDraw またはOnAfterPageDraw
(あるいは，OnBeforeLabelDrawとかOnBeforePageDraw)
にコードを書きます．
つま．(2)のDisplayでその頁を描画開始します．その頁を描画するときに，
そのイベントに(1)のコードを実行するというわけです．
よろしくお願いします．
こんな感じです．
procedure TplPrevForm1.CheckBox1Click(Sender: TObject);
begin
Form2.plPrev1.Display(Form2.plPrev1.PageNumber); (2)
end;
procedure TplPrevForm1.plTackPrev1BeforePageDraw(Sneder: TObject;
DataNo,Page: Integer);
begin
if CheckBox1.Checked=True then
begin
Form2.plPrev1.TextRectLC(100,500,300,400,'取扱注意');
end else
begin
Form2.plPrev1.TextRectLC(100,500,300,400,'');
end;
end;
ン?，Form2がわからない．もう頭が回りません．ゴメンなさい．
もしかしたら，TForm2.plTackPrevBeforePageDraw....かな．
|