Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c