unit1.dfm

themeengine6源码

        Width = 8
        Height = 37
        Performance = kspNoBuffer
      end
      object TeSpeedDivider3: TTeSpeedDivider
        Left = 195
        Top = 2
        Width = 8
        Height = 37
        Performance = kspNoBuffer
      end
      object TeSpeedContainer1: TTeSpeedContainer
        Left = 203
        Top = 2
        Width = 162
        Height = 37
        Performance = kspNoBuffer
        object TeThemeSwitcher1: TTeThemeSwitcher
          Left = 3
          Top = 10
          Width = 153
          Height = 21
          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 = 0
          Text = '<Theme Switcher>'
          ThemeObject = 'default'
          AutoComplete = False
          ComboStyle = kcsDropDownList
          DropDownCount = 8
          ItemHeight = 18
          Items.Strings = (
            '<Theme Switcher>')
          Flat = True
          ItemIndex = 0
          ListStyle = lbStandard
          ShowCheckBoxes = False
          WordWrap = False
          TextNoTheme = 'No theme'
          TextBrowse = 'Browse...'
          ThemeEngine = TeThemeEngine1
        end
      end
    end
    object TeToolBar2: TTeToolBar
      Left = 65
      Top = 47
      Width = 301
      Height = 29
      Performance = kspNoBuffer
      BorderWidth = 2
      ButtonWidth = 70
      ButtonAutoSize = False
      DividerWidth = 8
      ThemeObject = 'default'
      object tefxSpeedButton6: TtefxSpeedButton
        Left = 2
        Top = 2
        Width = 70
        Height = 25
        Performance = kspNoBuffer
        OnClick = EditCopy1Execute
        Action = EditCopy1
        BlackAndWhiteGlyph = False
        Caption = '&Copy'
        Flat = True
        ThemeObject = 'default'
        FXEnabled = True
        FXTime = 100
        FXMouseEnter = '[ FADE ] - SmoothDiagonalIn'
        FXMouseLeave = '[ FADE ] - SmoothDiagonalOut'
      end
      object tefxSpeedButton9: TtefxSpeedButton
        Left = 72
        Top = 2
        Width = 70
        Height = 25
        Performance = kspNoBuffer
        OnClick = EditCut1Execute
        Action = EditCut1
        BlackAndWhiteGlyph = False
        Caption = 'Cu&t'
        Flat = True
        ThemeObject = 'default'
        FXEnabled = True
        FXTime = 100
        FXMouseEnter = '[ FADE ] - SmoothDiagonalIn'
        FXMouseLeave = '[ FADE ] - SmoothDiagonalOut'
      end
      object tefxSpeedButton8: TtefxSpeedButton
        Left = 142
        Top = 2
        Width = 70
        Height = 25
        Performance = kspNoBuffer
        OnClick = EditPaste1Execute
        Action = EditPaste1
        BlackAndWhiteGlyph = False
        Caption = '&Paste'
        Flat = True
        ThemeObject = 'default'
        FXEnabled = True
        FXTime = 100
        FXMouseEnter = '[ FADE ] - SmoothDiagonalIn'
        FXMouseLeave = '[ FADE ] - SmoothDiagonalOut'
      end
      object tefxSpeedButton7: TtefxSpeedButton
        Left = 212
        Top = 2
        Width = 70
        Height = 25
        Performance = kspNoBuffer
        OnClick = EditUndo1Execute
        Action = EditUndo1
        BlackAndWhiteGlyph = False
        Caption = '&Undo'
        Flat = True
        ThemeObject = 'default'
        FXEnabled = True
        FXTime = 100
        FXMouseEnter = '[ FADE ] - SmoothDiagonalIn'
        FXMouseLeave = '[ FADE ] - SmoothDiagonalOut'
      end
    end
  end
  object TeComboBox1: TTeComboBox
    Left = 90
    Top = 92
    Width = 261
    Height = 21
    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
    ThemeObject = 'default'
    OnChange = TeSpinEdit1Change
    AutoComplete = False
    ComboStyle = kcsDropDownList
    DropDownCount = 8
    ItemHeight = 15
    Flat = True
    ItemIndex = -1
    ListStyle = lbStandard
    ShowCheckBoxes = False
    WordWrap = False
  end
  object TeComboBox2: TTeComboBox
    Left = 90
    Top = 118
    Width = 261
    Height = 21
    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 = 4
    ThemeObject = 'default'
    OnChange = TeSpinEdit1Change
    AutoComplete = False
    ComboStyle = kcsDropDownList
    DropDownCount = 8
    ItemHeight = 15
    Flat = True
    ItemIndex = -1
    ListStyle = lbStandard
    ShowCheckBoxes = False
    WordWrap = False
  end
  object TeSpinEdit1: TTeSpinEdit
    Left = 52
    Top = 144
    Width = 93
    Height = 21
    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