Форум: "Начинающим";
Текущий архив: 2008.12.21;
Скачать: [xml.tar.bz2];
Вниз
Вывод на печать текст из PaintBox Найти похожие ветки
← →
Uno-84 (2008-11-12 10:46) [0]Здравствуйте! подскажите пожалуйста как вывести на печать текст из 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;
← →
Правильный$Вася (2008-11-12 10:57) [1]
> как вывести на печать текст из PaintBox
только текст?
← →
Правильный$Вася (2008-11-12 10:58) [2]а вообще не мучайся, получи DeviceContext принтера и вызови OnPaint от бокса с DC принтера
← →
Uno-84 (2008-11-12 11:00) [3]Даю в принципе в этом компоненте больше ничего кроме текста и не содержеться
← →
Amoeba © (2008-11-12 11:53) [4]В PaintBox даже текст не только не содержится, но и не может содержаться. Он всего лишь предоставляет Canvas для отрисовки чего угодно в событии OnPaint.
← →
Kesha (2008-11-12 12:02) [5]Не знаю как текст будешь печатать из PaintBoxа а вот как печатать можешь тут почитать http://www.codenet.ru/cat/Languages/Delphi/Printing-and-reporting/
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.12.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c
