Компонент tColorDialog

TObject->TPersistent—>TCoinponent-^TCommonDialog->TColorDialog

Модуль DIALOGS Страница Палитры компонентов Dialogs

Предназначен для определения цвета пользователем. Настройка диалога осу­ществляется через свойство:

(Pb) property Options: TColorDialogOptions;

TColorDialogOption = (cdFullOpen, cdPreventFullOpen, cdShowHelp);

TColorDialogOptions = set of TColorDialogOption;

Данные опции определяют:

cdFullOpen — полный показ диалога. В этом случае пользователь может выбрать не только один из цветов системной палитры, но и задать соб­ственный;

cdPreventFullOpen — запрещение полного показа диалога;

cdShowHelp — показ кнопки Help.

В диалоге пользователь может определить несколько (до 16) собственных цве­тов, которые доступны в свойстве:

(РЙ property CustomColors: TStrings;

Каждый из этих цветов представлен в свойстве CustomColors строкой вида

ColorA = SOffaO

где ColorA — условное название цвета (могут быть определены цвета с на­званиями от ColorA до ColorP), а справа от знака равенства стоит его шест­надцатиричное значение в формате RGB.

В случае нажатия кнопки ОК возвращаемое значение цвета содержится в свой­стве:

(РЬ) property Color: TColor;

Компонент tFontDialog

TObject->TPersistent->TComponent-”TCommonDialog-”TFontDialog

Модуль DIALOGS

Страница Палитры компонентов Dialogs

Позволяет выбрать один из установленных в системе шрифтов.

В множество выбора могут быть включены шрифты, поддерживаемые только

принтером, дисплеем или обоими устройствами, что определяется в свойстве:

(pb) property Device: TFontDialogDevice;

TFontDialogDevice = (fdScreen, fdPrinter, fdBoth);

Диапазон возможных значений размеров (кеглей) шрифтов может быть ограничен с использованием свойств:

(Pb) property MinPontSize: Integer;

(Pb) property MaxFontSize: Integer;

Ограничения действительны только при установленной опции fdLimitSizes (см. свойство Options). Если свойства установлены в 0, это означает, что соответ­ствующее ограничение отстутствует.

Опции диалогового окна определяются свойством:

(Pb) property Options: TFontDialogOptions;

TFontDialogOption = (fdAnsiOnly, fdTrueTypeOnly, fdEffects, fdFixedPitchOnly, fdForceFontExist, fdNoFaceSel, fdNoOEMFonts, fdNoSimulations, fdNoSizeSel, fdNoStyleSel, fdNoVectorFonts, fdShowHelp, fdWysiwyg, fdLirnitSize, fdScalableOnly);

TFontDialogOptions = set. of TFontDialogOption;

В состав списка выбора могут быть включены только шрифты, обладающие определенным свойством. Для этой цели предусмотрены опции:

fdAnsiOnly — включает только шрифты, содержащие стандартный набор символов Windows;

fdTrueTypeOnly — включает только шрифты TrueType;

fdScalableOnly — включает только масштабируемые шрифты;

fdFixedPitchOnly — включает только моноширинные шрифты;

fdWysiwyg — включает только шрифты, которые поддерживаются и диспле­ем, и принтером;

fdNoOEMFonts, fdNoVectorFonts — обе опции исключают из списка век­торные шрифты;

fdNoSimulations — исключает из списка те шрифты, которые моделируются графическим интерфейсом Windows;

В любом случае, выбрав шрифт, пользователь может установить его размер и стиль. Если задана опция fdEffects, в диалоге пользователь может определить дополнительные атрибуты: цвет шрифта и его подчеркивание (underline) и перечеркивание (strikeout).

Наличие опций fdNoFaceSel, fdNoSizeSel и fdNoStyleSel означает, что при инициализации диалога не будут заданы начальные значения шрифта, его размера и стиля соответственно.

Другие опции:

fdForceFontExist — включает возможность предупреждения пользователя о том, что он выбрал несуществующий тппиДт-

fdShowHelp — включает в состав диалога кнопку Help;

fdLimitSize — позволяет ограничивать размер выбираемого шрифта.

После успешного завершения диалога можно обращаться к свойству

(Pb) property Font: TFont;

содержащему новый шрифт. Но можно и до завершения просмотреть резуль­таты смены шрифта. Для этого надо определить обработчик события:

(Pb) property OnApply: TFDApplyEvent;

TFDApplyEvent = procedure(Sender: TObject; Wnd: HWND) of object;

Если обработчик определен, то в этом случае в диалоге появляется до­полнительная кнопка Apply. При ее нажатии в окне Wnd прежний шрифт немедленно заменяется на выбранный.

Компонент TPrinterSetupDialog

TObject-”TPersistent—”TCornponent->TCoiranonDialog-”TPrinterSetupDialog

Модуль DIALOGS

Страница Палитры компонентов Dialogs

Диалоговое окно установки параметров принтера. Оно поддерживается соот­ветствующим драйвером принтера и программисту никаких значений не воз­вращает, поэтому метод Execute у этого компонента — не функция, а про­цедура.