BussinessSkinForm 入门教程
bussinessskinform
入门教程
by 刘家君(qufo)
作者:刘家君
工作单位:福建省 泉州鹭燕医药有限公司 职务:网络管理员
网名:qufo
mail:qufo@tom.com,qufo@163.com qq:18185579
可任意转载 *发布 ,但不要抹去我的名字及修改其中重要内容
序 言
bussinessskinform是almdev公司(http://www.almdev.com)出品的一套皮肤控件,可以方便地美化程序界面,支持随时更新界面及自定义界面,现已有超过80套的皮肤可用。并且可以利用自带的皮肤编辑器生产自定义的皮肤。
本文档只提供入门级的教程,使“菜鸟”级的人物可以选学先看。更多的使用方法见其自带的demo和帮助,我将把demo和本文档打包在一起。
第一章:下载安装
一、下载
此控件在各大delphi控件下载站都有,并且是破解+中文的。如有可能,请支持正版。(可到http://www.almdev.com定制订单)。
下面我们以在 www.2ccc.com 下载得到的控件为例。
二、安装
1.下载得到的大部分为压缩文件,用解压缩程序将它解开后可以得到源代码及安装包, 如下图
注:我已安装delphi 8 所以 dpk 的图标跟delphi 7中 dpk图标不一样。 2.启动 delphi 我们以 delphi 7 为例。
然后通过菜单 file -> open project 导航到压缩得到 bsfd7.dpk 路径,并选择以打开此包,如图:
3.点compile 按钮,compile 完成后install 按钮变得可点。
点击 install 按钮即可把控件包安装到delphi的ide中。
4.通过 tools -> environment options 可打开environment options窗口 选择其中的library:
点 library path 后的…按钮,
再按greyed items denote invalid path后的 …
定位到bsf7.dpk所在文件夹,返回到点add按钮,关闭直至退回到 delphi 7主界面中。 至此,安装过程完毕。参考图(可拉大图形以观察仔细)
为使我们有更多的皮肤可用,可以到 http://www.2ccc.com/article.asp?articleid=299 下载55套皮肤,网上也有更多的皮肤可用,直接下载后解压缩便可使用。
第二章:建立一个bsf的form 并测试换肤
我们已经把bsf安装好了,下面我们做个简单的窗体测试一下。 1. 新建一个工程。保存在 c:\\bsf下,工程名为demo1
2. 把下载的皮肤解压缩后放在 c:\\bsf\\skins里面,以便使用。我这有80套,网上还有更
多。如下图
3. 在默认产生的 form 上放上bsbusinessskinform、bsskindata、bsstoredskin,然后设置
bsstoredskin的filename,导航到c:\\bsf\\skins\\下的任一文件夹\\skini.in,本例为c:\\bsf\\skins\\corona!\\skin.ini为例,再设置bsskindata的storedskin为刚才的
bsstoredskin,再设置 bsbussinessskinform的skindata为bsskindata。窗体如下:
保存工程,按f9运行。看看是不是变成这样了:
此方法使用的是 storedskin。
再来一个动态改变skin的。
在刚才的form1中放入 bsskinopendialog、bsskinmessage和bsskinbutton并设置三控件的 skindata为bsskindata(刚才的bsskindata)bsskinbutton1的caption设为”选择皮肤”,双击此按钮,写如下程序:
procedure tform1.bsskinbutton1click(sender: tobject);
begin
if bsskinopendialog1.execute then begin
bsskindata1.loadfromfile( bsskinopendialog1.filename);
bsskinmessage1.messagedlg('更换皮肤成功',(mtinformation),[mbok],0); end
else
bsskinmessage1.messagedlg('为什么不换呀?',(mterror),[mbok],0);
end;
运行此程序,点“选择皮肤“
等等,那个确定按钮怎么那么别扭呀,好象没蒙上皮肤呀。下面告诉你。
刚刚我们发现那个bsskinmessage里的确定好象并没有蒙上皮肤,原来是bsskinmessage里的 ctrlskindata也要设置成bsskindata,再试,好了。
完成建立一个可*换肤的 form的演示。
像不像mac ? apple? ?
第三章:bsf的menu
现在我们在form中放入一个 bsskinmainmenubar,再放入一个delphi自己的mainmenu,双击mainmenu,输入一些菜单(我比较懒?)
运行一下。
菜单呢,到哪去了?
把bsskinmainmenubar 中三项红色的属性(skindata=bsskindata,mainmenu=mainmenu1, businessskinform=bsbusinessskinform1)设置一下,再运行,好,现在有了。
在使用bsskinmainmenubar时一定要记得三项属性全部设置好,否则可能出现没菜单或菜单项不弹出等尴尬事件。
上一篇: PHP匹配连续的数字或字母的正则表达式
下一篇: AngularJS双向数据绑定