Компонент PageSetupDialog
В Delphi 7 для организации диалога задания параметров страницы введен новый компонент PageSetupDialog (см. рисунок 49).
Рисунок 49 – Пример использования компонента PageSetupDialog
Он служит для указания размеров бумаги, выбора способа подачи бумаги, выбора ориентации страницы и определения размеров полей.
Свойства диалога PageSetupDialog
MarginBottom, MarginLeft, MarginRight и MarginTop — соответственно определяют нижнее, левое, правое и верхнее поля страницы;
PageHeihgt и PageWidth — определяют высоту и ширину страницы;
Options типа TPageSetupDialogOptions — используется для настройки ряда параметров диалогового окна (по умолчанию параметр psoDefaultMinMargins имеет значение True, остальные параметры имеют значение False); содержит такие параметры, как:
psoDefaultMinMargins — запрещает пользователю изменять минимальные поля страницы;
psoDefaultDesableMargins — запрещает пользователю изменять поля страницы;
psoDefaultDesableOrientation— запрещает пользователю изменять ориентацию страницы;
psoDefaultDesablePagePainting— запрещает отображение образца страницы по умолчанию;
psoDefaultDesablePaper — запрещает пользователю изменять размеры страницы и источник бумаги;
psoDefaultDesablePrinter — делает неактивной кнопку вызова диалога настройки дополнительных параметров принтера;
Units — служит для выбора единиц измерения размеров полей, задаваемых пользователем (в миллиметрах или в дюймах).
Вызов рассматриваемого диалогового окна выполняется так:
PageSetupDialog1.Execute;
Метод Execute вызывается как процедура, а не как функция, поскольку возвращаемый ею результат не используется.