Заносит в массив информацию о доступных шрифтах.

Синтаксис:

AFONT(ArrayName [, cFontName [, nFontSize]])

Параметры:
ArrayName
Задает массив переменных памяти, в который будут занесены имена доступных шрифтов. Если массив недостаточно велик, чтобы вместить все шрифты, Visual FoxPro автоматически увеличит его размер. Если задан существующий двумерный массив, Visual FoxPro преобразует его в одномерный.
Если массив создан успешно, функция AFONT() возвращает значение "истина" (.T.); в противном случае она возвращает "ложь" (.F.).
cFontName
Задает шрифт, информация о котором заносится в массив.
Если заданный шрифт допускает несколько вариантов размеров (8 пунктов, 10 пунктов и т.д.), то в массив заносятся эти размеры и функция AFONT() возвращает значение "истина" (.T.). Если заданный шрифт является масштабируемым (допускает дробные значения размера), то массив будет состоять из одного элемента, содержащего -1, а AFONT() возвращает также значение "истина" (.T.).
Если заданный шрифт отсутствует, массив не создается и AFONT() возвращает "ложь" (.F.).
nFontSize
Задает размер шрифта, заданного аргументом cFontName.
Если размер nFontSize является допустимым для шрифта cFontName, массив будет состоять из одного элемента, содержащего значение "истина" (.T.), и функция AFONT() также возвращает значение "истина" (.T.). Если указанный размер не является допустимым для заданного шрифта, массив не создается и AFONT() возвращает "ложь" (.F.).

Результат:
Логический

Комментарии:
Данная функция предусмотрена только в Visual FoxPro, FoxPro для Windows и FoxPro для Macintosh.
Функция AFONT() заносит в массив имена имеющихся шрифтов и может использоваться для определения допустимых размеров шрифтов и выявления масштабируемых шрифтов. Пользуйтесь функцией GETFONT(), когда нужно отобразить на экране диалоговое окно, содержащее перечень имеющихся шрифтов, их размеров и стилей.

Пример:

* В следующем примере функция AFONT( ) создает массив, содержащий
* имена всех имеющихся шрифтов. Имя каждого шрифта выводится на
* экран вместе с образцом этого шрифта. Если в системе установлено
* более десяти шрифтов, на экране отображаются только первые десять.
CLEAR
=AFONT(gaFontArray)	&& Array containing font names
gnNumFonts = ALEN(gaFontArray)	&& Number of fonts
IF gnNumFonts > 10
	gnNumFonts = 10	&& Display first 10 fonts
ENDIF

FOR nCount = 1 TO gnNumFonts
	? ALLTRIM(gaFontArray(nCount))	&& Display font name
	?? '  This is an example of ' ;
		+ ALLTRIM(gaFontArray(nCount)) FONT gaFontArray(nCount), 8
ENDFOR