main.dfm

themeengine6源码

  object SeSkinButton2: TTeButton
    Left = 30
    Top = 310
    Width = 103
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton2Click
    BlackAndWhiteGlyph = False
    Caption = 'Animation'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 8
    Transparent = True
    WordWrap = False
  end
  object SeSkinButton3: TTeButton
    Left = 10
    Top = 182
    Width = 103
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton3Click
    BlackAndWhiteGlyph = False
    Caption = 'Controls #3'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 9
    Transparent = True
    WordWrap = False
  end
  object SeSkinButton4: TTeButton
    Left = 154
    Top = 310
    Width = 103
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton4Click
    BlackAndWhiteGlyph = False
    Caption = 'Hints...'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 10
    Transparent = True
    WordWrap = False
  end
  object SeSkinButton5: TTeButton
    Left = 154
    Top = 274
    Width = 103
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton5Click
    BlackAndWhiteGlyph = False
    Caption = 'Messages...'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 11
    Transparent = True
    WordWrap = False
  end
  object SeSkinButton6: TTeButton
    Left = 276
    Top = 272
    Width = 103
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton6Click
    BlackAndWhiteGlyph = False
    Caption = 'Shadow'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 12
    Transparent = True
    WordWrap = False
  end
  object SeSkinButton7: TTeButton
    Left = 10
    Top = 220
    Width = 103
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton7Click
    BlackAndWhiteGlyph = False
    Caption = 'Controlbar'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 13
    Transparent = True
    WordWrap = False
  end
  object SeSkinButton8: TTeButton
    Left = 276
    Top = 310
    Width = 103
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton8Click
    BlackAndWhiteGlyph = False
    Caption = 'Edits...'
    FontOptions.Bold = False
    FontOptions.Italic = False
    FontOptions.SizeDelta = 0
    FontOptions.FontColor = clNone
    FontOptions.StrikeOut = False
    FontOptions.Underline = False
    ThemeObject = 'default'
    TabOrder = 14
    Transparent = True
    WordWrap = False
  end
  object SeSkinCheckBox1: TTeCheckBox
    Left = 122
    Top = 352
    Width = 119
    Height = 20
    Performance = kspDoubleBuffer
    OnClick = SeSkinCheckBox1Click
    Caption = 'Disable skin'
    AllowGrayed = False
    Alignment = kalLeftJustify
    Checked = False
    Spacing = 5
    State = kcbsUnChecked
    ThemeObject = 'default'
    TabOrder = 15
    Transparent = True
    WordWrap = False
  end
  object TeThemeSwitcher1: TTeThemeSwitcher
    Left = 124
    Top = 36
    Width = 185
    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 = []
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    ReadOnly = True
    TabOrder = 16
    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 = SeSkinEngine1
  end
  object SeSkinEngine1: TTeThemeEngine
    DeltaHue = 0
    DeltaBrightness = 0
    ThemeFile = '..\..\..\themes\pixel_nirvana.mskn'
    ThemeList = TeThemeList1
    ThemeBuilding = 'No theme'
    Version = '4.05'
    Left = 204
    Top = 108
  end
  object SeSkinForm1: TTeForm
    Animation.EffectKind = '[ RANDOM ] - Random selection'
    BorderIcons = [kbiClose, kbiSystemMenu, kbiMinimize, kbiMaximize, kbiRollup, kbiTray]
    BorderStyle = kbsStandard
    MenuBar = SeSkinMenuBar1
    SystemMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TrayMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    Performance = ksfpNoBuffer
    StayOnTop = False
    StretchBackground = False
    WindowState = kwsNormal
    ThemeObject = 'default'
    Left = 236
    Top = 108
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'xskn'
    Filter = 'Skins (*.xskn)|*.xskn'
    Title = 'Load Skin'
    Left = 272
    Top = 78
  end
  object TeThemeList1: TTeThemeList
    Themes = <
      item
        ThemeStore = 'ProfSkin'
        Tag = 0
        ThemeStream = {