Возвращает имя, размер, или стиль текущего шрифта для окна в Visual FoxPro для Windows. 

WFONT(nFontAttribute [, WindowName])

Параметры

nFontAttribute

Определяет атрибут шрифта, который Вы хотите возвратить. Если nFontAttribute равен 1, WFONT( ) возвращает имя текущего шрифта для активного или указанного окна. Если nFontAttribute равен 2, WFONT( ) возвращает размер шрифта. Если nFontAttribute равен 3, WFONT( ) возвращает код, который идентифицирует начертание шрифта. Код начертания шрифта - символ или набор символов, которые соответствуют текущему начертанию шрифта. Например, текущее начертание шрифта - Полужирный курсив, если WFONT(3) возвращает BI. Следующая таблица перечисляет коды для каждого начертания шрифта:

Символ Начертание шрифта

B

Полужирный

I

Курсив

N

Нормальный

O

Контурный

Q

Непрозрачный

S

Тень

-

Зачеркнутый

T

Прозрачный

U

Подчеркнутый

WindowName

Определяет имя окна, для которого Вы хотите определить текущий шрифт, размер шрифта, или начертание шрифта. В Visual FoxPro, Вы можете также включить имя инструментальной панели. Включите пустую строку, чтобы возвратить текущий шрифт, размер шрифта, или начертание шрифта для главного окна Visual FoxPro. WindowName может быть именем определяемого пользователем окна, созданного командой DEFINE WINDOW или окна редактирования текста или мемо. Вы можете также включить имя системного окна (Представления, Трассировки, Отладки, и так далее). WFONT( ) может вернуть аттрибуты шрифта только для системного окна, которое было открыто и в настоящее время видимо или скрыто. Если системное окно, которое Вы определяете, закрыто, Visual FoxPro генерирует сообщение об ошибке. WFONT( ) возвращает текущий шрифт, размер шрифта или начертание шрифта для активного окна вывода, если Вы опускаете WindowName .

Возвращаемое значение

Символьное и Числовое

Пример

Следующий пример создает определяемое пользователем окно по имени wFontChar . Окно активизировано, и характеристики его шрифта отображены в окне. Характеристики шрифта для главного окна Visual FoxPro отображаются вслед за этим.

Скопировать код 
CLEAR
DEFINE WINDOW wFontChar ;
   FROM 1,1 TO 3,35 ;
   FONT 'MS SANS SERIF',8 ;
   STYLE 'BI'  && Define window with font and style
ACTIVATE WINDOW wFontChar
? WFONT(1), WFONT(2), WFONT(3)  && wFontChar window
ACTIVATE SCREEN
?
?
?
? 'Font characteristics for the window wFontChar'
?
?
? WFONT(1,''), WFONT(2,''), WFONT(3,'')  && Main Visual FoxPro window
?
? 'Font characteristics for the main Visual FoxPro window'
WAIT WINDOW
RELEASE WINDOW wFontChar
CLEAR

См. Также