unit1.dfm

SUISkin 是为Delphi和C++Builder开发的最易用的界面增强VCL组件包。它能完全自动的为您的应用程序添加支持换肤功能

object Form1: TForm1
  Left = 258
  Top = 242
  Width = 553
  Height = 378
  Caption = 'SUISkin demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 16
    Top = 48
    Width = 521
    Height = 257
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Normal controls 1'
      object Button1: TButton
        Left = 24
        Top = 16
        Width = 89
        Height = 25
        Caption = 'Load skin...'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 128
        Top = 16
        Width = 89
        Height = 25
        Caption = 'Remove skin'
        TabOrder = 1
        OnClick = Button2Click
      end
      object RadioButton1: TRadioButton
        Left = 240
        Top = 16
        Width = 113
        Height = 17
        Caption = 'SUISkin'
        Checked = True
        TabOrder = 2
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 240
        Top = 104
        Width = 113
        Height = 17
        Caption = 'SUIPack'
        TabOrder = 3
      end
      object CheckBox1: TCheckBox
        Left = 264
        Top = 40
        Width = 113
        Height = 17
        Caption = 'Easiest to use'
        Checked = True
        State = cbChecked
        TabOrder = 4
      end
      object CheckBox2: TCheckBox
        Left = 264
        Top = 64
        Width = 225
        Height = 17
        Caption = 'Make your existing project in skin easily'
        Checked = True
        State = cbChecked
        TabOrder = 5
      end
      object CheckBox3: TCheckBox
        Left = 264
        Top = 128
        Width = 193
        Height = 17
        Caption = 'What you see is what you get'
        Checked = True
        State = cbChecked
        TabOrder = 6
      end
      object CheckBox4: TCheckBox
        Left = 264
        Top = 152
        Width = 185
        Height = 17
        Caption = '60+ components'
        Checked = True
        State = cbChecked
        TabOrder = 7
      end
      object CheckBox5: TCheckBox
        Left = 264
        Top = 176
        Width = 217
        Height = 17
        Caption = 'More professional skin implementation'
        Checked = True
        State = cbChecked
        TabOrder = 8
      end
      object BitBtn1: TBitBtn
        Left = 24
        Top = 128
        Width = 89
        Height = 25
        TabOrder = 9
        OnClick = BitBtn1Click
        Kind = bkAll
      end
      object BitBtn2: TBitBtn
        Left = 24
        Top = 168
        Width = 89
        Height = 25
        TabOrder = 10
        OnClick = BitBtn2Click
        Kind = bkHelp
      end
      object Button7: TButton
        Left = 24
        Top = 48
        Width = 193
        Height = 25
        Caption = 'Switch to other '#39'built-in'#39' skins'
        TabOrder = 11
        OnClick = Button7Click
      end
      object Button8: TButton
        Left = 24
        Top = 80
        Width = 193
        Height = 25
        Caption = 'Switch to main built-in skin'
        TabOrder = 12
        OnClick = Button8Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Normal controls 2'
      ImageIndex = 1
      object Memo1: TMemo
        Left = 8
        Top = 16
        Width = 393
        Height = 193
        Lines.Strings = (
          
            'SUISkin is the easiest-to-use VCL skin component for Delphi & C+' +
            '+Builder. It '
          
            'provides you the ability to make skin-supported application auto' +
            'matically. You '
          'will never spend many time on programming skin supports.'
          ''
          
            'Using SUISkin, you don'#39't need make any modification for your exi' +
            'sting projects '
          
            'just drop the skin engine component onto the main form and set s' +
            'ome '
          
            'properties, that'#39's all. It can skin all forms in one application' +
            ' and dialogs '
          
            'automatically. And the skin files can be compiled into the EXE f' +
            'ile so that you '
          
            'don'#39't need distribute the skin files with the EXE. At run-time, ' +
            'you can switch the '
          'skins very easily and you can switch to unskinned easily too.'
          ''
          
            'The skin files for SUISkin are compatible with SUIPack. And the ' +
            'skins are '
          
            'mostly designed by our UI artists. That'#39's means, you can use the' +
            ' professional'
          
            '-UI-designed skins we provided with SUISkin now. Please note, we' +
            ' not only '
          'provide the UI controls, but also UI design!'
          ''
          'Key features:'
          '* Easiest to use - One component for one application only'
          
            '* Fully automatic - Skins all forms and all VCL dialogs automati' +
            'cally'
          '* Professional-UI-designed skins from professional UI artists'
          '* Make your existing project with skin easily'
          '* Switch from skin to unskin easily'
          '* Supports one or more skin files to be built-into the EXE file'
          '* Provides SkinBuilder tool'
          '* Fully MDI supported'
          '* Without requiring any DLL or OCX')
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object ProgressBar1: TProgressBar
        Left = 472
        Top = 16
        Width = 17
        Height = 193
        Min = 0
        Max = 10
        Orientation = pbVertical
        Position = 10
        TabOrder = 1
      end
      object TrackBar1: TTrackBar
        Left = 416
        Top = 8
        Width = 45
        Height = 209
        Orientation = trVertical
        Frequency = 1
        Position = 0
        SelEnd = 0
        SelStart = 0
        TabOrder = 2
        TickMarks = tmBoth
        TickStyle = tsAuto
        OnChange = TrackBar1Change
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Normal controls 3'
      ImageIndex = 2
      object Edit1: TEdit
        Left = 312
        Top = 16