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

Вниз

Печать TImage/TBitmap?   Найти похожие ветки 

← →
AlexeyT ©   (2007-01-19 01:14) [0]

Есть ли у кого пример печати картинки (TImage или TBitmap), с масштабированием картинки в страницу принтера и без оной?

Есть TImage, то туда может быть загружено разное: иконка, метафайл, jpeg, gif, png. Будет ли со всем этим работать?

Спасибо!

---

← →
TRUNK ©   (2007-01-19 11:32) [1]

Вот некий образец, как вывести Bitmap на принтер
(на весь лист, без учёта соотношения сторон, без поворота):


uses
 Printers;

var
 PrinterLogicWidth: Integer;
 PrinterLogicHeight: Integer;
 PrinterRect: TRect;

PrinterLogicWidth := GetDeviceCaps(Printer.Handle,HORZRES); // в пикселах
PrinterLogicHeight := GetDeviceCaps(Printer.Handle,VERTRES); // в пикселах

PrinterRect.Left := 0;
PrinterRect.Top := 0;
PrinterRect.Right := PrinterLogicWidth;
PrinterRect.Bottom := PrinterLogicHeight;

Printer.BeginDoc;
Printer.Canvas.StretchDraw(PrinterRect,Bitmap);
Printer.EndDoc;


---

← →
AlexeyT ©   (2007-01-19 14:41) [2]

OK

Набросал примерную процедуру, правда надо еще отладить.
Когда отлажу, положу в FAQ sources.ru.

Есть еще какие-нмбудь FAQ"и ?

---

← →
TRUNK ©   (2007-01-19 15:32) [3]

> Есть еще какие-нмбудь FAQ"и ?


На какую тему?

---

Страницы: 1 вся ветка

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

Наверх

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