Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
Время: 0.028 c
3-1105304363
Windows_3000
2005-01-09 23:59
2005.02.06
работа с DBF


14-1105947608
Holy
2005-01-17 10:40
2005.02.06
Охлаждение винчестера


14-1106042582
-Lesha_-
2005-01-18 13:03
2005.02.06
Delphi7 работа со сканером


1-1106434307
Pine
2005-01-23 01:51
2005.02.06
Создание файла эксель и запись в него при помощи OLE


1-1106607054
netmouse
2005-01-25 01:50
2005.02.06
Открыть URL или Mailto из формы