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

Вниз

Печать содержимого 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 ©   (2007-05-11 11:43) [5]

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


 
Anatoly Podgoretsky ©   (2007-05-11 13:13) [6]

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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
2-1177753484
Konus
2007-04-28 13:44
2007.05.27
кодировка DOS


15-1177343107
Не назвавшийся
2007-04-23 19:45
2007.05.27
Какую музыку послушать


1-1175504870
Dmitry_177
2007-04-02 13:07
2007.05.27
перезагрузить компьютер


15-1178009480
Nic
2007-05-01 12:51
2007.05.27
Глючит Canvas в Win Vista


15-1177667659
DeadMeat
2007-04-27 13:54
2007.05.27
Turbo Explorer 2006 под Windows Vista