更改PB自带Toolbar的字体
////////////////////////////////////////////////////////////////////////WangAQ(ozen_wang@msn.com) 2002.11.15
//////////////////////////////////////////////////////////////////////
注意:可以不加任何修改的用于PB6,7,8。现在只能显示16色以下的图标。
0、声明
1)您可以自由的使用本程序.
2)由于本程序中使用的PB内部函数和实现方法未经SYBASE证实,所以若要在商业
软件中使用时请慎重.
3)若您在商业软件中因使用本程序而引起的任何后果，本人概不负责.
1、程序说明
本程序中使用了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
2、转载须知
本程序由作者提供给精彩编程(www.pdriver.com)，欢迎其他网络煤体转载，转载时请指明出自
精彩编程(www.pdriver.com)及作者信息，并保持本程序的完整性（包括源程序和readme.txt）。
网络以外的其他煤体如要转载(包括报纸,杂志,书籍,电子出版物等等)必须先征得作者本人的同意。
未经本人同意，不得擅自转载和使用.
精彩编程(www.pdriver.com) 为您提供最精彩的PB，最COOL的解决方案！
3、其他
程序有问题可以给作者写信ozen_wang@msn.com
{:lh_05:}下载学习学习 Thank you Very Good :D 学习研究一下 感谢分享，学习一下:handshake
页:
[1]