名前
題名
▼ Mr.XRAYさん > TPrinter.Canvas.TextRect を使用した結果です． > > procedure TForm1.Button3Click(Sender: TObject); > var > LFormat : TTextFormat; > LRect : TRect; > LText : string; > LWidth : Integer; > LHeight : Integer; > begin > LFormat := [tfLeft, tfWordBreak]; > LText := Memo1.Lines.Text; > > LRect := Printer.Canvas.ClipRect; > LWidth := LRect.Right - LRect.Left; > LHeight := LRect.Bottom - LRect.Top; > SetRect(LRect, LRect.Left + LWidth div 10, > LRect.Top + LHeight div 12, > LRect.Right - LWidth div 10, > LRect.Bottom - LHeight div 10); > > Printer.BeginDoc; > try > Printer.Canvas.TextRect(LRect, LText, LFormat); > finally > Printer.EndDoc; > end;// > end; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link