更改PB自带Toolbar的字体

ehxz

免费乐捐，感谢支持

//////////////////////////////////////////////////////////////////////
//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, 下载次数: 63)

2009-5-15 11:36 上传

点击文件名下载附件

shawjiniu

{:lh_05:}下载学习学习

surachai43

Thank you

chris_haishan

Very Good

xeg369

学习研究一下

一年

感谢分享，学习一下

telephone

下载学习学习

telephone

免费乐捐，感谢支持

下载学习。。。。。