名前
題名
▼ Mr.XRAYさん > TPrinter.Canvas.TextOut を使用した結果です． > > procedure TForm1.Button4Click(Sender: TObject); > var > LText : string; > begin > LText := Memo1.Lines.Text; > > Printer.BeginDoc; > try > Printer.Canvas.TextOut(300, 300, LText); > finally > Printer.EndDoc; > end;// > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link