Форум: "Основная";
Поиск по всему сайту: 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.043 c
1-1101211447      MegaVolt              2004-11-23 15:04  2004.12.12  
Как автоматизировать тестирование программы.


1-1101714215      User1                 2004-11-29 10:43  2004.12.12  
Проблема с DLL


1-1101741313      Ньюбик                2004-11-29 18:15  2004.12.12  
Как определить размер textfile?


1-1101895430      denis24               2004-12-01 13:03  2004.12.12  
listbox->event


14-1101297881     Маг Похмеляйнен       2004-11-24 15:04  2004.12.12  
Про девчонок и вольтмод