| 12345678910111213141516171819202122232425 |
- $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
|
