mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-02 00:01:12 +01:00
f90aca978c
* Moved TGDBtype to TDBGtype, so it can be used in general to return expression typeinfo * Changed inspect dialog to use this typeinfo * display evaluation result on multiple lines git-svn-id: trunk@22348 -
79 lines
1.7 KiB
Plaintext
79 lines
1.7 KiB
Plaintext
inherited WatchesDlg: TWatchesDlg
|
|
Left = 321
|
|
Height = 200
|
|
Top = 437
|
|
Width = 500
|
|
HorzScrollBar.Page = 499
|
|
VertScrollBar.Page = 199
|
|
ActiveControl = lvWatches
|
|
Caption = 'Watch list'
|
|
ClientHeight = 200
|
|
ClientWidth = 500
|
|
OnClose = FormClose
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
object lvWatches: TListView[0]
|
|
Left = 0
|
|
Height = 200
|
|
Top = 0
|
|
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 mnuPopup: TPopupMenu[1]
|
|
left = 100
|
|
top = 96
|
|
object popAdd: TMenuItem
|
|
Caption = '&Add'
|
|
OnClick = popAddClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object popProperties: TMenuItem
|
|
Caption = '&Properties'
|
|
OnClick = popPropertiesClick
|
|
end
|
|
object popEnabled: TMenuItem
|
|
Caption = '&Enabled'
|
|
OnClick = popEnabledClick
|
|
end
|
|
object popDelete: TMenuItem
|
|
Caption = '&Delete'
|
|
OnClick = popDeleteClick
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object popDisableAll: TMenuItem
|
|
Caption = 'D&isable All'
|
|
OnClick = popDisableAllClick
|
|
end
|
|
object popEnableAll: TMenuItem
|
|
Caption = 'E&nable All'
|
|
OnClick = popEnableAllClick
|
|
end
|
|
object popDeleteAll: TMenuItem
|
|
Caption = 'De&lete All'
|
|
OnClick = popDeleteAllClick
|
|
end
|
|
end
|
|
end
|