史上最强大的皮肤控件AlphaControls.用于开发具有独创的皮肤和无皮肤的业务/媒体应用程序。
支持最新版的Delphi and C++ BuilderAlphaControls+最新破解版,内含60个最新皮肤包括VISTA,WLM,WMP11,以及像PPStream一样的。
修复了TsDBNavigator组件的问题
TsSkinManager.Options.ChangeSysColors的默认值更改为False
修复了应用程序在x64编译的错误
改进TsSlider的皮肤
改进菜单皮肤变化的动画
改进SkinManager.Options.StdGlyphsOrder属性
以及其他一些小的更新
1 安装前需先卸载以前的版本,移除IDE里的AlphaControls控件包,然后到bpl文件夹和dcp文件夹,删除所有(acnt*.*)文件,如图1所示:
2.解压压缩包到文件夹,把这个文件夹加到"Library Path";
3.运行Delphi 2010,打开"acnt2010_R.dpk",编译此运行期库,再打开"acnt2010.dpk",安装;
4.安装完毕后,就可以在组件面板上看到AlphaControls组件了,如下图所示:
下面进行测试AlphaControls使用:
1.新建一个应用程序窗体,在窗体上放置一个TsSkinManager;
2.设置TsSkinManager其"SkinDirectory"属性为皮肤Skins文件夹路径;
3.然后再选定其"SkinName"属性所要设置的皮肤名称,比如"UnderWater",如下图所示:
4.设置其"Active"属性为True,编译运行如下图所示:
5.也可以通过设置"InternalSkins"属性,把皮肤文件编译到应用程序里面,记住"SkinName"属性还要选择"UnderWater (内建皮肤)"。
6.另一个重要的控件是TsSkinProvider,放置一个到窗体上,它们的一些代码设置如下:
uses sConst, sDefaults;
procedure TForm1.FormCreate(Sender: TObject);
begin
with sknmngr1 do //TsSkinManager
begin
with AnimEffects do
begin
//-------------------窗体移动时透明度--------------------
BlendOnMoving.Active := False;
BlendOnMoving.BlendValue := 170;
BlendOnMoving.Time := 1000;
//-------------------按钮效果--------------------
Buttons.Events := [beMouseEnter, beMouseLeave, beMouseDown, beMouseUp];
//-------------------对话框隐藏时效果--------------------
DialogHide.Active := True;
DialogHide.Mode := atAero;
DialogHide.Time := 0;
//-------------------对话框显示时效果--------------------
DialogShow.Active := True;
DialogShow.Mode := atFading;
DialogShow.Time := 0;
//-------------------窗体隐藏时效果--------------------
FormHide.Active := True;
FormHide.Mode := atAero;
FormHide.Time := 0;
//-------------------窗体显示时效果--------------------
FormShow.Active := True;
FormShow.Mode := atFading;
FormShow.Time := 0;
//-------------------最小化时效果--------------------
Minimizing.Active := True;
Minimizing.Time := 200;
//-------------------页切换时效果--------------------
PageChange.Active := True;
PageChange.Time := 200;
//-------------------皮肤切换时效果--------------------
SkinChanging.Active := True;
SkinChanging.Mode := atFading;
SkinChanging.Time := 100;
end;
Effects.AllowGlowing := True;//允许按钮和边框图标有特殊发光效果,如Win7的标题按钮发光
ExtendedBorders := True; //基于分层技术的窗体阴影
HueOffset := 0; //允许改变当前皮肤的调色板
IsDefault := True; //定义为当前管理器作为默认的应用程序管理器
with MenuSupport do
begin
ExtraLineFont.Name := '宋体';
ExtraLineWidth := 32; //附加行宽度
IcoLineSkin := 'ICOLINE'; //图标行风格
UseExtraLine := False; //是否使用附加行,
end;
Saturation := 0; //改变当前皮肤的饱和度
SkinnedPopups := True; //弹出菜单是否应用皮肤
SkinningRules := [srStdForms, srStdDialogs, srThirdParty]; //换肤规则
//-------------------让第三方控件也换肤,在属性器里设置比较好-------------------
ThirdLists[ord(tpEdit)].Add('TEdit');
ThirdLists[ord(tpCheckBox)].Add('TCheckBox');
end;
with sknprvdr1 do //TsSkinProvider
begin
AddedTitle.ShowMainCaption := True;//是否显示窗体标题
AddedTitle.Text := '附加的文本'; //允许定义一个额外的文本将在窗体的标题后显示
AllowBlendOnMoving := True; //是否允许窗体移动时透明度
AllowExtBorders := True; //是否允许窗体阴影
CaptionAlignment := taLeftJustify; //标题文本对齐方向
DrawNonClientArea := True; //是否要绘制非客户区
GripMode := gmNone; //当值是gmRightBottom时,窗体右下角有个三角形
MakeSkinMenu := False; //是否在窗体的系统菜单添加“皮肤”菜单项
MenuLineSkin := ''; //菜单显示皮肤样式
ResizeMode := rmStandard; //指定调整大小模式的形式,为rmBorder,则改变时只出现边框
ScreenSnap := False; //指定是否窗体捕捉到屏幕边缘,主动粘边
ShowAppIcon := True; //指定是否应用程序图标将显示在窗体的标题
SnapBuffer := 10; //当ScreenSnap为True,指定窗体边缘和屏幕边缘之间最大像素
//TitleButtons //添加标题按钮
//TitleIcon //添加标题图标
TitleSkin := ''; //标题显示皮肤样式
UseGlobalColor := True; //是否使用全局颜色
end;
end;
7.放置一些控件测试效果,结果如下图所示:
140.5M / 09-05
76.4M / 03-25
55M / 06-05
237.9M / 04-13
900.9M / 03-02
96.2M / 07-06
311.2M / 07-06
335M / 07-06
200M / 07-06
413.8M / 07-06
484.7M / 09-27
165.4M / 09-05
353.9M / 06-05
131.8M / 04-13
195.6M / 03-03
45.6M / 09-08
665.2M / 07-06
2.84G / 07-06
93M / 07-06
338.3M / 07-06
1.38G / 07-26
488.3M / 07-16
109.8M / 06-03
142M / 01-08
1.2M / 11-23
548.8M / 04-13
1.6M / 04-13
1.48G / 03-18
646.6M / 03-03
133.7M / 03-03
110.5M / 09-05
33.4M / 09-05
325.8M / 08-12
60M / 04-29
254M / 04-25
659M / 04-23
1M / 12-26
253.4M / 12-08
253M / 12-08
1.19G / 11-16
369M / 09-22
181.5M / 09-22
201.2M / 09-05
488.3M / 07-16
248.9M / 12-08
248.9M / 12-08
100.6M / 03-06
148.9M / 03-06
1.12G / 07-06
1.25G / 07-06
1.76G / 09-22
1.92G / 04-17
116.2M / 04-10
201.5M / 04-13
7.31G / 07-01
94.3M / 07-06
2.48G / 07-06
7.63G / 07-06
1M / 07-06
778.1M / 07-06
561.8M / 07-11
72M / 07-06
548.7M / 07-06
1.00G / 07-06
9.13G / 07-06
126.2M / 07-06
72M / 07-06
105.1M / 07-06
132M / 07-06
132M / 07-06