![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как програмно поменять размер страницы принтера [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, да и честного способа как не было, так и нет.