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

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

как програмно поменять размер страницы принтера [D6, Win95/98, NT4, Win2k]


Big_Rom ©   (2002-12-27 20:21:00) 

собственно и все :))


Alex Konshin   (2002-12-29 06:32:00) [1]

Угу


Big_Rom   (2002-12-29 06:16:00) [2]

to Alex Konshin
я так понял одно ваозвращяет список доступных страниц
другая их утанавливает
procedure GetPrinterForms( const hPrinter : THandle; AFormNames : TStrings );
procedure SetPrinterForm( const AFormName : String );

с наступающим


Alex Konshin   (2002-12-29 05:55:00) [3]

Я выложил файлик:
http://home.earthlink.net/~akonshin/files/PrintLib.pas

Проблема на самом деле в том, что в Delphi нет(не было?) честного способа получить handle принтера. По крайней мере в Delphi5 приходится доставать его хакерскими методами. Именно это и делается в этом модуле. Насколько я понял, требуется поменять форму? Хотя не важно, имея handle, можно сделать все, что вообще возможно. Да, на Delphi7 не проверял (ну не пишу я уже на Delphi, ну почти не пишу). Хотя, сейчас заглянул в printers.pas, вроде должно работать и в Delphi7, да и честного способа как не было, так и нет.


Наверх

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