| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Печать TImage/TBitmap?
AlexeyT © (2007-01-19 01:14:00)Есть ли у кого пример печати картинки (TImage или TBitmap), с масштабированием картинки в страницу принтера и без оной?
Есть TImage, то туда может быть загружено разное: иконка, метафайл, jpeg, gif, png. Будет ли со всем этим работать?
Спасибо!
TRUNK (2007-01-19 15:32:00) [1]
> Есть еще какие-нмбудь FAQ'и ?
На какую тему?
AlexeyT (2007-01-19 14:41:00) [2]OK
Набросал примерную процедуру, правда надо еще отладить.
Когда отлажу, положу в FAQ sources.ru.
Есть еще какие-нмбудь FAQ'и ?
TRUNK (2007-01-19 11:32:00) [3]Вот некий образец, как вывести 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;
| |
