| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Печать из RichEdit (параметры страницы)? [D6, Win2k]

atmospheric ©   (2004-09-15 18:21:00) 

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

RichEdit1.PageRect := r;

RichEdit1.Print('');


---

KilkennyCat   (2004-09-16 13:17:00) [1]

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

---

atmospheric   (2004-09-16 10:21:00) [2]

Сделал, может косу пригодиться:
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('Чего стоим, кого ждем?');

---

atmospheric   (2004-09-16 09:06:00) [3]

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

---

KilkennyCat   (2004-09-16 09:02:00) [4]

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

---

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

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

---

KilkennyCat   (2004-09-16 08:43:00) [6]

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

---

KilkennyCat   (2004-09-16 08:40:00) [7]

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

---

atmospheric   (2004-09-16 08:36:00) [8]

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

---

atmospheric   (2004-09-15 21:20:00) [9]

ау...

---

Наверх