main.dfm

themeengine6源码

    end
    object SeSkinLabel2: TTeLabel
      Left = 126
      Top = 98
      Width = 50
      Height = 13
      Caption = 'Tile count:'
      Color = clBtnFace
      Enabled = False
      ParentColor = False
    end
    object CB1: TTeEffectComboBox
      Left = 14
      Top = 72
      Width = 224
      Height = 21
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      Anchors = [akLeft, akTop, akRight]
      BevelWidth = 1
      BorderWidth = 3
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      OnChange = CB1Change
      AutoComplete = False
      ComboStyle = kcsDropDownList
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      SoundOptions = []
    end
    object edTime: TTeEffectSpinEdit
      Left = 72
      Top = 100
      Width = 47
      Height = 21
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      BevelWidth = 1
      BorderWidth = 3
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      Text = '400'
      OnChange = edTimeChange
      ParentColor = False
      Increment = 50
      MaxValue = 3000
      MinValue = 50
      Value = 400
      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 edTileCont: TTeEffectSpinEdit
      Left = 184
      Top = 100
      Width = 53
      Height = 21
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      BevelWidth = 1
      BorderWidth = 3
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      Text = '1'
      OnChange = edTileContChange
      ParentColor = False
      MaxValue = 10
      MinValue = 1
      Value = 1
      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 ckEnableAnimation: TTeEffectCheckBox
      Left = 17
      Top = 30
      Width = 225
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = ckEnableAnimationClick
      Caption = 'Enable the following animation for all control'
      AllowGrayed = False
      Alignment = kalLeftJustify
      Checked = True
      Enabled = False
      Spacing = 5
      State = kcbsChecked
      ThemeObject = 'default'
      TabOrder = 0
      Transparent = True
      WordWrap = False
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      SoundOptions = []
      WaveClickIndex = 0
    end
  end
  object ckSounds: TTeEffectGroupBox
    Left = 472
    Top = 176
    Width = 281
    Height = 90
    CaptionMargin = 12
    Caption = 'Enable Sound effects for controls'
    CheckBoxAlignment = kalLeftJustify
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 13
    UseCheckBox = True
    OnCheckBoxClick = ckSoundsCheckBoxClick
    Animation.Enabled = True
    Animation.Resolution = 10
    Animation.EffectMouseEnter = '[ FADE ] - Fade'
    Animation.EffectMouseLeave = '[ FADE ] - Fade'
    object ckMouseEnter: TTeEffectCheckBox
      Left = 24
      Top = 24
      Width = 201
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = ckSoundsCheckBoxClick
      Caption = 'Enable Mouse Enter sounds'
      AllowGrayed = False
      Alignment = kalLeftJustify
      Checked = True
      Spacing = 5
      State = kcbsChecked
      ThemeObject = 'default'
      TabOrder = 1
      Transparent = True
      WordWrap = False
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      SoundOptions = []
    end
    object ckMouseClick: TTeEffectCheckBox
      Left = 24
      Top = 56
      Width = 185
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = ckSoundsCheckBoxClick
      Caption = 'Enable Mouse Click sounds'
      AllowGrayed = False
      Alignment = kalLeftJustify
      Checked = True
      Spacing = 5
      State = kcbsChecked
      ThemeObject = 'default'
      TabOrder = 2
      Transparent = True
      WordWrap = False
      Animation.Enabled = True
      Animation.Resolution = 10
      Animation.EffectMouseEnter = '[ FADE ] - Fade'
      Animation.EffectMouseLeave = '[ FADE ] - Fade'
      SoundOptions = []
    end
  end
  object ThemeEngine: TTeThemeEngine
    DeltaHue = 0