Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.036 c
