马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?站点注册
×
//////////////////////////////////////////////////////////////////////
//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
更改PB自带Toolbar的字体.rar
(32.9 KB, 下载次数: 62)
|