Type CHOOSEFONT_TYPE lStructSize As Long hwndOwner As Long hDC As Long lpLogFont As Long iPointSize As Long Flags As Long rgbColors As Long lCustData As Long lpfnHook As Long lpTemplateName As String hInstance As Long lpszStyle As String nFontType As Integer MISSING_ALIGNMENT As Integer nSizeMin As Long nSizeMax As Long End Type
Структура CHOOSEFONT_TYPE хранит информацию, передаваемую или извлекаемую из общего диалогового окна Выбор шрифта. Официально, структура имеет имя CHOOSEFONT, но из-за совпадения имени структуры с функцией ChooseFont, что недопустимо правилами Visual Basic, мы используем CHOOSEFONT_TYPE
CF_ANSIONLY = &H400 | Устаревший флаг. Список всех используемых шрифтов Windows |
CF_APPLY = &H200 | Показать кнопку Применить |
CF_BOTH = &H3 | Список всех экранных и принтерных шрифтов |
CF_EFFECTS = &H100 | Позволяет устанавливать атрибуты подчеркивания, зачеркивания и цвета шрифта |
CF_ENABLEHOOK = &H8 | Используется hook-функция, определенная в lpfnHook для использования сообщений диалогового окна |
CF_ENABLETEMPLATE = &H10 | Используется шаблон диалогового окна, определенного в lpTemplateName |
CF_ENABLETEMPLATEHANDLE = &H20 | Используется предварительно загруженный диалог, определенный в hInstance |
CF_FIXEDPITCHONLY = &H4000 | Список только моноширных шрифтов |
CF_FORCEFONTEXIST = &H10000 | Запрет на выбор несуществующих шрифтов |
CF_INITTOLOGFONTSTRUCT = &H40 | Используются настройки, определенные в lpLogFont для выбора шрифта по умолчанию |
CF_LIMITSIZE = &H2000 | Ограничение диапазона выбора размера шрифта от nSizeMin до nSizeMax включительно |
CF_NOOEMFONTS = &H800 | Аналогично CF_NOVECTORFONTS |
CF_NOFACESEL = &H80000 | Не выбирать шрифт по умолчанию при выводе окна |
CF_NOSCRIPTSEL = &H800000 | Не выбирать скрипт по умолчанию при выводе окна |
CF_NOSIZESEL = &H200000 | Не выбирать размер шрифта при выводе окна |
CF_NOSIMULATIONS = &H1000 | Не выводить пример начертания выбранного шрифта |
CF_NOSTYLESEL = &H100000 | Не выбирать стиль по умолчанию |
CF_NOVECTORFONTS = &H800 | Не выводить список векторных шрифтов |
CF_NOVERTFONTS = &H1000000 | Не выводить список вертикально-ориентированных шрифтов |
CF_PRINTERFONTS = &H2 | Список шрифтов для печати |
CF_SCALABLEONLY = &H20000 | Список масшабируемых шрифтов |
CF_SCREENFONTS = &H1 | Список экранных шрифтов |
CF_SCRIPTSONLY = &H400 | Списов всех шрифтов Windows |
CF_SELECTSCRIPT = &H400000 | Только список шрифтов со свойствами |
CF_SHOWHELP = &H4 | Показать кнопку Справка |
CF_TTONLY = &H40000 | Список TrueType-шрифтов |
CF_USESTYLE = &H80 | Используется информация lpStyle для инициализации диалога |
CF_WYSIWYG = &H8000 | Список шрифтов, используемых экраном и принтером (также использовать CF_BOTH и CF_SCALABLEONLY) |
BOLD_FONTTYPE = &H100 | Полужирный шрифт |
ITALIC_FONTTYPE = &:H200 | Курсив |
PRINTER_FONTTYPE = &H4000 | Шрифт принтера |
REGULAR_FONTTYPE = &H400 | Нормальный шрифт |
SCREEN_FONTTYPE = &H2000 | Экранный шрифт |
SIMULATED_FONTTYPE = &H8000 | Шрифт, модерлируемый графическим интерфейсом устройства (GDI) |