lazarus/debugger/watchesdlg.lfm

inherited WatchesDlg: TWatchesDlg
  Left = 321
  Height = 200
  Top = 437
  Width = 500
  HorzScrollBar.Page = 499
  VertScrollBar.Page = 199
  ActiveControl = lvWatches
  BorderStyle = bsSizeToolWin
  Caption = 'Watch list'
  ClientHeight = 200
  ClientWidth = 500
  OnDestroy = FormDestroy
  OnShow = FormShow
  object lvWatches: TListView[0]
    Left = 0
    Height = 174
    Top = 26
    Width = 500
    Align = alClient
    Columns = <    
      item
        Caption = 'Expression'
        Width = 10
      end    
      item
        Caption = 'Value'
        Width = 10
      end>
    MultiSelect = True
    PopupMenu = mnuPopup
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = lvWatchesDblClick
    OnSelectItem = lvWatchesSelectItem
  end
  object ToolBar1: TToolBar[1]
    Left = 0
    Height = 26
    Top = 0
    Width = 500
    Caption = 'ToolBar1'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButtonPower: TToolButton
      Left = 1
      Top = 2
      Action = actPower
      AllowAllUp = True
      Style = tbsCheck
    end
    object ToolButton2: TToolButton
      Left = 24
      Top = 2
      Width = 5
      Caption = 'ToolButton2'
      Style = tbsDivider
    end
    object ToolButtonEnable: TToolButton
      Left = 52
      Top = 2
      Action = actEnableSelected
    end
    object ToolButtonDisable: TToolButton
      Left = 75
      Top = 2
      Action = actDisableSelected
    end
    object ToolButtonTrash: TToolButton
      Left = 98
      Top = 2
      Action = actDeleteSelected
    end
    object ToolButton6: TToolButton
      Left = 121
      Top = 2
      Width = 5
      Caption = 'ToolButton6'
      Style = tbsDivider
    end
    object ToolButtonEnableAll: TToolButton
      Left = 126
      Top = 2
      Action = actEnableAll
    end
    object ToolButtonDisableAll: TToolButton
      Left = 149
      Top = 2
      Action = actDisableAll
    end
    object ToolButtonTrashAll: TToolButton
      Left = 172
      Top = 2
      Action = actDeleteAll
    end
    object ToolButton10: TToolButton
      Left = 195
      Top = 2
      Width = 5
      Caption = 'ToolButton10'
      Style = tbsDivider
    end
    object ToolButtonAdd: TToolButton
      Left = 29
      Top = 2
      Action = actAddWatch
    end
    object ToolButtonProperties: TToolButton
      Left = 200
      Top = 2
      Action = actProperties
    end
  end
  object mnuPopup: TPopupMenu[2]
    left = 100
    top = 96
    object popAdd: TMenuItem
      Action = actAddWatch
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object popProperties: TMenuItem
      Action = actProperties
    end
    object popEnabled: TMenuItem
      Action = actToggleCurrentEnable
    end
    object popDelete: TMenuItem
      Action = actDeleteSelected
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object popDisableAll: TMenuItem
      Action = actDisableAll
    end
    object popEnableAll: TMenuItem
      Action = actEnableAll
    end
    object popDeleteAll: TMenuItem
      Action = actDeleteAll
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object popAddWatchPoint: TMenuItem
      Action = actAddWatchPoint
    end
  end
  object ActionList1: TActionList[3]
    left = 184
    top = 88
    object actPower: TAction
      Caption = 'actPower'
      Checked = True
      OnExecute = actPowerExecute
    end
    object actToggleCurrentEnable: TAction
      Caption = 'actToggleCurrentEnable'
      OnExecute = popEnabledClick
    end
    object actAddWatch: TAction
      Caption = 'actAddWatch'
      OnExecute = popAddClick
      SecondaryShortCuts.Strings = (
        'ins'
      )
      ShortCut = 16449
    end
    object actEnableSelected: TAction
      Caption = 'actEnableSelected'
      OnExecute = actEnableSelectedExecute
    end
    object actDisableSelected: TAction
      Caption = 'actDisableSelected'
      OnExecute = actDisableSelectedExecute
    end
    object actDeleteSelected: TAction
      Caption = 'actDeleteSelected'
      OnExecute = popDeleteClick
      SecondaryShortCuts.Strings = (
        'del'
      )
      ShortCut = 16452
    end
    object actEnableAll: TAction
      Caption = 'actEnableAll'
      OnExecute = popEnableAllClick
    end
    object actDisableAll: TAction
      Caption = 'actDisableAll'
      OnExecute = popDisableAllClick
    end
    object actDeleteAll: TAction
      Caption = 'actDeleteAll'
      OnExecute = popDeleteAllClick
    end
    object actProperties: TAction
      Caption = 'actProperties'
      OnExecute = popPropertiesClick
      SecondaryShortCuts.Strings = (
        'enter'
      )
      ShortCut = 16453
    end
    object actAddWatchPoint: TAction
      Caption = 'actAddWatchPoint'
      OnExecute = actAddWatchPointExecute
    end
  end
end