Форум: "Основная";
Поиск по всему сайту: 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
Время: 5.349 c
1-1101551535      Артем Владимирович    2004-11-27 13:32  2004.12.12  
Как стереть самого себя


6-1095166307      Ryoko                 2004-09-14 16:51  2004.12.12  
Подключение к IRC через Indy IdIRC


3-1100100160      by                    2004-11-10 18:22  2004.12.12  
Не срабатывают DEFAUL значения


3-1100515146      denis24               2004-11-15 13:39  2004.12.12  
dbimage


14-1100845548     Bless                 2004-11-19 09:25  2004.12.12  
Есть ли в Линукс аналоги Microsoft Project и 1C?