menu.dfm

强大的皮肤控件 能做出美观的界面

object frmMenu: TfrmMenu
  Left = 378
  Top = 218
  AutoScroll = False
  BorderIcons = []
  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: TSeSkinGroupBox
    Left = 158
    Top = 96
    Width = 137
    Height = 115
    Performance = kspNoBuffer
    Transparent = True
    CaptionMargin = 12
    TabOrder = 0
    Caption = 'Blend'
    CheckBoxAlignment = ktaLeftJustify
    UseCheckBox = False
    SkinEngine = frmMain.SeSkinEngine1
    SkinObject = 'GroupBox'
    object Label1: TLabel
      Left = 14
      Top = 58
      Width = 69
      Height = 13
      Caption = 'Value (0..255):'
      Transparent = True
    end
    object CheckBox1: TSeSkinCheckBox
      Left = 12
      Top = 24
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      Transparent = True
      OnClick = CheckBox1Click
      Caption = 'Blend Enabled'
      AllowGrayed = False
      Alignment = ktaLeftJustify
      Checked = False
      Spacing = 5
      State = cbUnchecked
      WordWrap = False
      TabOrder = 0
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'CheckBox'
    end
    object SeSkinEdit1: TSeSkinEdit
      Left = 12
      Top = 80
      Width = 101
      Height = 23
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      Transparent = False
      AutoSize = True
      BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
      BevelInner = kbvLowered
      BevelOuter = kbvLowered
      BevelKind = kbkSingle
      BevelWidth = 1
      BorderWidth = 3
      PasswordKind = pkNone
      TabOrder = 1
      Text = '150'
      SkinObject = 'Edit'
    end
    object SeSkinSpinButton1: TSeSkinSpinButton
      Left = 113
      Top = 80
      Width = 15
      Height = 23
      Performance = kspNoBuffer
      Transparent = True
      Associate = SeSkinEdit1
      SpinAlign = saRight
      DownGlyph.Data = {
        BA000000424DBA00000000000000420000002800000009000000060000000100
        1000030000007800000000000000000000000000000000000000007C0000E003
        00001F0000000042004200420042004200420042004200420000004200420042
        0042000000420042004200420000004200420042000000000000004200420042
        0000004200420000000000000000000000420042000000420000000000000000
        000000000000004200000042004200420042004200420042004200420000}
      Increment = 1
      Max = 255
      Min = 0
      Position = 150
      UpGlyph.Data = {
        BA000000424DBA00000000000000420000002800000009000000060000000100
        1000030000007800000000000000000000000000000000000000007C0000E003
        00001F0000000042004200420042004200420042004200420000004200000000
        0000000000000000000000420000004200420000000000000000000000420042
        0000004200420042000000000000004200420042000000420042004200420000
        004200420042004200000042004200420042004200420042004200420000}
      OnChanging = SeSkinSpinButton1Changing
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'SpinButton'
    end
  end
  object KsBlendGroupBox2: TSeSkinGroupBox
    Left = 8
    Top = 98
    Width = 139
    Height = 113
    Performance = kspNoBuffer
    Transparent = True
    CaptionMargin = 12
    TabOrder = 1
    Caption = 'Style'
    CheckBoxAlignment = ktaLeftJustify
    UseCheckBox = False
    SkinEngine = frmMain.SeSkinEngine1
    SkinObject = 'GroupBox'
    object KsBlendCheckBox2: TSeSkinCheckBox
      Left = 14
      Top = 50
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      Transparent = True
      OnClick = KsBlendCheckBox2Click
      Caption = 'Drop Shadow'
      AllowGrayed = False
      Alignment = ktaLeftJustify
      Checked = True
      Spacing = 5
      State = cbChecked
      WordWrap = False
      TabOrder = 0
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'CheckBox'
    end
    object KsBlendCheckBox1: TSeSkinCheckBox
      Left = 14
      Top = 24
      Width = 111
      Height = 20
      Performance = kspDoubleBuffer
      Transparent = True
      OnClick = KsBlendCheckBox1Click
      Caption = 'Bottom Align'
      AllowGrayed = False
      Alignment = ktaLeftJustify
      Checked = False
      Spacing = 5
      State = cbUnchecked
      WordWrap = False
      TabOrder = 1
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'CheckBox'
    end
  end
  object KsBlendGroupBox3: TSeSkinGroupBox
    Left = 304
    Top = 96
    Width = 141
    Height = 115
    Performance = kspNoBuffer
    Transparent = True
    CaptionMargin = 12
    TabOrder = 2
    Caption = 'Menu Animation'
    CheckBoxAlignment = ktaLeftJustify
    UseCheckBox = False
    SkinEngine = frmMain.SeSkinEngine1
    SkinObject = 'GroupBox'
    object KsBlendRadioButton1: TSeSkinRadioButton
      Left = 12
      Top = 20
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      Transparent = True
      OnClick = KsBlendRadioButton1Click
      Caption = 'None'
      Alignment = ktaLeftJustify
      Checked = False
      GroupIndex = 3
      Spacing = 5
      TabOrder = 0
      WordWrap = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'RadioButton'
    end
    object KsBlendRadioButton2: TSeSkinRadioButton
      Left = 12
      Top = 42
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      Transparent = True
      OnClick = KsBlendRadioButton2Click
      Caption = 'Fade Animation'
      Alignment = ktaLeftJustify
      Checked = True
      GroupIndex = 3
      Spacing = 5
      TabOrder = 1
      WordWrap = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'RadioButton'
    end
    object KsBlendRadioButton3: TSeSkinRadioButton
      Left = 12
      Top = 64
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      Transparent = True
      OnClick = KsBlendRadioButton3Click
      Caption = 'Slide Animation'
      Alignment = ktaLeftJustify
      Checked = False
      GroupIndex = 3
      Spacing = 5
      TabOrder = 2
      WordWrap = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'RadioButton'
    end
    object KsBlendRadioButton4: TSeSkinRadioButton
      Left = 12
      Top = 86
      Width = 98
      Height = 20
      Performance = kspDoubleBuffer
      Transparent = True
      OnClick = KsBlendRadioButton4Click
      Caption = 'Rect Animation'
      Alignment = ktaLeftJustify
      Checked = False
      GroupIndex = 3
      Spacing = 5
      TabOrder = 3
      WordWrap = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'RadioButton'
    end
  end
  object SeSkinMenuBar1: TSeSkinMenuBar
    Left = 0
    Top = 0
    Width = 457
    Height = 22
    Performance = kspNoBuffer
    Transparent = False
    Align = alTop
    SkinEngine = frmMain.SeSkinEngine1
    SkinObject = 'MenuBar'
    object File3: TSeSkinItem
      Caption = '&File'
      Scrolled = False
      ScrollCount = 0
      object New3: TSeSkinItem
        Caption = '&New'
        Scrolled = False
        ScrollCount = 0
      end
      object Open3: TSeSkinItem
        Caption = '&Open...'
        Scrolled = False
        ScrollCount = 0
      end
      object Save3: TSeSkinItem
        Caption = '&Save'
        Scrolled = False
        ScrollCount = 0
      end
      object SaveAs3: TSeSkinItem
        Caption = 'Save &As...'
        Scrolled = False
        ScrollCount = 0
      end
      object N7: TSeSkinItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Print3: TSeSkinItem
        Caption = '&Print...'
        Scrolled = False
        ScrollCount = 0
      end
      object PrintSetup3: TSeSkinItem
        Caption = 'P&rint Setup...'
        Scrolled = False
        ScrollCount = 0
      end
      object N8: TSeSkinItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Exit3: TSeSkinItem
        Caption = 'E&xit'
        Scrolled = False
        ScrollCount = 0
        OnClick = Exit3Click
      end
    end
    object Edit3: TSeSkinItem
      Caption = '&Edit'
      Scrolled = False
      ScrollCount = 0
      object Undo3: TSeSkinItem
        Caption = '&Undo'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16474
      end
      object Repeatcommand3: TSeSkinItem
        Caption = '&Repeat <command>'
        Scrolled = False
        ScrollCount = 0
      end
      object N10: TSeSkinItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Cut3: TSeSkinItem
        Caption = 'Cu&t'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16472
      end
      object Copy3: TSeSkinItem
        Caption = '&Copy'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16451
      end
      object Paste3: TSeSkinItem
        Caption = '&Paste'
        Scrolled = False
        ScrollCount = 0
        ShortCut = 16470
      end
      object PasteSpecial3: TSeSkinItem
        Caption = 'Paste &Special...'
        Scrolled = False
        ScrollCount = 0
      end
      object N11: TSeSkinItem
        Caption = '-'
        Scrolled = False
        ScrollCount = 0
      end
      object Find2: TSeSkinItem
        Caption = '&Find...'
        Scrolled = False
        ScrollCount = 0
      end
      object Replace2: TSeSkinItem
        Caption = 'R&eplace...'
        Scrolled = False
        ScrollCount = 0
      end
    end
    object CustomItem4: TSeSkinItem
      Caption = '&Scrolling'
      Scrolled = True
      ScrollCount = 8
      object CustomItem5: TSeSkinItem
        Caption = 'CustomItem5'
        Scrolled = False
        ScrollCount = 0
      end
      object CustomItem6: TSeSkinItem
        Caption = 'CustomItem6'
        Scrolled = False
        ScrollCount = 0
      end
      object CustomItem7: TSeSkinItem
        Caption = 'CustomItem7'
        Scrolled = False