Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];

Вниз

Печать изображений   Найти похожие ветки 

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c