| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вывод на печать текст из PaintBox [D7, XP]
Uno-84 © (2008-11-12 10:46:00)Здравствуйте! подскажите пожалуйста как вывести на печать текст из PaintBox
if MesPDlg.Execute then
begin
with printer do
Try
begindoc;
ScaleX := GetDeviceCaps(Handle, LogPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, LogPixelsY) div PixelsPerInch;
R := Rect(0, 0, PreviewPaintbox.Width * ScaleX, Paintbox.Height *ScaleY);
......................................
....................................
finally
EndDoc;
end;
Kesha (2008-11-12 12:02:00) [1]Не знаю как текст будешь печатать из PaintBoxа а вот как печатать можешь тут почитать http://www.codenet.ru/cat/Languages/Delphi/Printing-and-reporting/
Amoeba (2008-11-12 11:53:00) [2]В PaintBox даже текст не только не содержится, но и не может содержаться. Он всего лишь предоставляет Canvas для отрисовки чего угодно в событии OnPaint.
Uno-84 (2008-11-12 11:00:00) [3]Даю в принципе в этом компоненте больше ничего кроме текста и не содержеться
Правильный$Вася (2008-11-12 10:58:00) [4]а вообще не мучайся, получи DeviceContext принтера и вызови OnPaint от бокса с DC принтера
Правильный$Вася (2008-11-12 10:57:00) [5]
> как вывести на печать текст из PaintBox
только текст?
| |
