Delphi 皮肤控件AlphaControls的使用

TsSkinManager  主控件

SkinDirectory  皮肤Skins文件夹路径

SkinName 所要设置的皮肤名称

Active  是否启用皮肤

InternalSkins 设置内嵌皮肤

 

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'); 

 

 { 此处需要uses sDefaults 单元

type // Do not change types

  TacThirdPartyTypes = (tpEdit, tpButton, tpBitBtn, tpCheckBox, tpComboBox, tpGrid, tpGroupBox, tpListView, tpPanel,

                     tpTreeView, tpwwEdit, tpGridEh, tpVirtualTree, tpPageControl, tpTabControl, tpToolBar, tpStatusBar, tpSpeedButton);

}

 

  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;