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

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

Как изменить границы страницы принтера? [D7, Win95/98, WinXP]


Дмитрий В. Белькевич ©   (2005-01-18 18:31:00) 

Что делаю:
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?


Просто Джо   (2005-01-23 03:12:00) [1]

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


Anatoly Podgoretsky   (2005-01-23 02:49:00) [2]

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


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

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


Anatoly Podgoretsky   (2005-01-18 19:50:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо