|
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;
この行を削除したら正常に画像の上に文字表示されるようになりました。
でも、クリップボードにコピーすると、こんな不可解な現象が発生するんですね〜！
|