lazarus/debugger/watchesdlg.lfm
martin 03fe9688fa DBG: Show watches first, then update
git-svn-id: trunk@28935 -
2011-01-10 14:03:38 +00:00

196 lines
4.3 KiB
Plaintext

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
OnClose = FormClose
OnCloseQuery = FormCloseQuery
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
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnDblClick = lvWatchesDblClick
OnKeyDown = lvWatchesKeyDown
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 = 4
Caption = 'ToolButton2'
Style = tbsDivider
end
object ToolButtonEnable: TToolButton
Left = 51
Top = 2
Action = actEnableSelected
end
object ToolButtonDisable: TToolButton
Left = 74
Top = 2
Action = actDisableSelected
end
object ToolButtonTrash: TToolButton
Left = 97
Top = 2
Action = actDeleteSelected
end
object ToolButton6: TToolButton
Left = 120
Top = 2
Width = 4
Caption = 'ToolButton6'
Style = tbsDivider
end
object ToolButtonEnableAll: TToolButton
Left = 124
Top = 2
Action = actEnableAll
end
object ToolButtonDisableAll: TToolButton
Left = 147
Top = 2
Action = actDisableAll
end
object ToolButtonTrashAll: TToolButton
Left = 170
Top = 2
Action = actDeleteAll
end
object ToolButton10: TToolButton
Left = 193
Top = 2
Width = 4
Caption = 'ToolButton10'
Style = tbsDivider
end
object ToolButtonAdd: TToolButton
Left = 28
Top = 2
Action = actAddWatch
end
object ToolButtonProperties: TToolButton
Left = 197
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
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
end
object actEnableSelected: TAction
Caption = 'actEnableSelected'
OnExecute = actEnableSelectedExecute
end
object actDisableSelected: TAction
Caption = 'actDisableSelected'
OnExecute = actDisableSelectedExecute
end
object actDeleteSelected: TAction
Caption = 'actDeleteSelected'
OnExecute = popDeleteClick
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
end
end
end