unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinSkinData, StdCtrls, Buttons, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    Label1: TLabel;
    SkinData1: TSkinData;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  OpenDialogの初期ディレクトリを設定
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
end;

//=============================================================================
//  実行時にスキンを変更する
//  SkinFileプロパティを設定すると実行時にスキンの変更が可能
//  一方SkinStoreプロパティはEXE埋込みとなる
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter := 'スキンファイル(*.skn)|*.skn';
  if OpenDialog1.Execute then begin
    SkinData1.SkinFile := OpenDialog1.FileName;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, sSkinProvider, sSkinManager;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    sSkinManager1: TsSkinManager;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  スキンの設定
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);

  sSkinManager1.SkinDirectory := ExtractFileDir(Application.ExeName);
  sSkinManager1.SkinName := 'SoapSky - Blue.asz';
  sSkinManager1.Active   := True;
end;

//=============================================================================
//  実行時にスキンを変更する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter := 'スキンファイル(*.asz)|*.asz';
  if OpenDialog1.Execute then begin
    sSkinManager1.Active        := False;
    sSkinManager1.SkinDirectory := ExtractFileDir(OpenDialog1.FileName);
    sSkinManager1.SkinName      := ExtractFileName(OpenDialog1.FileName);
    sSkinManager1.Active        := True;
  end;
end;

end.