Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:组件使用    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  BusinessSkin的使用  
 
BusinessSkin的使用

1)。TbsBusinessSkinForm,必须添加,如果不是它而使用了其他bs控件有可能出问题。

(2)。加入 TbsSkinData 控件 设TbsBusinessSkinForm属性SkinData为该控件名。

// bsBusinessSkinForm1.skindata:=TbsSkinData.name
(3)。添加一个你要使用的控件,例如TbsSkinEdit,并设SkinData为(2)中添加的控件名。
//自己加咯.

(4)。加入TbsCompressedStoredSkin。 //加这个控件。
//同上面几个是同一个标签内的。

(5)。 TbsSkinData的属性CompressedStoredSkin加入(4)的控件名。

bsSkinData1.compressedstoredskin:=bsCompressedStoredSkin.name;

(6)。TbsCompressedStoredSkin的FileName选择相应的皮肤文件
//Compressedfilename:=皮肤文件地址。
运行就可以了。
皮肤文件可在网上下载。


加入bsBusinessSkinForm,bsSkinData,中间是其他控件(可有可无),bsCompressedStoredSkin.

// bsBusinessSkinForm1.skindata:=TbsSkinData.name
bsSkinData1.compressedstoredskin:=bsCompressedStoredSkin.name;

OK,。。。
//下面是一个动态调用INI,SKIN可改变AP皮肤的过各程
procedure TForm1.bsSkinButton1Click(Sender: TObject);
var
Ext: String;
begin
if OD.Execute //一个openskin对话框
then
begin
Ext := ExtractFileExt(OD.FileName);
if LowerCase(Ext) = '.ini'
then
bsSkinData1.LoadFromFile(OD.FileName)
else
if LowerCase(Ext) = '.skn'
then
bsSkinData1.LoadFromCompressedFile(OD.FileName); //做好各个bs的skindata,还有对话框的ctrlskindata
end;
end;
-------------------------------------
/// bsSkinData1.CompressedStoredSkin := bsCompressedStoredSkin1; //就是还原到原来的皮肤

//她自己带的透明效果:

在bsskinfrom上

最顶的两个属性:

AlphaBlend 为透明效果

AlphaBlendAnimation 为窗体是否慢慢“淡”出来!

两个配合就是god

---------------------

菜单的问题!!

form1的menu属性置空
form1上放一个TbsSkinMainMenuBar,再放一个TbsSkinMainMenu
设置TbsBusinessSkinForm的mainmenubar属性为TbsSkinMainMenuBar
设置TbsSkinMainMenuBar的mainmenu属性为TbsSkinMainMenu

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinData, StdCtrls, Mask, bsSkinBoxCtrls,
bsSkinCtrls, bsSkinShellCtrls,UOrderFile;

type
TForm2 = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsSkinEdit1: TbsSkinEdit;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinSpeedButton1: TbsSkinSpeedButton;
bsSkinLabel1: TbsSkinLabel;
bsSkinUpDown1: TbsSkinUpDown;
bsSkinSlider1: TbsSkinSlider;
bsSkinListBox1: TbsSkinListBox;
bsSkinOpenDialog1: TbsSkinOpenDialog;
procedure bsSkinSpeedButton1Click(Sender: TObject);
procedure bsSkinListBox1ListBoxDblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.bsSkinListBox1ListBoxDblClick(Sender: TObject);
begin
bsSkinData1.LoadFromCompressedFile(bsSkinListBox1.Items[bsSkinListBox1.ItemIndex]); //做好各个bs的skindata,还有对话框的ctrlskindata

end;

procedure TForm2.bsSkinSpeedButton1Click(Sender: TObject);
var
Ext: String;
begin
if bsSkinOpenDialog1.Execute //一个openskin对话框
then
begin
Ext := ExtractFileExt(bsSkinOpenDialog1.FileName);
if LowerCase(Ext) = '.ini'
then
bsSkinData1.LoadFromFile(bsSkinOpenDialog1.FileName)
else
if LowerCase(Ext) = '.skn'
then
begin
bsSkinData1.LoadFromCompressedFile(bsSkinOpenDialog1.FileName); //做好各个bs的skindata,还有对话框的ctrlskindata
bsSkinListBox1.Items:=MakeFileList(ExtractFilePath(bsSkinOpenDialog1.FileName),'.skn');
end;
end;
end;


end.

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站