object Form1: TForm1
  Left = 218
  Top = 125
  Width = 479
  Height = 359
  BiDiMode = bdLeftToRight
  Caption = 'VclSkin'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  ParentBiDiMode = False
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 24
    Top = 8
    Width = 417
    Height = 217
    ActivePage = TabSheet1
    MultiLine = True
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Control'
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 153
        Height = 13
        Caption = 'Press "Up/Down" Change Skin '
      end
      object SpeedButton1: TSpeedButton
        Left = 301
        Top = 51
        Width = 73
        Height = 25
        Caption = 'SpeedBtn'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          0077777777777774EC0777777777774ECC077000000004ECC077833333334ECC
          33078FB780087CC3B3078F787E70833B73078F8FE7E703B7B3078F8EFE7E037B
          73078F8FEFE708B7B3078F78FEF08B7B73078FB78808B7B7B3078FFFFFFFFFFF
          F30787B7B7B788888877787B7B78777777777788888777777777}
        Spacing = 0
        OnClick = SpeedButton1Click
      end
      object CheckBox1: TCheckBox
        Left = 16
        Top = 59
        Width = 81
        Height = 17
        Hint = 'checkbox1'
        BiDiMode = bdLeftToRight
        Caption = 'CheckBox1'
        Checked = True
        ParentBiDiMode = False
        State = cbChecked
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 16
        Top = 83
        Width = 81
        Height = 17
        Hint = 'checkbox2'
        Alignment = taLeftJustify
        Caption = 'CheckBox2'
        TabOrder = 1
      end
      object RadioButton1: TRadioButton
        Left = 104
        Top = 59
        Width = 89
        Height = 17
        Hint = 'radiobutton1'
        Caption = 'RadioButton1'
        Checked = True
        TabOrder = 2
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 104
        Top = 83
        Width = 89
        Height = 17
        Hint = 'radiobutton2'
        Alignment = taLeftJustify
        Caption = 'RadioButton2'
        TabOrder = 3
      end
      object ComboBox1: TComboBox
        Left = 16
        Top = 24
        Width = 177
        Height = 21
        BiDiMode = bdLeftToRight
        ItemHeight = 13
        ParentBiDiMode = False
        TabOrder = 4
        Text = 'Change Skins'
        OnClick = ComboBox1Click
      end
      object LoadBtn: TButton
        Left = 216
        Top = 52
        Width = 73
        Height = 25
        Caption = 'Load Skin'
        TabOrder = 5
        OnClick = LoadBtnClick
      end
      object Button4: TButton
        Left = 216
        Top = 20
        Width = 73
        Height = 25
        Caption = 'UnSkin'
        Default = True
        TabOrder = 6
        OnClick = Button2Click
      end
      object BitBtn1: TBitBtn
        Left = 300
        Top = 20
        Width = 73
        Height = 25
        TabOrder = 7
        Kind = bkClose
        Spacing = 2
      end
      object Edit1: TEdit
        Left = 16
        Top = 104
        Width = 177
        Height = 21
        TabOrder = 8
        Text = 'Edit1'
      end
      object ExceptionBtn: TButton
        Left = 216
        Top = 84
        Width = 73
        Height = 25
        Caption = 'Exception'
        TabOrder = 9
        OnClick = ExceptionBtnClick
      end
      object MessageBtn: TButton
        Left = 216
        Top = 116
        Width = 73
        Height = 25
        Caption = 'MessageBox'
        TabOrder = 10
        OnClick = MessageBtnClick
      end
      object Button1: TButton
        Left = 302
        Top = 84
        Width = 73
        Height = 25
        Caption = 'Form'
        TabOrder = 11
        OnClick = Button1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TMemo'
      ImageIndex = 1
      object RichEdit1: TRichEdit
        Left = 16
        Top = 8
        Width = 361
        Height = 161
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'unit Unit1;'
          ''
          'interface'
          ''
          'uses'
          
            '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Form' +
            's,'
          '  Dialogs, ComCtrls, StdCtrls, Menus, WinSkinForm, WinSkinData,'
          
            '   Buttons, Grids, ToolWin, ExtCtrls, ImgList, ExtDlgs, WinSkinS' +
            'tore;'
          ''
          'type'
          '  TForm1 = class(TForm)'
          '    PageControl1: TPageControl;'
          '    TabSheet1: TTabSheet;'
          '    TabSheet2: TTabSheet;'
          '    CheckBox1: TCheckBox;'
          '    CheckBox2: TCheckBox;'
          '    RadioButton1: TRadioButton;'
          '    RadioButton2: TRadioButton;'
          '    StatusBar1: TStatusBar;'
          '    MainMenu1: TMainMenu;'
          '    File1: TMenuItem;'
          '    DialogM: TMenuItem;'
          '    Help1: TMenuItem;'
          '    Open1: TMenuItem;'
          '    Save1: TMenuItem;'
          '    Close1: TMenuItem;'
          '    N1: TMenuItem;'
          '    Exit1: TMenuItem;'
          '    Skin11: TMenuItem;'
          '    Skin21: TMenuItem;'
          '    Skin31: TMenuItem;'
          '    Content1: TMenuItem;'
          '    Homepage1: TMenuItem;'
          '    About1: TMenuItem;'
          '    sd1: TSkinData;'
          '    ComboBox1: TComboBox;'
          '    Label1: TLabel;'
          '    LoadBtn: TButton;'
          '    Button4: TButton;'
          '    TabSheet3: TTabSheet;'
          '    ListBox1: TListBox;'
          '    BitBtn1: TBitBtn;'
          '    TabSheet4: TTabSheet;'
          '    StringGrid1: TStringGrid;'
          '    SpeedButton1: TSpeedButton;'
          '    Edit1: TEdit;'
          '    ExceptionBtn: TButton;'
          '    MessageBtn: TButton;'
          '    Dialog1: TOpenDialog;'
          '    Panel1: TPanel;'
          '    ProgressBar1: TProgressBar;'
          '    Dialog2: TFontDialog;'
          '    Dialog3: TColorDialog;'
          '    Dialog4: TPrintDialog;'
          '    PrintDialog2: TMenuItem;'
          '    BuildinSkins1: TMenuItem;'
          '    Skin12: TMenuItem;'
          '    Skin22: TMenuItem;'
          '    Skin32: TMenuItem;'
          '    Skin41: TMenuItem;'
          '    Skin51: TMenuItem;'
          '    RichEdit1: TRichEdit;'
          '    ImageList1: TImageList;'
          '    Dialog5: TOpenPictureDialog;'
          '    sd2: TSkinData;'
          '    SkinStore1: TSkinStore;'
          '    Button1: TButton;'
          '    Timer1: TTimer;'
          '    procedure Exit1Click(Sender: TObject);'
          '    procedure Button2Click(Sender: TObject);'
          '    procedure FormCreate(Sender: TObject);'
          '    procedure ComboBox1Click(Sender: TObject);'
          
            '    procedure sf1CaptionBtnClick(Sender: TObject; action: Intege' +
            'r);'
          '    procedure SpeedButton1Click(Sender: TObject);'
          '    procedure LoadBtnClick(Sender: TObject);'
          '    procedure ExceptionBtnClick(Sender: TObject);'
          '    procedure MessageBtnClick(Sender: TObject);'
          '    procedure Skin21Click(Sender: TObject);'
          '    procedure Skin31Click(Sender: TObject);'
          '    procedure PrintDialog2Click(Sender: TObject);'
          '    procedure Skin12Click(Sender: TObject);'
          '    procedure Button1Click(Sender: TObject);'
          '    procedure Timer1Timer(Sender: TObject);'
          '  private'
          '    { Private declarations }'
          '    procedure ReadSkinfile( apath : string );'
          '    procedure Loadskin(aname:string);'