Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Печать из TImage 


yar   (2002-03-28 13:21) [0]

Не могу напечатать рисунок из Timage
Делаю так.

Printer.BeginDoc;
Printer.Canvas.StretchDraw(image1.ClientRect,image1.picture.graphic);
Printer.EndDoc;

Он печатает но рисунок маленький.
Подскажите пожалуйста что делат, если можно пример.
Заранее благодарю



ProgMan   (2002-03-28 13:51) [1]

Printer.Canvas.StretchDraw( image1.ClientRect - здесь д.б. Rect принтера,image1.picture.graphic);
Не забудь, что Rect зависит от ориентации бумаги.

Маленький размер - из-за разрешения.
Допустим, принтер печатает 600 dpi, тогда картинка 600х600 при печати будет дюймХдюйм :-(



Alx2   (2002-03-28 15:04) [2]

Эти параметры должны помочь:)
DpiX := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
DpiY := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
ScrDpi := SCREEN.PixelsPerInch;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.07 c
3-22516           _Kirill_              2002-03-11 13:05  2002.04.08  
Делаю выборку через Select.


1-22740           snoup                 2002-03-26 23:47  2002.04.08  
Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;??????


3-22557           andyway               2002-03-14 06:12  2002.04.08  
Расчет таблиц по базе


1-22719           vlv                   2002-03-26 20:45  2002.04.08  
Как очистить TBitmap?


1-22702           Di                    2002-03-26 16:24  2002.04.08  
Как определить, насколько (в пикселях) прокручен TreeView своей полосой прокрутки?