Pascal 7 & Objects


Выбор другого принтера


-----------------------------------------------------------------

Одним из средств TPrinter является возможность изменения ус- тановки принтера. TPrinter определяет метод Setup, который выво- дит диалоговое окно установки принтера, позволяющее пользователю выбрать принтер из числа установленных в Windows и обеспечивает доступ к диалоговому окну конфигурации устройства.

Чтобы вывести диалоговое окно установки принтера, ваша прик- ладная программа вызывает метод Setup объекта принтера. Steps де- лает это в ответ на команду cm_FileSetup (см. STEP09.PAS):

procedure TStepWindow.CMFileSetup(var Msg: TMessage); begin Printer^.Setup(@Self); end;

Диалоговое окно установки принтера является экземпляром типа TPrinterSetupDlg (см. Рис. 5.1).

+---------------------------------------------------------------+ |#=#XXXXXXXXXXXXXXXXXXXXSelect PrinterXXXXXXXXXXXXXXXXXXXXXXXXXX| +---------------------------------------------------------------| | | | Принтер и порт | | +--------------------------------------------+-+ | | |PostScript Printer on LPT1:#################|v| | | +--------------------------------------------+-+ | | +-----------+ +-----------+ +-----------+ | | |####OK#####| |##Setup####| |##Cancel###| | | +-----------+ +-----------+ +-----------+ | | | +---------------------------------------------------------------+

Рис. 5.1 Диалоговое окно установки принтера.

В комбинированном блоке диалогового окна выводятся принтеры, заданные в WIN.INI. Это дает пользователю возможность доступа ко всем установленным принтерам.

| |




- Начало -  - Назад -