Вниз
Скачать: CL | DM;

Знает ли кто-нибудь размер формата А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]
Размер пикселя стремится к нулю.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c
3-1100363168
zz 5
2004-11-13 19:26
2004.12.12
View в Interbase


14-1101400232
Undert
2004-11-25 19:30
2004.12.12
Опять Pointer


11-1083849539
Delphi5.01
2004-05-06 17:18
2004.12.12
... как вызвать функцию paint предка ...


14-1101192348
NewDelpher
2004-11-23 09:45
2004.12.12
Есть ли защита от СМС-спама


3-1100095157
Lika
2004-11-10 16:59
2004.12.12
SQL запрос




   Наверх