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




Вниз

Знает ли кто-нибудь размер формата А4 в пикселах 


Галинка ©   (2004-11-29 07:12) [0]

Доброго всем времени суток!

Если кто-нибудь знает точный размер А4 в пикселях, или как его опрделить помогите моему горю. Трабла в основном в распечатке, никак не могу попасть в размер листа.
Пока код такой:

procedure TMainForm.RezImagePrint1Execute(Sender: TObject);
begin
if PrintDialog1.Execute then
 with Printer do
  begin
    Orientation := poLandscape;
    BeginDoc;
    Canvas.StretchDraw(Rect(96,96,PageWidth-96,
                                 PageHeight-96),
                       Child.Image1.Picture.Bitmap);
    EndDoc;
  end;
end;

Размер листа определяю как размер в дюймах помноженный на разрешение формы PixelsPerInch.



ЮЮ ©   (2004-11-29 07:25) [1]

а причем здесь разрешение формы PixelsPerInch? У канваса Printer-а свой PixelsPerInch



Галинка ©   (2004-11-29 08:34) [2]

А вот и дудки нет у канваса Printer-а своего PixelsPerInch



KSergey ©   (2004-11-29 09:16) [3]

> Галинка ©   (29.11.04 07:12)
> Если кто-нибудь знает точный размер А4 в пикселях,

Размер страницы (вернее размер запечатаеваемой области) определяется так (в установленный текущих логических единицах, это более верный термин для принтера, нежели пиксел):

Printer.PageWidth
Printer.PageHeight



KSergey ©   (2004-11-29 09:22) [4]

> [2] Галинка ©   (29.11.04 08:34)
> А вот и дудки нет у канваса Printer-а своего PixelsPerInch

Аналог PixelsPerInch:

запечатываемая область
GetDeviceCaps(Printer.Handle, LOGPIXELSX) - по горизонтали
GetDeviceCaps(Printer.Handle, LOGPIXELSY) - по вертикали

печать картинки советую сделать как тут (вместо StretchDraw, говорят не всегда корректно работает):
http://doc.trecom.tomsk.su/Delphi/UnofficialDevelopersFAQ/pages/printer.htm#printer3



Пыч ©   (2004-11-29 10:15) [5]

Чтобы узнать размер формата А4 в пикселах необходимо знать размер пикеля :)



DVM ©   (2004-11-29 10:49) [6]

а мне мой рост (182) в пикселах подскажите!



Anatoly Podgoretsky ©   (2004-11-29 10:52) [7]

Пыч ©   (29.11.04 10:15) [5]
Размер пикселя стремится к нулю.




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




Наверх





Память: 0.73 MB
Время: 0.044 c
3-1100271741      Dik                   2004-11-12 18:02  2004.12.12  
Как узнать сделал-ли запрос UPDATE изменение в базе


14-1101051359     RusLAN_               2004-11-21 18:35  2004.12.12  
Неподходит пароль к своему нику (_RusLAN)


14-1100909165     Soft                  2004-11-20 03:06  2004.12.12  
Письмо в госдуму


1-1101582815      Herkules-A            2004-11-27 22:13  2004.12.12  
NMSMTP1.PostMessage.Body.Text переход на следущую строку


6-1096735381      Хтз                   2004-10-02 20:43  2004.12.12  
Как включить или выключить сетвевой интерфейс???