source: branches/topdown/FormMenu.lfm

object FormMenu: TFormMenu
  Left = 443
  Height = 478
  Top = 262
  Width = 314
  Caption = 'Menu'
  ClientHeight = 478
  ClientWidth = 314
  DesignTimePPI = 144
  FormStyle = fsStayOnTop
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  LCLVersion = '2.2.6.0'
  object ListBoxApps: TListBox
    Left = 12
    Height = 415
    Top = 8
    Width = 294
    Anchors = [akTop, akLeft, akRight, akBottom]
    Items.Strings = (
      'Calculator'
      'File manager'
    )
    ItemHeight = 32
    OnClick = ListBoxAppsClick
    TabOrder = 0
  end
  object ToolBar1: TToolBar
    Left = 192
    Height = 33
    Top = 437
    Width = 114
    Align = alCustom
    Anchors = [akRight, akBottom]
    AutoSize = True
    Caption = 'ToolBar1'
    EdgeBorders = []
    Flat = False
    ShowCaptions = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 1
      Top = 0
      Caption = 'Shutdown'
      DropdownMenu = PopupMenu1
      OnClick = ToolButton1Click
      Style = tbsDropDown
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 133
    Top = 334
    object MenuItemReboot: TMenuItem
      Caption = 'Reboot'
      OnClick = MenuItemRebootClick
    end
  end
end