назад | содержание | вперед

Диалоговое окно настройки шрифтов текста

Для вызова диалогового окна настройки шрифтов (рис. 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



 

назад | содержание | вперед

 

Hosted by uCoz