名前
題名
▼ Syakeさん > おっと、消し忘れ・・・ > > > procedure TCustomplPrev.Print; > {---- 略 ------} > Printer.BeginDoc; > if Printer.Printing then //←条件追加 > begin > FPrinting := True; > Screen.Cursor := FCursor; > try > for i := FromPage to ToPage do > begin > ScaleInitialize(Printer.Canvas,False); > 　 {---- 略 ------} > end; > finally > SetMapMode(Printer.Canvas.Handle, MM_TEXT); > Printer.EndDoc; > Application.ProcessMessages; > FPrinting := False; > Screen.Cursor := SaveCursor; > end; > end; > 　{----- 略 ---------} > end; > > 相変わらず、おっちょこちょいで未だに・・・"(-""-)"
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link