$PBExportHeader$f_getfont.srf
$PBExportComments$获取windows字体--函数
global type f_getfont from function_object
end type

forward prototypes
global subroutine f_getfont (dropdownlistbox f_ddlb)
end prototypes

global subroutine f_getfont (dropdownlistbox f_ddlb);int li1,li2
string ls
u_cpp_getfontinf u_font
u_font=create u_cpp_getfontinf
u_font.uf_init(handle(this))
li1=u_font.uf_getfontcount()
//生成字体列表
for li2=0 to li1 -1
	ls=space(50)
	u_font.uf_getfontname(ls,li2)
	f_ddlb.additem(trim(ls))
next
f_ddlb.text='宋体'

end subroutine