unit1.dfm

换肤软件 最新版的呀 最新版的呀 最新版的呀 最新版的呀 最新版的呀

object Form1: TForm1
  Left = 229
  Top = 159
  Width = 487
  Height = 343
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 24
    Top = 16
    Width = 417
    Height = 233
    ActivePage = TabSheet1
    Images = ImageList1
    TabIndex = 0
    TabOrder = 0
    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}
        OnClick = SpeedButton1Click
      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 = 16
        Top = 176
        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'
        TabOrder = 6
        OnClick = Button1Click
      end
      object BitBtn1: TBitBtn
        Left = 264
        Top = 96
        Width = 81
        Height = 25
        TabOrder = 7
        Kind = bkClose
      end
      object TrackBar1: TTrackBar
        Left = 32
        Top = 128
        Width = 150
        Height = 33
        Orientation = trHorizontal
        Frequency = 1
        Position = 0
        SelEnd = 0
        SelStart = 0
        TabOrder = 8
        TickMarks = tmBottomRight
        TickStyle = tsAuto
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TMemo'
      ImageIndex = 1
      DesignSize = (
        409
        204)
      object Memo1: TMemo
        Left = 16
        Top = 24
        Width = 377
        Height = 166
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.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;'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------'
          'void __fastcall TForm1::Copy1Click(TObject *Sender)'
          '{'
          ' SkinData1->LoadFromCollection(SkinStore1,0);'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------'
          'void __fastcall TForm1::Paste1Click(TObject *Sender)'
          '{'
          ' SkinData1->LoadFromCollection(SkinStore1,1);'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------'
          'void __fastcall TForm1::SelectAll1Click(TObject *Sender)'
          '{'
          ' SkinData1->LoadFromCollection(SkinStore1,2);'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------'
          'void __fastcall TForm1::Button1Click(TObject *Sender)'
          '{'
          '   SkinData1->Active = !SkinData1->Active;'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------'
          'void __fastcall TForm1::Skin41Click(TObject *Sender)'
          '{'
          ' SkinData1->LoadFromCollection(SkinStore1,3);'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------'
          'void __fastcall TForm1::Skin51Click(TObject *Sender)'
          '{'
          ' SkinData1->LoadFromCollection(SkinStore1,4);'
          '}'
          
            '//--------------------------------------------------------------' +
            '-------------')
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TStringGrid'
      ImageIndex = 2
      DesignSize = (