http://apps.hi.baidu.com/share/detail/34900490
学习DELPHI时为了美化程序,
所以在网上找到了这个插件!
1. VCLSkin综述
VCLSkin是一个能让Delphi程序变得非常漂亮的控件包. 它允许允许软件开发人员不用修改程序代码便把软件界面变得非常漂亮。它的美化支持窗体和控件和菜单。VCLSkin同时也提供了大量高质量的skin(皮肤)让你应用于你的程序。
2. VCLSkin特点
VCLSkin是一个用于让用户的程序界面更加漂亮的扩展控件。 它允许软件开发人员不用修改源代码就能让他们的程序界面更加漂亮。一个标准的程序界面能在窗体放入VCLSkin控件后变得非常漂亮,而这公公需要几分钟的时间。
VCLSkin 能做些什么 ?
不像其它控件那样,你需要修改源代码才能构建一个漂亮的界面, VCLskin 能让Delphi的标准控件在一下子就变得非常漂亮,而这一切都不用修改源代码。
VCLSkin 支持以下的窗体:
你可以像安装其它控件一样安装这夽控件,其实就这几步:
| control:=Tmycontrol.create(form1); skindata1.UpdateSkincontrol(form1); // add this line to skin dynamic control. 4 怎样美化依靠窗体 ? Vclskin 支持停靠窗体. 例程代码如下: |
| procedure TDockableForm.FormShow(Sender: TObject); begin if MainForm.skindata1.active then MainForm.skindata1.skinform(handle); end ; 5 怎么美化动态的右键菜单 ? 例程代码如下: |
| popup:=Tpopupmenu.create(form1); ..... add menuite skindata1.UpdateMenu(form1); //add this line popup.popup(x,y); 6 怎样美化动态窗体 ? Vclskin 可以美化动态窗体 , 但不能自动美化内嵌窗体.点击这儿查看如何美化内嵌窗体. 7 找不到文件 'c:\program files\borland\delphi7\SM\winskindata.pas' Delphi7 试用版与Delphi7正式版的Dcu文件格式是不一样的。 如果你使用的是正式版,你可以安装一个演示包。vclskin2.zip. 如果你使用的是试用版,你可以安装一个演示包。D7trial.zip. 8 使用 FastReport 时,出现了“无效操作,控件没有父窗体的的错误提示 ? 设置TSkindata.skincontrols.xcFastReport = true就可以解决这个问题。 9 使用 ReportBuilder 出现了“无效操作,控件没有父窗体的错误提示? 你可以在TSkindata.OnformSkin事件中取消美化这个控件。 代码如下 : |
| procedureTform1.SkinData1FormSkin(Sender: TObject; aName: String; var DoSkin: Boolean); begin //'TppPrintPreview' 就是要取消美化的窗体名称。 if aName='TppPrintPreview' then doskin:=false; end; 10 如何存取skin文件的颜色? 你可以借助Tskindata.colors[]属性来存取颜色。 比如说 , 窗体的背景色是 :skindata.Colors[csButtonFace]. |
| TShemeColor=(csText,csTitleTextActive,csTitleTextNoActive, csButtonFace,csButtonText, csButtonHilight,csButtonlight,csButtonShadow,csButtonDkshadow, csSelectText,csSelectBg,csHilightText,csHilight, csMenuBar,csMenuBarText,csMenuText,csMenubg, csScrollbar,csTextDisable); TShemeColors=array[csText..csTextDisable] of Tcolor; Skindata.Colors: TShemeColors; 11 用户能自定义那些可视化控件的外观吗? 你可以使用skin builder自定义细节. 12 怎样取消美化某个窗体或控件? 设置form.tag=99 取消美化这个窗体。 13 如何在美化一个工程的窗体标题栏和菜单的风格? 设置TSkindata.skincontrols.xcMainmenu = false. |
//==========
通用控件安装方法:
----------
基本安装
1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可;
3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可;
4、如果以上Install按钮为失效的话,试试Compile按钮;
5、是run time lib则在option下的packages下的runtimepackes加之。
如果编译时提示文件找不到的话,一般是控件的安装目录不在Delphi的Lib目录中,有两种方法可以解决:
1、反安装的源文件拷入到Delphi的Lib目录下;
2、或者Tools-->Environment Options中把控件源代码路径加入到Delphi的Lib目录中即可。
注意:所安装的控件是否与你所用的Delphi版本相适应。
----------
控件删除
在Component/Install Packages中删除。
选Component/configure Palette…
有pages和components两个区域
双击components区域,选中要删除得控件,下面有得Delete按钮
但系统提供的控件只能Hide,不能delete。
打开控件所在的包文件(*.dpk),从中删除控件那个文件,再重新编译该包即可。
如果是整个控件包都要删除的话,project->Option->Packages,删掉那个packages,收工。
VCLSkin5.60:点击下载
VCLSkin皮肤(233种):点击下载
VCLSkin皮肤制作工具:我的网盘
VCLSkin皮肤制作方法
![]() | |
![]() | |
![]() | ![]() 相关资源:VCLSkin4Delphi_VCLSkin Delphi 7 使用教程资源-CSDN下载 免责声明:本文系网络转载或改编,未找到原创作者,版权归原作者所有。如涉及版权,请联系删 |