unt_frmmenudesign.dfm

一个DELPHI下的菜单构件

object FrmMenuDesign: TFrmMenuDesign
  Left = 241
  Top = 206
  BorderStyle = bsDialog
  Caption = 'MenuDesign'
  ClientHeight = 344
  ClientWidth = 662
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TrvMenu: TTreeView
    Left = 8
    Top = 8
    Width = 209
    Height = 325
    Ctl3D = False
    DragMode = dmAutomatic
    HideSelection = False
    Indent = 19
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 0
    OnChange = TrvMenuChange
    OnChanging = TrvMenuChanging
    OnDragDrop = TrvMenuDragDrop
    OnDragOver = TrvMenuDragOver
    OnKeyDown = TrvMenuKeyDown
    OnMouseDown = TrvMenuMouseDown
  end
  object StrGrdInspector: TStringGrid
    Left = 225
    Top = 8
    Width = 305
    Height = 325
    ColCount = 2
    Ctl3D = False
    DefaultColWidth = 110
    DefaultRowHeight = 18
    RowCount = 17
    FixedRows = 0
    ParentCtl3D = False
    ScrollBars = ssNone
    TabOrder = 1
    OnSelectCell = StrGrdInspectorSelectCell
    OnSetEditText = StrGrdInspectorSetEditText
    RowHeights = (
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18)
  end
  object CmbAutoCheck: TComboBox
    Left = 335
    Top = 8
    Width = 116
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 2
    Text = 'True'
    Visible = False
    OnChange = CmbAutoCheckChange
    OnDblClick = CmbAutoCheckDblClick
    OnExit = CmbAutoCheckExit
    Items.Strings = (
      'True'
      'False')
  end
  object CmbAutoHotkeys: TComboBox
    Left = 335
    Top = 27
    Width = 116
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 12
    ItemIndex = 2
    TabOrder = 5
    Text = 'maParent'
    Visible = False
    OnChange = CmbAutoCheckChange
    OnDblClick = CmbAutoCheckDblClick
    OnExit = CmbAutoCheckExit
    Items.Strings = (
      'maAutomatic'
      'maManual'
      'maParent')
  end
  object CmbBreak: TComboBox
    Left = 335
    Top = 65
    Width = 116
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 12
    ItemIndex = 2
    TabOrder = 3
    Text = 'mbNone'
    Visible = False
    OnChange = CmbAutoCheckChange
    OnDblClick = CmbAutoCheckDblClick
    OnExit = CmbAutoCheckExit
    Items.Strings = (
      'mbBarBreak'
      'mbBreak'
      'mbNone')
  end
  object CmbShortCut: TComboBox
    Left = 335
    Top = 255
    Width = 116
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 4
    Text = '(None)'
    Visible = False
    OnChange = CmbAutoCheckChange
    OnDblClick = CmbAutoCheckDblClick
    OnExit = CmbAutoCheckExit
    Items.Strings = (
      '(None)'
      'Ctrl+A'
      'Ctrl+B'
      'Ctrl+C'
      'Ctrl+D'
      'Ctrl+E'
      'Ctrl+F'
      'Ctrl+G'
      'Ctrl+H'
      'Ctrl+I'
      'Ctrl+J'
      'Ctrl+K'
      'Ctrl+L'
      'Ctrl+M'
      'Ctrl+N'
      'Ctrl+O'
      'Ctrl+P'
      'Ctrl+Q'
      'Ctrl+R'
      'Ctrl+S'
      'Ctrl+T'
      'Ctrl+U'
      'Ctrl+V'
      'Ctrl+W'
      'Ctrl+X'
      'Ctrl+Y'
      'Ctrl+Z'
      'Ctrl+Alt+A'
      'Ctrl+Alt+B'
      'Ctrl+Alt+C'
      'Ctrl+Alt+D'
      'Ctrl+Alt+E'
      'Ctrl+Alt+F'
      'Ctrl+Alt+G'
      'Ctrl+Alt+H'
      'Ctrl+Alt+I'
      'Ctrl+Alt+J'
      'Ctrl+Alt+K'
      'Ctrl+Alt+L'
      'Ctrl+Alt+M'
      'Ctrl+Alt+N'
      'Ctrl+Alt+O'
      'Ctrl+Alt+P'
      'Ctrl+Alt+Q'
      'Ctrl+Alt+R'
      'Ctrl+Alt+S'
      'Ctrl+Alt+T'
      'Ctrl+Alt+U'
      'Ctrl+Alt+V'
      'Ctrl+Alt+W'
      'Ctrl+Alt+X'
      'Ctrl+Alt+Y'
      'Ctrl+Alt+Z'
      'F1'
      'F2'
      'F3'
      'F4'
      'F5'
      'F6'
      'F7'
      'F8'
      'F9'
      'F10'
      'F11'
      'F12'
      'Ctrl+F1'
      'Ctrl+F2'
      'Ctrl+F3'
      'Ctrl+F4'
      'Ctrl+F5'
      'Ctrl+F6'
      'Ctrl+F7'
      'Ctrl+F8'
      'Ctrl+F9'
      'Ctrl+F10'
      'Ctrl+F11'
      'Ctrl+F12'
      'Shift+F1'
      'Shift+F2'
      'Shift+F3'
      'Shift+F4'
      'Shift+F5'
      'Shift+F6'
      'Shift+F7'
      'Shift+F8'
      'Shift+F9'
      'Shift+F10'
      'Shift+F11'
      'Shift+F12'
      'Shift+Ctrl+F1'
      'Shift+Ctrl+F2'
      'Shift+Ctrl+F3'
      'Shift+Ctrl+F4'
      'Shift+Ctrl+F5'
      'Shift+Ctrl+F6'
      'Shift+Ctrl+F7'
      'Shift+Ctrl+F8'
      'Shift+Ctrl+F9'
      'Shift+Ctrl+F10'
      'Shift+Ctrl+F11'
      'Shift+Ctrl+F12'
      'Ins'
      'Shift+Ins'
      'Ctrl+Ins'
      'Del'
      'Shift+Del'
      'Ctrl+Del'
      'Alt+BkSp'
      'Shift+Alt+BkSp')
  end
  object CmbImageIndex: TComboBoxEx
    Left = 335
    Top = 216
    Width = 116
    Height = 22
    ItemsEx = <>
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 16
    TabOrder = 6
    OnChange = CmbImageIndexChange
    OnDblClick = CmbImageIndexDblClick
    OnExit = CmbImageIndexExit
    Images = ImageList1
    DropDownCount = 8
  end
  object CmbEvntParam: TComboBox
    Left = 335
    Top = 274
    Width = 116
    Height = 20