Печать содержимого TMemo

← →
Alex7 © (2007-05-11 10:52) [0]

Здравствуйте, уважаемые мастера!
Подскажите, пожалуйста, как на канву принтера положить многострочное содержимое TMemo для его печати.
Текст представляет собой письмо. У некоторых строк есть отступы,
они должны быть сохранены.
Перенос текста по словам по ширине канвы как-то надо задать.
Полагаю такой вопрос задается нередко, но только что просмотрел последние несколько дней - не нашел.
Заранее благодарен.

← →
clickmaker © (2007-05-11 10:59) [1]

uses Printers

Printer.BeginDoc;
try
for i := o to Memo.Lines.Count-1 do begin
Printer.Canvas.TextOut(x, y, Memo.Lines[i]);
if (i > LinesPerPage) then
Printer.NewPage();
end;
finally
Printer.EndDoc;
end;

примерно так

← →
Alex7 © (2007-05-11 11:12) [2]

Спасибо за реализацию перехода на новую страницу.
Уточнение:
>Printer.Canvas.TextOut(x, y, Memo.Lines[i]);
Разве координаты x,y не должны изменяться в зависимости от i, от отступов строк?

← →
ЮЮ © (2007-05-11 11:15) [3]

а откуда в TMemo появилось понятие "отступ строк"?

← →
clickmaker © (2007-05-11 11:35) [4]

> Разве координаты x,y не должны изменяться

разумеется. y := y + Canvas.TextHeight

Извините за неграмотность по части определений. При вводе текста визуальные его отступы от начала строки реализованы вводом пробелов.
Вместе с тем, полагаю, что мой первоначальный вопрос понятен.

> Alex7 (11.05.2007 11:43:05) [5]

Ну так и печатай пробелы

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