名前
題名
▼ KSCさん > KSCです。 > > Printメソッド内の > 「GetMetaImage( i )　〜　印刷開始」までの間で何かあると思い、 > 調べていて　...　...　！ > > すいません。 > 私がソフト開発時に色々とデバッグ用に追加したソースの残骸が残っていました。 > 下記のマスターの「TCustomplPrev.Print」ソース内にテスト用で（Ａ）部を > 追加していた事を思い出しました。 > > procedure TCustomplPrev.Print; > var > i : Integer; > FromPage : Integer; > ToPage : Integer; > begin > 　　・ > 　　・ > 　　・ > try > for i:=FromPage to ToPage do begin > ScaleInitialize(Printer.Canvas,False); > //逆方向(180度回転)印刷のプロパティInversePrintの処理 > if FInversePrint then begin > Printer.Canvas.StretchDraw(Rect(FViewWidth,FViewHeight,0,0),GetMetaImage(i)); > end else begin > Printer.Canvas.StretchDraw(Rect(0,0,FViewWidth,FViewHeight),GetMetaImage(i)); > end; > > Clipboard.Assign( GetMetaImage( i ) );　←　（Ａ） > > Application.ProcessMessages; > if Assigned(FOnPrint) then FOnPrint(Self,i); > if i<ToPage then Printer.NewPage; > end; > finally > 　　・ > 　　・ > 　　・ > end; > > この行を削除したら正常に画像の上に文字表示されるようになりました。 > > でも、クリップボードにコピーすると、こんな不可解な現象が発生するんですね〜！
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link