名前
題名
▼ Mr.XRAYさん > ▼ 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....かな．
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link