afont( ) 函数示例

下面的示例用 afont( ) 函数创建包含所有有效字体名的数组。然后显示每种字体的名字并显示此字体的一个示例。如果安装了十种以上字体，则仅显示前十种字体。

clear
=afont(gafontarray) && 创建包含字体名的数组
gnnumfonts = alen(gafontarray) && 字体数目
if gnnumfonts > 10
gnnumfonts = 10 && 只显示前十种字体
endif

for ncount = 1 to gnnumfonts
? alltrim(gafontarray(ncount)) && 显示字体名
?? ' this is an example of ' ;
+ alltrim(gafontarray(ncount)) font gafontarray(ncount), 8
endfor