Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.26;
Скачать: CL | DM;

Вниз

Как распечатать содержимое TMemo ?   Найти похожие ветки 

 
andrey_pst ©   (2002-08-14 09:24) [0]

Как распечатать содержимое TMemo ?
Некоторые строки могут превышать ширину листа - необходим перенос по словам.


 
Anatoly Podgoretsky ©   (2002-08-14 09:50) [1]

С помощью WriteLn, самый простой способ, перенос автоматический, но результаты могут не устроить


 
Andrey007   (2002-08-14 10:11) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2002.08.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
3-84940
DenisLK
2002-07-19 11:07
2002.08.26
Как в Memo перейти на последнюю строку?


6-85160
Nikollay
2002-06-14 19:50
2002.08.26
Как отловить exception при ClientSocket1->Open() ???


1-84973
Дмитрий Иванов
2002-08-15 03:25
2002.08.26
прога проге


3-84925
Igel
2002-08-06 13:42
2002.08.26
Почему DBGrid возвращает событие на изменение...


1-84955
Strumpf
2002-08-13 21:55
2002.08.26
Мерцание кнопок на тулбаре