| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Print [D5]
madburro © (2002-03-18 23:15:00)На форме есть Image1 и Memo1. Как мне сделать так, что бы на принтере отпечаталась картинка из Image1, под ней текст из Memo1? Спасибо :)
madburro (2002-03-19 23:22:00) [1]thanx
Song (2002-03-19 23:06:00) [2]Оченьупрощённый пример, который я просто привёл чтобы дать направление, в котором нужно копать. Будет работать, если рисунок+строка текста поместятся на одной странице документа и по горизонтали и по вертикали. Никаких переносов и дополнительных проверок не делается.
With Printer Do
Begin
BeginDoc;
With Canvas Do
Begin
Draw(10,10,Image1.Picture.BitMap);
TextOut(10,10+Image1.Picture.BitMap.Height+10,Memo1.Lines.Text);
End;
EndDoc;
End;
Кроме того, масштабирование для лазерных принтеров сделайте ручками. Как, читайте help по TPrinter.
madburro (2002-03-19 21:54:00) [3]У меня на форме и другие вещи есть. А мне надо что бы выехал лист с картинкой, а под ней текст.
Song (2002-03-19 08:42:00) [4]Form1.Print;
| |
