unit1.dfm

Delphi的skin.v3.84皮肤美化包 可以使delphi的界面很美观

          'procedure TForm1.Button2Click(Sender: TObject);'
          'begin'
          '//   button1.enabled:= not button1.enabled; '
          '//    sf1.dolog('#39'**************'#39');'
          'end;'
          ''
          'procedure TForm1.ReadSkinfile( apath : string );'
          'var'
          '  sts: Integer ;'
          '  SR: TSearchRec;'
          ''
          '  procedure AddFile;'
          '  begin'
          '    combobox1.items.add(sr.name);'
          '  end;'
          ''
          'begin'
          '  sts := FindFirst( apath + '#39'*.skn'#39' , faAnyFile , SR );'
          '  if sts = 0 then begin'
          '      if ( SR.Name <> '#39'.'#39' ) and ( SR.Name <> '#39'..'#39' ) then begin'
          '          if pos('#39'.'#39', SR.Name) <> 0 then'
          '            Addfile;'
          '      end;'
          '      while FindNext( SR ) = 0 do begin'
          
            '          if ( SR.Name <> '#39'.'#39' ) and ( SR.Name <> '#39'..'#39' ) then beg' +
            'in'
          '              //Put User Feedback here if desired'
          '              Application.ProcessMessages;'
          '              if Pos('#39'.'#39', SR.Name) <> 0 then  Addfile;'
          '          end;'
          '      end;'
          '  end ;'
          '  FindClose( SR ) ;'
          'end;'
          ''
          'procedure TForm1.FormCreate(Sender: TObject);'
          'begin'
          '    root:= ExtractFilePath(ParamStr(0));'
          '    readskinfile('#39'..\skins\'#39');'
          'end;'
          ''
          'procedure TForm1.ComboBox1Click(Sender: TObject);'
          'begin'
          '   sd1.skinfile:='#39'..\skins\'#39'+combobox1.text;'
          'end;'
          ''
          'end.')
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Grid'
      ImageIndex = 3
      object StringGrid1: TStringGrid
        Left = 16
        Top = 8
        Width = 353
        Height = 161
        DefaultRowHeight = 18
        FixedCols = 0
        TabOrder = 0
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 286
    Width = 471
    Height = 19
    Panels = <
      item
        Text = '1111'
        Width = 50
      end
      item
        Text = '22222'
        Width = 50
      end
      item
        Text = '33333'
        Width = 50
      end>
    SimplePanel = False
    SimpleText = '111111111111111111'
    SizeGrip = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 245
    Width = 471
    Height = 41
    Align = alBottom
    TabOrder = 2
    object ProgressBar1: TProgressBar
      Left = 16
      Top = 16
      Width = 345
      Height = 16
      Min = 0
      Max = 100
      Position = 50
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 256
    Top = 24
    object DialogM: TMenuItem
      Caption = '&Dialog'
      object Skin11: TMenuItem
        Caption = 'Open Dialog'
        ImageIndex = 0
        OnClick = LoadBtnClick
      end
      object Skin21: TMenuItem
        Caption = 'Font Dialog'
        ImageIndex = 3
        OnClick = Skin21Click
      end
      object Skin31: TMenuItem
        Caption = 'Color Dialog'
        ImageIndex = 7
        OnClick = Skin31Click
      end
      object PrintDialog2: TMenuItem
        Caption = 'Print Dialog'
        ImageIndex = 5
        OnClick = PrintDialog2Click
      end
    end
    object BuildinSkins1: TMenuItem
      Caption = 'Build in Skins'
      object Skin12: TMenuItem
        Caption = 'Skin1'
        OnClick = Skin12Click
      end
      object Skin22: TMenuItem
        Tag = 1
        Caption = 'Skin2'
        OnClick = Skin12Click
      end
      object Skin32: TMenuItem
        Tag = 2
        Caption = 'Skin3'
        OnClick = Skin12Click
      end
    end
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open'
      end
      object Save1: TMenuItem
        Caption = '&Save'
      end
      object Close1: TMenuItem
        Caption = '&Close'
        ImageIndex = 11
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Content1: TMenuItem
        Caption = 'Content'
      end
      object Homepage1: TMenuItem
        Caption = 'Homepage'
        ImageIndex = 9
      end
      object About1: TMenuItem
        Caption = 'About'
        ImageIndex = 11
      end
    end
  end
  object sd1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcSystemMenu]
    Skin3rd.Strings = (
      'TTBDock=Panel'
      'TTBToolbar=Panel'
      'TImageEnMView=scrollbar'
      'TImageEnView=scrollbar'
      'TRzButton=button'
      'TRzCheckGroup=CheckGroup'
      'TRzRadioGroup=Radiogroup'
      'TRzRadioButton=Radiobutton'
      'TRzCheckBox=Checkbox'
      'TDBCheckboxEh=Checkbox'
      'TDBCheckboxEh=Checkbox'
      'TLMDCHECKBOX=Checkbox'
      'TLMDDBCHECKBOX=Checkbox'
      'TLMDRadiobutton=Radiobutton'
      'TLMDGROUPBOX=Panel'
      'TLMDSIMPLEPANEL=Panel'
      'TLMDDBCalendar=Panel'
      'TLMDButtonPanel=Panel'
      'TLMDLMDCalculator=Panel'
      'TLMDHeaderPanel=Panel'
      'TLMDTechnicalLine=Panel'
      'TLMDLMDClock=Panel'
      'TLMDTrackbar=trackbar'
      'TLMDListCombobox=combobox'
      'TLMDCheckListCombobox=combobox'
      'TLMDHeaderListCombobox=combobox'
      'TLMDImageCombobox=combobox'
      'TLMDColorCombobox=combobox'
      'TLMDFontCombobox=combobox'
      'TLMDFontSizeCombobox=combobox'
      'TLMDFontSizeCombobox=combobox'
      'TLMDPrinterCombobox=combobox'
      'TLMDDriveCombobox=combobox'
      'TLMDCalculatorComboBox=combobox'
      'TLMDTrackBarComboBox=combobox'
      'TLMDCalendarComboBox=combobox'
      'TLMDRADIOGROUP=radiogroup'
      'TLMDCheckGroup=CheckGroup'
      'TLMDDBRADIOGROUP=radiogroup'
      'TLMDDBCheckGroup=CheckGroup'
      'TLMDEDIT=Edit'
      'TLMDMASKEDIT=Edit'
      'TLMDBROWSEEDIT=Edit'
      'TLMDEXTSPINEDIT=Edit'
      'TLMDCALENDAREDIT=Edit'
      'TLMDFILEOPENEDIT=Edit'
      'TLMDFILESAVEEDIT=Edit'
      'TLMDCOLOREDIT=Edit'
      'TLMDDBEDIT=Edit'
      'TLMDDBMASKEDIT=Edit'
      'TLMDDBEXTSPINEDIT=Edit'
      'TLMDDBSPINEDIT=Edit'
      'TLMDDBEDITDBLookup=Edit'
      'TLMDEDITDBLookup=Edit'
      'TDBLookupCombobox=Combobox'
      'TWWDBCombobox=Combobox'
      'TWWDBLookupCombo=Combobox'
      'TWWDBCombobox=Combobox'
      'TWWKeyCombo=Combobox'
      'TWWDBDateTimePicker=Combobox'
      'TWWRADIOGROUP=radiogroup'
      'TDXDBPICKEDIT=Combobox'
      'TDXDBCALCEDIT=Combobox'
      'TDXDBIMAGEEDIT=Combobox'
      'TDXDBPOPUPEDIT=Combobox'
      'TDXDBEXTLOOKUPEDIT=Combobox'
      'TDXDBLOOKUPEDIT=Combobox'
      'TDXDBDATEEDIT=Combobox'
      'TDXDATEEDIT=Combobox'
      'TDXPICKEDIT=Combobox'
      'TDXPOPUPEDIT=Combobox'
      'TDXDBCURRENCYEDIT=Edit'
      'TDXDBEDIT=Edit'
      'TDXDBMASKEDIT=Edit'
      'TDXDBHYPERLINKEDIT=Edit'
      'TDXEDIT=Edit'
      'TDXMASKEDIT=Edit'
      'TWWDBEDIT=Edit'
      'TDXBUTTONEDIT=Edit'
      'TDXCURRENCYEDIT=Edit'
      'TDXHYPERLINKEDIT=Edit'
      'TOVCPICTUREFIELD=Edit'
      'TOVCDBPICTUREFIELD=Edit'
      'TOVCSLIDEREDIT=Edit'
      'TOVCDBSLIDEREDIT=Edit'
      'TOVCSIMPLEFIELD=Edit'
      'TOVCDBSIMPLEFIELD=Edit'
      'TO32DBFLEXEDIT=Edit'
      'TOVCNUMERICFIELD=Edit'