unit1.dfm

delphi皮肤控件,很好的.我正在使用当中

object Form1: TForm1
  Left = 192
  Top = 113
  Width = 482
  Height = 328
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 263
    Width = 474
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = '  Vclskin2.0 Demo http://www.link-rank.com'
    SizeGrip = False
  end
  object PageControl1: TPageControl
    Left = 24
    Top = 8
    Width = 417
    Height = 233
    ActivePage = TabSheet1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Standard Control'
      object SpeedButton1: TSpeedButton
        Left = 264
        Top = 64
        Width = 81
        Height = 22
        Caption = 'SpeedBtn'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          0077777777777774EC0777777777774ECC077000000004ECC077833333334ECC
          33078FB780087CC3B3078F787E70833B73078F8FE7E703B7B3078F8EFE7E037B
          73078F8FEFE708B7B3078F78FEF08B7B73078FB78808B7B7B3078FFFFFFFFFFF
          F30787B7B7B788888877787B7B78777777777788888777777777}
      end
      object ComboBox1: TComboBox
        Left = 16
        Top = 32
        Width = 145
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Text = 'ComboBox1'
      end
      object CheckBox1: TCheckBox
        Left = 16
        Top = 72
        Width = 81
        Height = 17
        Caption = 'CheckBox1'
        Checked = True
        State = cbChecked
        TabOrder = 1
      end
      object CheckBox2: TCheckBox
        Left = 16
        Top = 96
        Width = 81
        Height = 17
        Caption = 'CheckBox1'
        TabOrder = 2
      end
      object RadioButton1: TRadioButton
        Left = 120
        Top = 72
        Width = 89
        Height = 17
        Caption = 'RadioButton1'
        Checked = True
        TabOrder = 3
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 120
        Top = 96
        Width = 89
        Height = 17
        Caption = 'RadioButton1'
        TabOrder = 4
      end
      object ProgressBar1: TProgressBar
        Left = 32
        Top = 160
        Width = 329
        Height = 17
        Min = 0
        Max = 100
        Position = 50
        TabOrder = 5
      end
      object Button1: TButton
        Left = 264
        Top = 32
        Width = 81
        Height = 25
        Caption = 'Skin/Unskin'
        Default = True
        TabOrder = 6
        OnClick = Button1Click
      end
      object BitBtn1: TBitBtn
        Left = 264
        Top = 96
        Width = 81
        Height = 25
        TabOrder = 7
        Kind = bkClose
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TMemo'
      ImageIndex = 1
      object Memo1: TMemo
        Left = 16
        Top = 24
        Width = 377
        Height = 169
        Anchors = [akLeft, akTop, akRight, akBottom]
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TStringGrid'
      ImageIndex = 2
      object StringGrid1: TStringGrid
        Left = 16
        Top = 9
        Width = 377
        Height = 189
        Anchors = [akLeft, akTop, akRight, akBottom]
        ColCount = 10
        RowCount = 20
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'TListbox'
      ImageIndex = 3
      object ListBox1: TListBox
        Left = 32
        Top = 20
        Width = 353
        Height = 169
        ItemHeight = 13
        Items.Strings = (
          
            '//--------------------------------------------------------------' +
            '-------------'
          ''
          '#include <vcl.h>'
          '#pragma hdrstop'
          ''
          '#include "Unit1.h"'
          
            '//--------------------------------------------------------------' +
            '-------------'
          '#pragma package(smart_init)'
          '#pragma link "WinSkinData"'
          '#pragma link "WinSkinStore"'
          '#pragma resource "*.dfm"'
          'TForm1 *Form1;'
          
            '//--------------------------------------------------------------' +
            '-------------'
          '__fastcall TForm1::TForm1(TComponent* Owner)'
          '        : TForm(Owner)'
          '{'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------'
          ''
          'void __fastcall TForm1::FormCreate(TObject *Sender)'
          '{'
          ' SkinData1->LoadFromCollection(SkinStore1,0);'
          ' if (!SkinData1->Active)'
          '   SkinData1->Active = True; '
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------')
        TabOrder = 0
      end
    end
  end
  object SkinData1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab]
    Options = []
    Skin3rd.Strings = (
      'TTBDock=Panel'
      'TTBToolbar=Panel'
      'TImageEnMView=scrollbar'
      'TImageEnView=scrollbar'
      'TRzButton=button'
      'TRzCheckGroup=CheckGroup'
      'TRzRadioGroup=Radiogroup'
      'TRzRadioButton=Radiobutton'
      'TRzCheckBox=Checkbox'
      'TRzButtonEdit=Edit'