miclzm 2007-11-29 00:20
如何修改pb toolbar text的字体大小
自己用pb写了一个程序但觉得toolbar的字体太小,不好看,如何将它的text字体变大?:Q :Q
douces 2007-11-29 09:26
附示例程序
更改PB自带Toolbar的字体,系统环境:PB9.0
说明:
程序中使用了PBVMX0.DLL中的三个内部函数:
FN_ToolBarSetFont
FN_ToolBarShowText
osDrawEdge3D
toolbarutil.pbl中包含以下两个主要部件:
全局函数f_create_toolbarutil
boolean f_create_toolbarutil (ref uo_toolbarutil auo_toolbarutil)
用来根据PB的不同版本,创建不同uo_toolbarutil实例.
用户对象uo_toolbarutil
uo_toolbarutil中包含3个供外部调用的函数:
of_inittoolbar(window aw_frame,ai_iconsize)//初始化
of_settoolbarfont(string as_fontname,integer ai_fontsize,string as_extent)//设置工具条字体
of_toolbarshowtext(boolean bshow)//在工具条上显示/不显示文字
调用方式:
uo_toolbarutil luo_toolbarutil
if f_create_toolbarutil (luo_toolbarutil) then
//初始化工具条,设置工具条上图标的大小。
if (luo_toolbarutil.of_InitToolbar(w_genapp_frame,24) then
//设置TOOLBAR字体
luo_toolbarutil.of_SetToolBarFont("Courier New",-11,"123456")
luo_toolbarutil.of_ToolBarShowText(true or false)//若您使用了大字体,或者大图标,则必须调 //用这个函数以在工具条上正确显示图标。
end if
end if