• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi 皮肤控件AlphaControls的使用

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

分享一下我老师大神的人工智能教程。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!https://blog.csdn.net/jiangjunshow

                        AlphaControls是一个标准的独创的皮肤控件集合,它具有很多新的属性可以添加到普通的控件中以增强程序界面效果,同时还能够添加一些行为到普通的控件中,并且使用了一些新技术。AlphaControls是一个易于使用和强大的工具,用于开发具有独创的皮肤和无皮肤的业务/媒体应用程序。

网上有注册版和源码版,在这里我使用7.51 FS进行学习使用。
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,放置一个到窗体上,它们的一些代码设置如下:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
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.放置一些控件测试效果,结果如下图所示:



           

分享一下我老师大神的人工智能教程。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!https://blog.csdn.net/jiangjunshow


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi DataSnap 的使用发布时间:2022-07-18
下一篇:
DelphiRichEdit控件错误:RichEditlineinsertionerror发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap