Главная страница
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.043 c
2-1178638279
Bullfrog
2007-05-08 19:31
2007.05.27
GroupBox&Label


3-1173596390
Ulugbek
2007-03-11 09:59
2007.05.27
Помогите с задачкой RFT файлом


2-1178789460
ROOT
2007-05-10 13:31
2007.05.27
Массив классов TObject ????


15-1177685246
oldman
2007-04-27 18:47
2007.05.27
Эх, жалко "Орешник" загнулся.


2-1178624343
Rimd
2007-05-08 15:39
2007.05.27
CopyFile(PChar(OldFile),PChar(NewFile),False)