Печать из RichEdit (параметры страницы)?

← →
atmospheric (2004-09-15 18:21) [0]

Как сделать отступы от краев страницы?
Это не помогло:
r.Left := 60; r.Top := 60; r.Right := 60; r.Bottom := 60; RichEdit1.PageRect := r; RichEdit1.Print("");

← →
atmospheric (2004-09-15 21:20) [1]

ау...

← →
atmospheric (2004-09-16 08:36) [2]

что ни кто не знает?

← →
KilkennyCat © (2004-09-16 08:40) [3]

странно... замечательный квадрат 60х60 пикселов, и не помог...

← →
KilkennyCat © (2004-09-16 08:43) [4]

ой, что-то я туплю... это не квадрат... это еще меньше :)

← →
atmospheric (2004-09-16 08:51) [5]

а как надо?
программа готова!, надо сдавать, а такой баг!

← →
KilkennyCat © (2004-09-16 09:02) [6]

Вероятно, надо правильно описать пэйджрект. В данном случае, он представляет собою пиксел.
Это не баг...

← →
atmospheric (2004-09-16 09:06) [7]

а как его описать если не секрет?

← →
atmospheric (2004-09-16 10:21) [8]

Сделал, может косу пригодиться:
var r: TRect; h,v: double; leftMargin, topMargin, rightMargin, bottomMargin : double; begin leftMargin := 20; topMargin := 20; rightMargin := 20; bottomMargin := 20; h := GetDeviceCaps( Printer.Handle, LOGPIXELSX ) /25.4 ; v := GetDeviceCaps( Printer.Handle, LOGPIXELSY ) /25.4 ; r.Left := Round(h* leftMargin); r.Top := Round(v * topMargin); r.Right := Round(Printer.PageWidth - ( h* rightMargin )); r.Bottom := Round(Printer.PageHeight - ( v* bottomMargin ) ) ; RichEdit1.PageRect := r; RichEdit1.Print("Чего стоим, кого ждем?");

угу, сделал... :))

Печать из RichEdit (параметры страницы)? Найти похожие ветки