Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Как изменить границы страницы принтера?   Найти похожие ветки 

← →
Дмитрий В. Белькевич   (2005-01-18 18:31) [0]

Что делаю:
procedure TForm1.Button1Click(Sender: TObject);
begin
PageSetupDialog1.Execute;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(inttostr(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX)));
ShowMessage(inttostr(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY)));
end;

Что получается: PHYSICALOFFSETX(Y) никак не зависят от параметров, выставленных в PageSetupDialog.

Вопрос1: PageSetupDialog меняет что-то другое?
Вопрос2: Как изменить PHYSICALOFFSETX(Y), если не с помощью PageSetupDialog?

---

← →
Anatoly Podgoretsky ©   (2005-01-18 19:50) [1]

А с чего бы им зависить? Попробуй перести слово PHYSICAL

---

← →
Дмитрий В. Белькевич   (2005-01-23 02:28) [2]

Спасибо за ответ. Разобрался сам - заработало. Как понял - PageSetup никаких параметров границ не меняет, кроме полей внутри себя. Нужно заполнять и затем считывать, и самому учитывать эти поля и physicalx(y).

---

← →
Anatoly Podgoretsky ©   (2005-01-23 02:49) [3]

Ну как можно сменить физические характеристи принтера.

---

← →
Просто Джо ©   (2005-01-23 03:12) [4]

Слава богу, что хоть для контекста устройства дисплея индекс PHYSICALOFFSETX возвращает 0. А не размер "черной" рамочки для ЭЛТ. А то ведь сколько желающих было бы его изменить при выводе на экран :-)

---

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

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 1.083 c