| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Печать из TImage [D5, Win2k]
yar © (2002-03-28 13:21:00)Не могу напечатать рисунок из Timage
Делаю так.
Printer.BeginDoc;
Printer.Canvas.StretchDraw(image1.ClientRect,image1.picture.graphic);
Printer.EndDoc;
Он печатает но рисунок маленький.
Подскажите пожалуйста что делат, если можно пример.
Заранее благодарю
Alx2 (2002-03-28 15:04:00) [1]Эти параметры должны помочь:)
DpiX := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
DpiY := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
ScrDpi := SCREEN.PixelsPerInch;
ProgMan (2002-03-28 13:51:00) [2]Printer.Canvas.StretchDraw( image1.ClientRect- здесь д.б. Rect принтера,image1.picture.graphic);
Не забудь, что Rect зависит от ориентации бумаги.
Маленький размер - из-за разрешения.
Допустим, принтер печатает 600 dpi, тогда картинка 600х600 при печати будет дюймХдюйм :-(
| |
