Текущий архив: 2003.02.27;
Скачать: CL | DM;
Вниз
Печать изображений Найти похожие ветки
← →
MiXenWorK (2003-02-17 16:57) [0]Имеется рисунок на TImage. Хочется распечатать его. Как это правильно сделать?
Пробую следующее:
With Printer do
Begin
BeginDoc;
Canvas.Font:=Form1.font;
Canvas.Draw((PageWidth-Image1.Picture.Bitmap.Width) div 2,
(PageHeight-Image1.Picture.Bitmap.Height) div 2,
Image1.Picture.Bitmap);
EndDoc;
end;
Выдает пустой лист? Что делать?
Спасибо
← →
Юров Владимир © (2003-02-17 17:02) [1]Может попробовать в отчет запихать?
← →
BOA_KAA © (2003-02-17 17:05) [2]
> MiXenWorK (17.02.03 16:57)
> Имеется рисунок на TImage
StrechDraw, а для больших рисунков лучше через DIB
← →
MiXenWorK (2003-02-17 17:38) [3]А что подается в качестве первого аргумента в StretchDraw?
Даю прямоугольник с углами 0, 0, Image1.Width, Image1.Height - то же самое.
Что есть DIB?
← →
REA © (2003-02-17 17:56) [4]См. исходники TForm.Print (или как то так). Там более менее приемлемая печать.
Страницы: 1 вся ветка
Текущий архив: 2003.02.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
