|
#1
|
|||
|
|||
Печать из Memo
Код:
procedure TForm1.FormCreate(Sender : TObject); begin FNumber := 0; FNumber2 := 0; end; procedure PrintStrings(Strings: TStrings); var Prn: TextFile; i: word; begin AssignPrn(Prn); try Rewrite(Prn); try Printer.Canvas.Font:=Form1.Memo1.Font; Printer.Canvas.Font.size:=45; for i := 0 to Strings.Count - 1 do writeln(Prn, Strings.Strings[i]); finally CloseFile(Prn); end; except on EInOutError do MessageDlg('Ошибка печати.', mtError, [mbOk], 0); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Inc(FNumber); Memo1.Text := IntToStr(FNumber); Memo1.Lines.Add('окно1'); PrintStrings(Memo1.Lines); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Inc(FNumber2); Memo2.Text := IntToStr(FNumber2); Memo2.Lines.Add('окно2'); PrintStrings(Memo2.Lines); end; end. Подскажите как можно исправить. При печати из Memo каждый символ печатается в строку: (Вариант1) 1 О к н о 1 А нужно что б была печать (Вариант2) 1 Окно1 Где и как можно поправить что б печаталось как в варианте 2 и по центру листа, печать происходит выравнивание по левому краю. |
#2
|
|||
|
|||
Все решено.
Вместо memo использовал RichEdit |