extra_demo_filectrl.dfm

themeengine6源码

      'RCVT.TXT'
      'README'
      'README.COM'
      'README.TXT'
      'REBASE.EXE'
      'RECORD.EXE'
      'REFVIEW.EXE'
      'REGISTER.FRM'
      'REGISTER.TXT'
      'ResExp.exe'
      'RK.EXE'
      'RKSFX.EXE'
      'RTM.EXE'
      'RTMRES.EXE'
      'S2kCtl_1.0.0.30.exe'
      'SANS.CHR'
      'SAVER.EXE'
      'SB16SET.EXE'
      'SBFMDRV.COM'
      'SCANDISK.BAT'
      'SCANDISK.EX~'
      'SFORMAT.EXE'
      'SFORMAT.HLP'
      'SFX.DOC'
      'SFX.TXT'
      'SHED.EXE'
      'SHED.HLP'
      'SHORTC~1.LNK'
      'Shortcut to DDO.lnk'
      'SIMP.CHR'
      'SJDRIVER.SYS'
      'SLDVIEW.EXE'
      'SMARTDRV.EXE'
      'SPEEDISK.EXE'
      'Spy.dpr'
      'Spy.exe'
      'SPYHK55.DLL'
      'SPYXX.CNT'
      'SPYXX.EXE'
      'SPYXX.HLP'
      'SR32TEST.EXE'
      'SR32TEST.REG'
      'STANDARD.S'
      'STRESS.DLL'
      'STRESS.EXE'
      'STRESSHK.DLL'
      'STRESSLG.DLL'
      'SVGA16.BGI'
      'SVGA16M.BGI'
      'SVGA256M.BGI'
      'SVGA32K.BGI'
      'SVGA32KM.BGI'
      'SVGAS3.BGI'
      'SYMCFG.BIN'
      'tar.exe'
      'TASM.EXE'
      'TASM.TAH'
      'TCPROPS.DLL'
      'TECHNOTE.DOC'
      'TECHNOTE.TXT'
      'TELEMAX.DAT'
      'TELEMAX.EXE'
      'TELEMAX.HLP'
      'TELEMAX.INI'
      'TELEMAX.LOG'
      'TELEMAX.NMS'
      'TIF2DIB.EXE'
      'TMP.EXE'
      'TORNADO.NSS'
      'TRACER.EXE'
      'TRIP.CHR'
      'TSTCON32.CNT'
      'TSTCON32.EXE'
      'TSTCON32.HLP'
      'UNDNAME.EXE'
      'UNERASE.EXE'
      'UNERASE.HLP'
      'UNLZEXE.EXE'
      'UNLZEXE7.EXE'
      'UNPAQ.EXE'
      'UNRAR.EXE'
      'UNZIP.EXE'
      'UUIDGEN.EXE'
      'VECTOR.EXE'
      'VESA16.BGI'
      'WHATS.NEW'
      'WHATSNEW.DOC'
      'WHATSNEW.TXT'
      'WINDIFF.EXE'
      'WINDIFF.HLP'
      'WINSETUP.EXE'
      'WINSETUP.INF'
      'WPB2DIB.EXE'
      'WPV2WMF.EXE'
      'WPVIEW.EXE'
      'ZIP2EXE.EXE'
      'ZOOMIN.EXE')
    ItemHeight = 13
    MultiSelect = False
    ShowCheckBoxes = False
    Sorted = True
    ListStyle = lbOwnerDrawFixed
    ThemeObject = 'default'
    TabOrder = 0
    WordWrap = False
    FileEdit = TeLabeledEdit2
  end
  object TeDirectoryListBox1: TTeDirectoryListBox
    Left = 112
    Top = 64
    Width = 145
    Height = 84
    Performance = kspDoubleBuffer
    AllowGrayed = False
    AlwaysShowScrlBar = False
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Columns = 0
    Flat = True
    Items.Strings = (
      'D:\'
      'projects'
      'themeengine'
      'samples'
      'delphi'
      'extra'
      'CVS')
    ItemHeight = 16
    MultiSelect = False
    ShowCheckBoxes = False
    ListStyle = lbOwnerDrawFixed
    ThemeObject = 'default'
    TabOrder = 1
    WordWrap = False
    DirLabel = dirTeLabel1
    FileList = TeFileListBox1
    OnChange = TeDirectoryListBox1Change
  end
  object TeDriveComboBox1: TTeDriveComboBox
    Left = 112
    Top = 32
    Width = 145
    Height = 26
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    ReadOnly = True
    TabOrder = 2
    Text = 'd: [private]'
    ThemeObject = 'default'
    AutoComplete = False
    ComboStyle = kcsDropDownList
    DropDownCount = 8
    ItemHeight = 16
    Items.Strings = (
      'c: [sys]'
      'd: [private]'
      'e: [bin]'
      'f: [dev]'
      'g: [virtual]'
      'h: [usr]'
      'i: []'
      'x: [mirror1]'
      'y: [mirror2]')
    Flat = True
    ItemIndex = 1
    ListStyle = lbOwnerDrawFixed
    ShowCheckBoxes = False
    WordWrap = False
    DirList = TeDirectoryListBox1
    ParentColor = False
  end
  object TeFilterComboBox1: TTeFilterComboBox
    Left = 272
    Top = 32
    Width = 145
    Height = 23
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    ReadOnly = True
    TabOrder = 3
    Text = 'All files (*.*)'
    ThemeObject = 'default'
    AutoComplete = False
    ComboStyle = kcsDropDownList
    DropDownCount = 8
    ItemHeight = 15
    Items.Strings = (
      'All files (*.*)'
      'Pascal files'
      'Text files')
    Flat = True
    ItemIndex = 0
    ListStyle = lbStandard
    ShowCheckBoxes = False
    WordWrap = False
    FileList = TeFileListBox1
    Filter = 'All files (*.*)|*.*|Pascal files|*.pas|Text files|*.txt'
    ParentColor = False
  end
  object TeFileCombo1: TTeFileCombo
    Left = 272
    Top = 88
    Width = 145
    Height = 23
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TabOrder = 4
    ThemeObject = 'default'
    AutoComplete = False
    ComboStyle = kcsDropDown
    DropDownCount = 8
    ItemHeight = 15
    Items.Strings = (
      'AUTOEXEC.BAT'
      'CONFIG.SYS'
      'CWUtilInst.log'
      'PDOXUSRS.NET')
    Flat = True
    ItemIndex = 0
    ListStyle = lbOwnerDrawFixed
    ShowCheckBoxes = False
    Sorted = True
    WordWrap = False
    Directory = 'C:\'
    FileEdit = TeLabeledEdit1
    ParentColor = False
  end
  object TeDriveCombo1: TTeDriveCombo
    Left = 112
    Top = 200
    Width = 145
    Height = 26
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    ReadOnly = True
    TabOrder = 5
    Text = 'd: [private]'
    ThemeObject = 'default'
    AutoComplete = False
    ComboStyle = kcsDropDownList
    DropDownCount = 8
    ItemHeight = 16
    Items.Strings = (
      'c: [sys]'
      'd: [private]'
      'e: [bin]'
      'f: [dev]'
      'g: [virtual]'
      'h: [usr]'
      'i: []'
      'x: [mirror1]'
      'y: [mirror2]')
    Flat = True
    ItemIndex = 1
    ListStyle = lbOwnerDrawFixed
    ShowCheckBoxes = False
    WordWrap = False
    DirList = TeFolderListbox1
    ParentColor = False
  end
  object TeFolderListbox1: TTeFolderListbox
    Left = 112
    Top = 232
    Width = 145
    Height = 106
    Performance = kspDoubleBuffer
    AllowGrayed = False
    AlwaysShowScrlBar = False
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Columns = 0
    Flat = True
    Items.Strings = (
      'C:\'
      'bin'
      'dmn'
      'memtest'
      'phone')
    ItemHeight = 17
    MultiSelect = False
    ShowCheckBoxes = False
    ListStyle = lbOwnerDrawFixed
    ThemeObject = 'default'
    TabOrder = 6
    WordWrap = False
    DirLabel = dirTeLabel2
    FileList = TeFileListBox1
    OnChange = TeDirectoryListBox1Change
  end
  object TeLabeledEdit1: TTeLabeledEdit
    Left = 432
    Top = 88
    Width = 145
    Height = 23
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TabOrder = 7
    Text = 'AUTOEXEC.BAT'
    ThemeObject = 'default'
    LabelPosition = lpAbove
    LabelSpacing = 3
    ParentColor = False
  end
  object TeLabeledEdit2: TTeLabeledEdit
    Left = 432
    Top = 144
    Width = 145
    Height = 23
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TabOrder = 9
    Text = '*.*'
    ThemeObject = 'default'
    LabelPosition = lpAbove
    LabelSpacing = 3
    ParentColor = False
  end
  object TeButton1: TTeEffectButton
    Left = 440
    Top = 320
    Width = 145
    Height = 33
    Performance = kspDoubleBuffer
    OnClick = TeButton1Click
    BlackAndWhiteGlyph = False
    Caption = 'Select Directory...'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 8
    WordWrap = False
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - Fade'
    Animation.EffectMouseLeave = '[ FADE ] - Fade'
    SoundOptions = []
    WaveClickIndex = 0
  end
  object SeSkinForm1: TTeForm
    Animation.EffectKind = '[ RANDOM ] - Random selection'
    BorderIcons = [kbiClose, kbiSystemMenu, kbiMaximize, kbiHelp, kbiRollup]
    BorderStyle = kbsStandard
    Dragging.Sizeable = False
    SystemMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TrayMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    Performance = ksfpNoBuffer
    StayOnTop = False
    StretchBackground = False
    WindowState = kwsNormal
    ThemeObject = 'default'
    Left = 6
    Top = 6
  end
end