不像其它控件那样,你须要批改源代码才干构建一个摩登的界面, VCLskin 能让Delphi的标准控件在一会儿就变得很是摩登,而这一切都不消批改源代码。
- Delphi Form
- MDIform . (normal,Maximized, MInimized)
- Common Windows dialogs (Open/Save,Font,Print,Color).
- MsgBox.
- Exception MsgBox.
- The title bar of TForm
- The title bar buttons
- The borders of Tform
- Tbutton,TBitbtn.
- Tradiobutton and Tcheckbox
- Tmainmenu and Tpopupmenu
- Toolbar buttons
- TTabcontrol and TPageControl
- T Progressbar
- TStatusbar
- TCustomCombox,Tcombobox, TDbCombobox
- TPanel and TGroupbox
- TMemo, TListBox,TListView,TTreeview
- TRadioGroup , TDBRadioGroup.
- TCustomGrid,TStringgrid,TDrawgrid,Tdbgrid.
- Third party component, Enlib, AdvGrid ..
- 解紧缩 Vclskin2.zip 到随便率性目次
- 在 Delphi IDE 景象中选择菜单 "File. Open...", 然后找到连接库vclskindX.dpk, 按着点击Compile按钮。
- 在 Environment 添加VCLSkin控件地点的路径。
(control.tag mod 100=disabletag)
LoadFromFile(value:string);
LoadFromCollection(astore:TSkinStore;aindex:integer);
UpdateMenu(fParent:Tform);
control:=Tmycontrol.create(form1); skindata1.UpdateSkincontrol(form1); // add this line to skin dynamic control. |
procedure
TDockableForm.FormShow(Sender: TObject);
begin if MainForm.skindata1.active then MainForm.skindata1.skinform(handle); end ; |
popup:=Tpopupmenu.create(form1); ..... add menuite skindata1.UpdateMenu(form1); //add this line popup.popup(x,y); |
若是你应用的是试用版,你可以安装一个演示包。 D7trial.zip .
procedureTform1.SkinData1FormSkin(Sender: TObject; aName: String; var DoSkin: Boolean); begin //""TppPrintPreview"" 就是要作废美化的窗体名称。 if aName=""TppPrintPreview"" then doskin:=false; end; |
比如说 , 窗体的靠山色是 : 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;
|
//==========
通用控件安装办法:
----------
根蒂根基安装
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,不克不及。
打开控件地点的包文件(*.dpk),从中删除控件那个文件,再从头编译该包即可。
若是是全部控件包都要删除的话,project->Option->Packages,删掉那个packages