menu.dfm

themeengine6源码

object frmMenu: TfrmMenu
  Left = 378
  Top = 218
  AutoScroll = False
  BorderIcons = [biMinimize, biMaximize]
  Caption = 'frmMenu'
  ClientHeight = 253
  ClientWidth = 457
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 146
    Top = 40
    Width = 124
    Height = 13
    Caption = 'Click to show PopupMenu'
    Transparent = True
  end
  object KsBlendGroupBox1: TTeGroupBox
    Left = 158
    Top = 96
    Width = 137
    Height = 115
    Performance = kspNoBuffer
    CaptionMargin = 12
    Caption = 'Blend'
    CheckBoxAlignment = kalLeftJustify
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 0
    UseCheckBox = False
    object Label1: TLabel
      Left = 14
      Top = 58
      Width = 69
      Height = 13
      Caption = 'Value (0..255):'
      Transparent = True
    end
    object CheckBox1: TTeCheckBox
      Left = 12
      Top = 24
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = CheckBox1Click
      Caption = 'Blend Enabled'
      AllowGrayed = False
      Alignment = kalLeftJustify
      Checked = False
      Spacing = 5
      State = kcbsUnChecked
      ThemeObject = 'default'
      TabOrder = 0
      Transparent = True
      WordWrap = False
    end
    object SeSkinEdit1: TTeEdit
      Left = 12
      Top = 80
      Width = 101
      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'
      TabOrder = 1
      Text = '150'
      ThemeObject = 'default'
    end
    object SeSkinSpinButton1: TTeSpinButton
      Left = 113
      Top = 80
      Width = 15
      Height = 23
      Performance = kspNoBuffer
      Associate = SeSkinEdit1
      SpinAlign = saRight
      DownGlyph.Data = {
        BA000000424DBA00000000000000420000002800000009000000060000000100
        1000030000007800000000000000000000000000000000000000007C0000E003
        00001F0000000042004200420042004200420042004200420000004200420042
        0042000000420042004200420000004200420042000000000000004200420042
        0000004200420000000000000000000000420042000000420000000000000000
        000000000000004200000042004200420042004200420042004200420000}
      EnabledSlider = False
      Increment = 1
      Max = 255
      Min = 0
      Position = 150
      ThemeObject = 'default'
      UpGlyph.Data = {
        BA000000424DBA00000000000000420000002800000009000000060000000100
        1000030000007800000000000000000000000000000000000000007C0000E003
        00001F0000000042004200420042004200420042004200420000004200000000
        0000000000000000000000420000004200420000000000000000000000420042
        0000004200420042000000000000004200420042000000420042004200420000
        004200420042004200000042004200420042004200420042004200420000}
      OnChanging = SeSkinSpinButton1Changing
    end
  end
  object KsBlendGroupBox2: TTeGroupBox
    Left = 8
    Top = 98
    Width = 139
    Height = 113
    Performance = kspNoBuffer
    CaptionMargin = 12
    Caption = 'Style'
    CheckBoxAlignment = kalLeftJustify
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 1
    UseCheckBox = False
    object KsBlendCheckBox2: TTeCheckBox
      Left = 14
      Top = 50
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = KsBlendCheckBox2Click
      Caption = 'Drop Shadow'
      AllowGrayed = False
      Alignment = kalLeftJustify
      Checked = True
      Spacing = 5
      State = kcbsChecked
      ThemeObject = 'default'
      TabOrder = 0
      Transparent = True
      WordWrap = False
    end
    object KsBlendCheckBox1: TTeCheckBox
      Left = 14
      Top = 24
      Width = 111
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = KsBlendCheckBox1Click
      Caption = 'Bottom Align'
      AllowGrayed = False
      Alignment = kalLeftJustify
      Checked = False
      Spacing = 5
      State = kcbsUnChecked
      ThemeObject = 'default'
      TabOrder = 1
      Transparent = True
      WordWrap = False
    end
  end
  object KsBlendGroupBox3: TTeGroupBox
    Left = 304
    Top = 96
    Width = 141
    Height = 115
    Performance = kspNoBuffer
    CaptionMargin = 12
    Caption = 'Menu Animation'
    CheckBoxAlignment = kalLeftJustify
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 2
    UseCheckBox = False
    object KsBlendRadioButton1: TTeRadioButton
      Left = 12
      Top = 20
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = KsBlendRadioButton1Click
      Caption = 'None'
      Alignment = kalLeftJustify
      Checked = False
      GroupIndex = 3
      Spacing = 5
      ThemeObject = 'default'
      TabOrder = 0
      Transparent = True
      WordWrap = False
    end
    object KsBlendRadioButton2: TTeRadioButton
      Left = 12
      Top = 42
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = KsBlendRadioButton2Click
      Caption = 'Fade Animation'
      Alignment = kalLeftJustify
      Checked = True
      GroupIndex = 3
      Spacing = 5
      ThemeObject = 'default'
      TabOrder = 1
      TabStop = True
      Transparent = True
      WordWrap = False
    end
    object KsBlendRadioButton3: TTeRadioButton
      Left = 12
      Top = 64
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = KsBlendRadioButton3Click
      Caption = 'Slide Animation'
      Alignment = kalLeftJustify
      Checked = False
      GroupIndex = 3
      Spacing = 5
      ThemeObject = 'default'
      TabOrder = 2
      Transparent = True
      WordWrap = False
    end
    object KsBlendRadioButton4: TTeRadioButton
      Left = 12
      Top = 86
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      OnClick = KsBlendRadioButton4Click
      Caption = 'Rect Animation'
      Alignment = kalLeftJustify
      Checked = False
      GroupIndex = 3
      Spacing = 5
      ThemeObject = 'default'
      TabOrder = 3
      Transparent = True
      WordWrap = False
    end
  end
  object SeSkinMenuBar1: TTeMenuBar
    Left = 0
    Top = 0
    Width = 457
    Height = 20
    Performance = kspNoBuffer
    Align = alTop
    AutoSize = True
    PopupMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    ThemeObject = 'default'
    object File3: TTeItem
      Caption = '&File'
      Scrolled = False
      ScrollCount = 0
      object New3: TTeItem
        Caption = '&New'
        Scrolled = False
        ScrollCount = 0
      end
      object Open3: TTeItem
        Caption = '&Open...'
        Scrolled = False
        ScrollCount = 0
      end
      object Save3: TTeItem
        Caption = '&Save'
        Scrolled = False
        ScrollCount = 0
      end
      object SaveAs3: TTeItem
        Caption = 'Save &As...'
        Scrolled = False
        ScrollCount = 0
      end
      object N7: TTeItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Print3: TTeItem
        Caption = '&Print...'
        Scrolled = False
        ScrollCount = 0
      end
      object PrintSetup3: TTeItem
        Caption = 'P&rint Setup...'
        Scrolled = False
        ScrollCount = 0
      end
      object N8: TTeItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Exit3: TTeItem
        Caption = 'E&xit'
        Scrolled = False
        ScrollCount = 0
        OnClick = Exit3Click
      end
    end
    object Edit3: TTeItem
      Caption = '&Edit'
      Scrolled = False
      ScrollCount = 0
      object Undo3: TTeItem
        Caption = '&Undo'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16474
      end
      object Repeatcommand3: TTeItem
        Caption = '&Repeat <command>'
        Scrolled = False
        ScrollCount = 0
      end
      object N10: TTeItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Cut3: TTeItem
        Caption = 'Cu&t'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16472
      end
      object Copy3: TTeItem
        Caption = '&Copy'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16451
      end
      object Paste3: TTeItem
        Caption = '&Paste'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16470
      end
      object PasteSpecial3: TTeItem
        Caption = 'Paste &Special...'
        Scrolled = False
        ScrollCount = 0
      end
      object N11: TTeItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Find2: TTeItem
        Caption = '&Find...'
        Scrolled = False
        ScrollCount = 0
      end
      object Replace2: TTeItem
        Caption = 'R&eplace...'
        Scrolled = False
        ScrollCount = 0
      end
    end
    object CustomItem4: TTeItem
      Caption = '&Scrolling'
      Scrolled = True
      ScrollCount = 8
      object CustomItem5: TTeItem
        Caption = 'CustomItem5'
        Scrolled = False
        ScrollCount = 0
      end
      object CustomItem6: TTeItem
        Caption = 'CustomItem6'
        Scrolled = False
        ScrollCount = 0
      end
      object CustomItem7: TTeItem
        Caption = 'CustomItem7'
        Scrolled = False
        ScrollCount = 0
      end
      object CustomItem8: TTeItem