source: branches/test1/Client/Forms/UFormMenu.lfm

object FormMenu: TFormMenu
  Left = 335
  Height = 487
  Top = 108
  Width = 262
  Caption = 'Navigation'
  ClientHeight = 487
  ClientWidth = 262
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '0.9.31'
  object TabControl1: TTabControl
    Left = 0
    Height = 26
    Top = 0
    Width = 262
    TabIndex = 0
    Tabs.Strings = (
      'All'
      'Favorite'
      'History'
    )
    Align = alTop
    TabOrder = 0
  end
  object TreeViewMenu: TTreeView
    Left = 2
    Height = 457
    Top = 28
    Width = 258
    Align = alClient
    BorderSpacing.Around = 2
    DefaultItemHeight = 16
    PopupMenu = PopupMenuObjectGroup
    ReadOnly = True
    TabOrder = 1
    OnChange = TreeViewMenuChange
    OnDblClick = AObjectGroupShowExecute
    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object PopupMenuObject: TPopupMenu
    Images = MainForm.ImageListActions
    left = 100
    top = 164
    object MenuItem1: TMenuItem
      Action = AObjectGroupShow
      Default = True
    end
    object MenuItem10: TMenuItem
      Action = AObjectEdit
    end
    object MenuItem9: TMenuItem
      Action = AObjectDelete
    end
  end
  object PopupMenuObjectGroup: TPopupMenu
    Images = MainForm.ImageListActions
    left = 100
    top = 116
    object MenuItem5: TMenuItem
      Action = AObjectGroupEdit
      Default = True
    end
    object MenuItem7: TMenuItem
      Action = AObjectGroupAddGroup
    end
    object MenuItem6: TMenuItem
      Action = AObjectGroupAddObject
    end
    object MenuItem8: TMenuItem
      Action = AObjectGroupDelete
    end
  end
  object ActionList1: TActionList
    left = 100
    top = 214
    object AObjectEdit: TAction
      Caption = 'Edit'
    end
    object AObjectDelete: TAction
      Caption = 'Delete'
    end
    object AObjectGroupEdit: TAction
      Caption = 'Edit'
      OnExecute = AObjectGroupEditExecute
    end
    object AObjectGroupAddObject: TAction
      Caption = 'Add'
    end
    object AObjectGroupAddGroup: TAction
      Caption = 'Add'
    end
    object AObjectGroupDelete: TAction
      Caption = 'Delete'
      OnExecute = AObjectGroupDeleteExecute
    end
    object AObjectGroupShow: TAction
      Caption = 'Show'
      OnExecute = AObjectGroupShowExecute
    end
  end
end