skin_un.pas

布林电话收费管理系统

unit skin_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ShellCtrls, BusinessSkinForm, bsSkinCtrls, ExtCtrls,
  bsMessages, StdCtrls,registry;

type
  Tskin = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinGroupBox2: TbsSkinGroupBox;
    ShellTreeView1: TShellTreeView;
    Image1: TImage;
    bsSkinXFormButton1: TbsSkinXFormButton;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinXFormButton3: TbsSkinXFormButton;
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ShellTreeView1Click(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinXFormButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  skin: Tskin;

implementation
   uses main_un;
{$R *.dfm}

procedure Tskin.bsSkinXFormButton2Click(Sender: TObject);
var
reg:tregistry;
ms_skin:string;
begin
 reg:=tregistry.Create;
 reg.RootKey:=hkey_local_machine;
 reg.OpenKey('\software\microsoft\windows\bl_soft',true);
 ms_skin:=reg.ReadString('skin');
 main.bsCompressedStoredSkin1.LoadFromIniFile(ms_skin);
 main.bsSkinData1.LoadCompressedStoredSkin(main.bsCompressedStoredSkin1);
 close;
end;

procedure Tskin.FormCreate(Sender: TObject);
begin
 shelltreeview1.Root:=ExtractFilePath(Application.ExeName)+'sky';
end;

procedure Tskin.ShellTreeView1Click(Sender: TObject);
var
abc:string;
begin
 bsskinstdlabel1.Caption:=trim(ExtractFilePath(Application.ExeName)+'sky\'+shelltreeview1.Selected.Text);
 abc:=bsskinstdlabel1.Caption+'\skin.ini';
 bsskinstdlabel1.Caption:=abc;
 if not fileexists(abc) then
  bsskinstdlabel1.Caption:='';
end;

procedure Tskin.bsSkinXFormButton3Click(Sender: TObject);
begin
if bsskinstdlabel1.Caption<>'' then
 begin
  main.bsCompressedStoredSkin1.LoadFromIniFile(bsskinstdlabel1.Caption);
  main.bsSkinData1.LoadCompressedStoredSkin(main.bsCompressedStoredSkin1);
 end
else
 begin
  bsskinmessage1.MessageDlg('没有选择到正确的皮肤文件，请重新选择...',mterror,[mbyes],0);
  shelltreeview1.SetFocus;
 end;
end;

procedure Tskin.bsSkinXFormButton1Click(Sender: TObject);
var
reg:tregistry;
ms_skin:string;
begin
 if bsskinstdlabel1.Caption<>'' then
 begin
  reg:=tregistry.Create;
  reg.RootKey:=hkey_local_machine;
  reg.OpenKey('\software\microsoft\windows\bl_soft',true);
  reg.WriteString('skin',bsskinstdlabel1.Caption);
  main.bsCompressedStoredSkin1.LoadFromIniFile(bsskinstdlabel1.Caption);
  main.bsSkinData1.LoadCompressedStoredSkin(main.bsCompressedStoredSkin1);
  close;
 end
else
 begin
  bsskinmessage1.MessageDlg('没有选择到正确的皮肤文件，请重新选择...',mterror,[mbyes],0);
  shelltreeview1.SetFocus;
 end;
end;

end.