main.dfm

themeengine6源码

object frmMain: TfrmMain
  Left = 238
  Top = 186
  AutoScroll = False
  BorderIcons = [biMinimize, biMaximize]
  Caption = 'DKJ Extra 2.0 for ThemeEngine Demo'
  ClientHeight = 325
  ClientWidth = 771
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object teLabel1: TTeLabel
    Left = 186
    Top = 44
    Width = 85
    Height = 13
    Caption = 'Available themes:'
    Color = clBtnFace
    ParentColor = False
  end
  object BtnExtCtrls: TTeEffectButton
    Left = 10
    Top = 82
    Width = 159
    Height = 31
    OnClick = CustomItem11Click
    OnMouseEnter = KsBlendButton2MouseEnter
    Caption = 'Extended Controls...'
    Glyph.Data = {
      36050000424D3605000000000000360400002800000010000000100000000100
      08000000000000010000320B0000320B00000001000000010000EFA54A00C684
      6B00BD8C7300CE947300EFB57300FFC67300BD847B00C6947B00B5848400B58C
      8400CE9C8400EFCE94009C9C9C00C6A59C00EFCE9C00F7D69C00C6ADA500F7D6
      A500CEB5AD00D6B5AD00C6BDAD00F7D6AD00D6BDB500DEBDB500DEC6B500E7C6
      B500EFCEB500F7D6B500F7DEB500EFCEBD00F7DEBD00527BC600E7DEC600F7DE
      C600F7E7C600E7CECE00E7D6CE00F7E7D600FFEFD600DEDEDE00FFEFE700FFF7
      E700FFF7EF00FFF7F700FFFFF700FF00FF0039A5FF0000F7FF0094FFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002D2D08080808
      0808080808080808082D2D2D0D261F1F1C15110E0B0B0B0F082D2D2D0D262F1F
      1F0C0C0C0C0C0C0E082D2D2D10282E2F1F1F1F150E0E0B0E082D2D2D1029252E
      302F1F1F150E0E0B082D2D2D121F1F1F1F302F1F1F0C0C0E082D2D2D132E302F
      2F2F2F2F1F1F1111082D2D2D16312E302F1F1F22211E1B15082D2D2D1631272E
      302F1F1F0C0C0C1C082D2D2D1731312E302F2F1F1F21211B082D2D2D18313131
      2E302F2F1F1F2014082D2D2D1931270C0C2E302F2F1F1F09082D2D2D19313131
      3131312C23020400012D2D2D1D31313131313131240705032D2D2D2D192B2A2A
      2A2A2A2A23070A2D2D2D2D2D191A1A1A1A19191A16062D2D2D2D}
    TabOrder = 1
    Transparent = True
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - Fade'
    Animation.EffectMouseLeave = '[ FADE ] - Fade'
    SoundOptions = []
  end
  object BtnExtFileCtrls: TTeEffectButton
    Left = 8
    Top = 122
    Width = 161
    Height = 31
    OnClick = BtnExtFileCtrlsClick
    OnMouseEnter = BtnExtFileCtrlsMouseEnter
    Caption = 'Extended File Controls...'
    TabOrder = 2
    Transparent = True
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - Fade'
    Animation.EffectMouseLeave = '[ FADE ] - Fade'
    SoundOptions = []
  end
  object NgGroupBox1: TTeGroupBox
    Left = 188
    Top = 74
    Width = 267
    Height = 95
    CaptionMargin = 12
    Caption = 'Description'
    CheckBoxAlignment = kalLeftJustify
    Checked = False
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 9
    UseCheckBox = False
    object Label1: TLabel
      Left = 14
      Top = 22
      Width = 243
      Height = 59
      AutoSize = False
      Caption = 'Welcome to DKJ Extra Sample Application!'
      Transparent = True
      WordWrap = True
    end
  end
  object SeSkinMenuBar1: TTeMenuBar
    Left = 0
    Top = 0
    Width = 771
    Height = 19
    Align = alTop
    AutoSize = True
    Images = ImageList1
    PopupMenuOptions.Blending.Value = 225
    ThemeObject = 'default'
    PopupThemeObject = 'default'
    object CustomItem10: TTeItem
      Caption = '&Demos'
      Images = ImageList1
      object CustomItem15: TTeItem
        Caption = '&Extended Controls'
        OnClick = CustomItem11Click
      end
      object CustomItem2: TTeItem
        Caption = 'File Controls'
        OnClick = BtnExtFileCtrlsClick
      end
      object CustomItem3: TTeItem
        Caption = 'Full Screen Form'
        OnClick = btnFullScreenClick
      end
      object CustomItem4: TTeItem
        Caption = 'File Edits'
        OnClick = btnFileEditsClick
      end
      object CustomItem5: TTeItem
        Caption = 'Box Controls'
        OnClick = btnBoxCtrlsClick
      end
      object CustomItem18: TTeItem
        Caption = 'Exit'
        ImageIndex = 1
        OnClick = CustomItem18Click
      end
    end
    object CustomItem11: TTeItem
      Caption = '&Help'
      ImageIndex = 3
      Images = ImageList1
      object CustomItem12: TTeItem
        Caption = 'KS Development Site...'
        ImageIndex = 4
        OnClick = CustomItem7Click
      end
      object CustomItem13: TTeItem
        Caption = '-'
      end
      object CustomItem14: TTeItem
        Caption = 'About...'
        ImageIndex = 0
        OnClick = CustomItem9Click
      end
    end
  end
  object btnLoad: TTeEffectButton
    Left = 10
    Top = 42
    Width = 159
    Height = 31
    OnClick = btnLoadClick
    OnMouseEnter = btnLoadMouseEnter
    Caption = 'Load Theme...'
    ImageIndex = 5
    Images = ImageList1
    TabOrder = 0
    Transparent = True
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - Fade'
    Animation.EffectMouseLeave = '[ FADE ] - Fade'
    SoundOptions = []
  end
  object btnExit: TTeEffectButton
    Left = 10
    Top = 286
    Width = 159
    Height = 31
    OnClick = CustomItem18Click
    Anchors = [akLeft, akBottom]
    Caption = 'E&xit'
    ImageIndex = 1
    Images = ImageList1
    TabOrder = 6
    Transparent = True
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - Pixel fade'
    Animation.EffectMouseLeave = '[ FADE ] - Pixel line'
    SoundOptions = []
  end
  object teGroupBox1: TTeGroupBox
    Left = 186
    Top = 176
    Width = 267
    Height = 65
    CaptionMargin = 12
    Caption = 'Change brightness'
    CheckBoxAlignment = kalLeftJustify
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 10
    UseCheckBox = False
    object tbBrightness: TTeTrackBar
      Left = 16
      Top = 18
      Width = 237
      Height = 35
      Performance = kspDoubleBuffer
      LineSize = 10
      Max = 100
      Min = -100
      Orientation = ktoHorizontal
      PageSize = 30
      Position = 0
      Frequency = 10
      TabOrder = 0
      Transparent = True
      ThemeObject = 'default'
      OnChange = BrightnessChange
    end
  end