| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как распечатать содержимое TMemo ? [D5, Win95/98, WinME, Win2k]
andrey_pst © (2002-08-14 09:24:00)Как распечатать содержимое TMemo ?
Некоторые строки могут превышать ширину листа - необходим перенос по словам.
Andrey007 (2002-08-14 10:11:00) [1]procedure TMessag.PrintClick(Sender: TObject);
var PrintText: TextFile; {declares a file variable}
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText); {Assigns PrintText to the printer}
ReWrite(PrintText); {Creates and opens the output file}
Printer.Canvas.Font:=Memo.Font; {Assigns Font settings to the canvas}
Printer.Canvas.Pen:=Canvas.Pen;
Printer.Canvas.Brush:=Canvas.Brush;
WriteLn(PrintText,Memo.Text);
CloseFile(PrintText) {Closes the printer variable}
end
end
Anatoly Podgoretsky (2002-08-14 09:50:00) [2]С помощью WriteLn, самый простой способ, перенос автоматический, но результаты могут не устроить
| |
