назад | содержание | вперед
Диалоговое окно настройки шрифтов текста
Для вызова диалогового окна настройки шрифтов (рис. 7.26) необходимо в событие click кнопки cbcontrol ввести следующий код:
Private Sub cbControl_Click()
cdlMyDialog.Flags = cdlCFBoth + cdlCFEffects
cdlMyDialog.ShowFont
End Sub
Рис. 7.26. Диалоговое окно настройки шрифта, открытое с использованием объекта CommonDialog
Флаги диалогового окна настройки шрифтов перечислены в табл. 7.14.
Таблица 7.14. Значения для метода Flags диалогового окна настройки шрифтов
|
Константа |
Значение |
Описание |
|
cdlCFANSIOnly |
&H400 |
Назначает выбор только из системных наборов шрифтов Windows |
|
cdlCFApply |
&H200 |
Добавляет в диалоговое окно кнопку Применить |
|
cdlCFBoth |
&H3 |
Назначает использование экранных шрифтов принтера, указанного в свойстве hDC |
|
CdlCFEffects |
&H100 |
Указывает на необходимость размещения в диалоговом окне элементов управления, задающих эффект подчеркивания, зачеркивания и цвета |
|
cdlCFForceFontExis |
it &H10000 |
Назначает вывод предупреждения об ошибке при выборе несуществующего шрифта |
|
cdlCFHelpButton |
&H4 |
Добавляет в диалоговое окно кнопку Справка |
|
cdlCFLimitSize |
&H2000 |
Назначает выбор размеров шрифтов в интервале, указанном в свойствах Min и Мах |
|
cdlCFNoFaceSel |
&H80000 |
Отключает выбор наименования шрифта |
|
cdlCFNoSizeSel |
&H1000 |
Отключает выбор размера шрифта |
|
cdlCFNoSimulations |
&H200000 |
Отключает в диалоговом окне графические шрифты |
|
cdlCFNoStyleSel |
&H100000 |
Отключает выбор стиля шрифта |
|
cdlCFNoVectorFonts |
&H800 |
Отключает выбор векторных шрифтов |
|
cdlCFPrinterFonts |
&H2 |
Назначает выбор только шрифтов принтера, который указан в свойстве hDC |
|
cdlCFScreenFonts |
&H1 |
Назначает выбор только экранных шрифтов системы |
|
cdlCFTTOnly |
&H40000 |
Назначает только выбор шрифтов типа True Type |
|
CdlCFWYSIWYG |
&H8000 |
Назначает выбор только тех шрифтов, которые подходят одновременно и для принтера, и для экрана. При этом должны дополнительно использоваться флаги cdlCFBoth и cdlCFScalableOnly |
назад | содержание | вперед
Hosting uCoz