Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

Печать 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
15-1168888548
властелин колхоза
2007-01-15 22:15
2007.02.04
дефрагментатор встроенный


2-1168893444
Mettt
2007-01-15 23:37
2007.02.04
Сортировка TList


15-1168798383
AgSmit
2007-01-14 21:13
2007.02.04
Зависает сервер...


2-1168957625
cvg
2007-01-16 17:27
2007.02.04
Что за чудеса с проверкой на nil?


15-1168878356
пользователь
2007-01-15 19:25
2007.02.04
где можно скачать?