名前
題名
▼ Mr.XRAYさん > [ memo1の文を印刷したいのですが？？ ] > https://www.petitmonte.com/bbs/answers?question_id=29712 > 相も変わらずですが． > 何故に ? が 2 つなの > Memo1 という固有名は使わない --> TMemro > この前の質問の時に指摘されていた出典なし > TextHeight のヘルプみても --> 本当に見て読んだの ??? (3 つ) > 肝心の質問の TextHeight が提示コードにない > PC-9801 --> えっ? Delphi 初めてなの ? > > FAQ と言えますね． > とにかく印刷したいのであれば AssignPrn, TextFile でよろしいのては． > TCanvas.TextRect 使うと便利ですけどね． > > > procedure TForm1.Button1Click(Sender: TObject); > begin > Memo1.ScrollBars := ssVertical; > Memo1.Lines.LoadFromFile('ABC.txt'); > end; > > procedure TForm1.Button2Click(Sender: TObject); > var > LPrn: TextFile; > begin > AssignPrn(LPrn); > try > Rewrite(LPrn); > try > writeln(LPrn, Memo1.Lines.Text); > finally > CloseFile(LPrn); > end; > except > on EInOutError do > MessageBox(Handle, '印刷エラー', '印刷', MB_ICONWARNING); > end; > end; > > 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