ctrls.dfm

themeengine6源码

    ListBox.BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    ListBox.BevelInner = kbvLowered
    ListBox.BevelOuter = kbvLowered
    ListBox.BevelKind = kbkSingle
    ListBox.BevelWidth = 1
    ListBox.BorderWidth = 0
    ListBox.Performance = kspDoubleBuffer
    ListBox.Transparent = False
    ListBox.AllowGrayed = False
    ListBox.AlwaysShowScrlBar = False
    ListBox.Columns = 0
    ListBox.Flat = True
    ListBox.Items.Strings = (
      'Autoexec.bat;bat'
      'Config.sys;sys'
      'Delphi.exe;exe'
      'GDI.exe;exe'
      'GDIPlus.dll;dll'
      'ICQ.exe;exe'
      'MSN.exe;exe'
      'Windows.hlp;hlp')
    ListBox.ItemHeight = 16
    ListBox.ItemIndex = -1
    ListBox.MultiSelect = False
    ListBox.Style = lbOwnerDrawFixed
    ListBox.TopIndex = 0
    ListBox.WordWrap = False
    ListBox.ItemHeight = 16
    ColumnOptions = []
    OnHeaderSectionClick = TeHeaderListBox1HeaderSectionClick
  end
  object TeEffectButton1: TTeEffectButton
    Left = 400
    Top = 32
    Width = 113
    Height = 25
    Performance = kspDoubleBuffer
    BlackAndWhiteGlyph = False
    Caption = 'TeEffectButton1'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 7
    WordWrap = False
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - FadeRectIn'
    Animation.EffectMouseLeave = '[ FADE ] - FadeRectOut'
    SoundOptions = []
  end
  object TeEffectGroupBox1: TTeEffectGroupBox
    Left = 432
    Top = 128
    Width = 169
    Height = 137
    Performance = kspNoBuffer
    CaptionMargin = 12
    Caption = 'TTeEffectGroupBox'
    CheckBoxAlignment = kalLeftJustify
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 8
    UseCheckBox = True
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - Fade'
    Animation.EffectMouseLeave = '[ FADE ] - Fade'
    object TeLabel5: TTeLabel
      Left = 15
      Top = 76
      Width = 87
      Height = 13
      Performance = kspNoBuffer
      Caption = 'TTeEffectSpinEdit'
      Color = clBtnFace
      FocusControl = TeEffectSpinEdit1
      ParentColor = False
      ThemeObject = 'default'
    end
    object TeLabel7: TTeLabel
      Left = 15
      Top = 105
      Width = 100
      Height = 13
      Performance = kspNoBuffer
      Caption = 'TTeEffectSpinButton'
      Color = clBtnFace
      FocusControl = TeEffectSpinButton1
      ParentColor = False
      ThemeObject = 'default'
    end
    object TeEffectEditButton1: TTeEffectEditButton
      Left = 15
      Top = 23
      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 = 0
      Text = 'TeEffectEditButton1'
      ThemeObject = 'default'
      ParentColor = False
      ButtonAlign = baRight
      NumGlyphs = 1
      ButtonCursor = crDefault
      ButtonTransparent = False
      ButtonTabStop = False
      ButtonShowHint = False
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      ButtonData = (
        False
        0
        ''
        ''
        False
        False
        19)
    end
    object TeEffectSpinEdit1: TTeEffectSpinEdit
      Left = 119
      Top = 76
      Width = 41
      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 = 1
      Text = '0'
      ThemeObject = 'default'
      ParentColor = False
      ButtonAlign = baRight
      ButtonTransparent = False
      ButtonShowHint = False
      ButtonWidth = 15
      DownGlyph.Data = {
        0E010000424D0E01000000000000360000002800000009000000060000000100
        200000000000D800000000000000000000000000000000000000008080000080
        8000008080000080800000808000008080000080800000808000008080000080
        8000008080000080800000808000000000000080800000808000008080000080
        8000008080000080800000808000000000000000000000000000008080000080
        8000008080000080800000808000000000000000000000000000000000000000
        0000008080000080800000808000000000000000000000000000000000000000
        0000000000000000000000808000008080000080800000808000008080000080
        800000808000008080000080800000808000}
      EnabledSlider = False
      UpGlyph.Data = {
        0E010000424D0E01000000000000360000002800000009000000060000000100
        200000000000D800000000000000000000000000000000000000008080000080
        8000008080000080800000808000008080000080800000808000008080000080
        8000000000000000000000000000000000000000000000000000000000000080
        8000008080000080800000000000000000000000000000000000000000000080
        8000008080000080800000808000008080000000000000000000000000000080
        8000008080000080800000808000008080000080800000808000000000000080
        8000008080000080800000808000008080000080800000808000008080000080
        800000808000008080000080800000808000}
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      ButtonData = (
        False
        0
        ''
        ''
        False
        False
        15)
    end
    object TeEffectSpinButton1: TTeEffectSpinButton
      Left = 145
      Top = 105
      Width = 15
      Height = 21
      Performance = kspNoBuffer
      SpinAlign = saRight
      DownGlyph.Data = {
        0E010000424D0E01000000000000360000002800000009000000060000000100
        200000000000D800000000000000000000000000000000000000008080000080
        8000008080000080800000808000008080000080800000808000008080000080
        8000008080000080800000808000000000000080800000808000008080000080
        8000008080000080800000808000000000000000000000000000008080000080
        8000008080000080800000808000000000000000000000000000000000000000
        0000008080000080800000808000000000000000000000000000000000000000
        0000000000000000000000808000008080000080800000808000008080000080
        800000808000008080000080800000808000}
      EnabledSlider = False
      Increment = 1
      Max = 100
      Min = 0
      Position = 0
      ThemeObject = 'default'
      UpGlyph.Data = {
        0E010000424D0E01000000000000360000002800000009000000060000000100
        200000000000D800000000000000000000000000000000000000008080000080
        8000008080000080800000808000008080000080800000808000008080000080
        8000000000000000000000000000000000000000000000000000000000000080
        8000008080000080800000000000000000000000000000000000000000000080
        8000008080000080800000808000008080000000000000000000000000000080
        8000008080000080800000808000008080000080800000808000000000000080
        8000008080000080800000808000008080000080800000808000008080000080
        800000808000008080000080800000808000}
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      SoundOptions = []
    end
    object TeEffectComboBox1: TTeEffectComboBox
      Left = 15
      Top = 48
      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 = 'First'
      ThemeObject = 'default'
      AutoComplete = False
      ComboStyle = kcsDropDownList
      DropDownCount = 8
      ItemHeight = 15
      Items.Strings = (
        'First'
        'Second'
        'Third')
      Flat = True
      ItemIndex = 0
      ListStyle = lbStandard
      ShowCheckBoxes = False
      WordWrap = False
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      SoundOptions = []
      WaveClickIndex = 0
      WaveInIndex = 0
      WaveOutIndex = 0
    end
  end
  object SeSkinForm1: TTeForm
    Animation.EffectKind = '[ RANDOM ] - Random selection'
    BorderIcons = [kbiClose, kbiSystemMenu, kbiMaximize, kbiHelp, kbiRollup]
    BorderStyle = kbsDialog
    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 = 14
    Top = 238
  end
  object TePopupMenu1: TTePopupMenu
    PopupMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    Left = 520
    Top = 32
    object CustomItem1: TTeItem
      Caption = 'CustomItem1'
      Scrolled = False
      ScrollCount = 0
    end
    object CustomItem2: TTeItem
      Caption = 'CustomItem2'
      Scrolled = False
      ScrollCount = 0
    end
  end
end