1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
object LocalsDlg: TLocalsDlg
Left = 314
Height = 200
Top = 92
Width = 500
HorzScrollBar.Page = 499
VertScrollBar.Page = 199
BorderStyle = bsSizeToolWin
Caption = 'Locals'
ClientHeight = 200
ClientWidth = 500
OnShow = FormShow
object vtLocals: TDbgTreeView
Left = 0
Height = 174
Top = 26
Width = 500
Align = alClient
DefaultNodeHeight = 19
Header.AutoSizeIndex = 0
Header.Columns = <
item
Position = 0
end
item
Position = 2
end
item
MaxWidth = 300
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus, coEditable]
Position = 1
end>
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
PopupMenu = PopupMenu1
TabOrder = 0
TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toWheelPanning]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnChange = vtLocalsChange
OnDragOver = vtLocalsDragOver
OnDragDrop = vtLocalsDragDrop
OnFocusChanged = vtLocalsFocusChanged
OnNodeDblClick = vtLocalsNodeDblClick
end
object ToolBar1: TToolBar
Left = 0
Height = 26
Top = 0
Width = 500
Caption = 'ToolBar1'
ParentShowHint = False
ShowHint = True
TabOrder = 1
object ToolButtonPower: TToolButton
Left = 1
Top = 2
AllowAllUp = True
Down = True
Style = tbsCheck
OnClick = ToolButtonPowerClick
end
object ToolButton2: TToolButton
Left = 24
Height = 22
Top = 2
Caption = 'ToolButton2'
Style = tbsSeparator
end
object btnShowDataAddr: TToolButton
Left = 32
Top = 2
Caption = '$^'
Style = tbsCheck
OnClick = btnShowDataAddrClick
end
end
object ActionList1: TActionList
Left = 152
Top = 80
object actInspect: TAction
Category = 'main'
Caption = 'actInspect'
ShortCut = 16457
OnExecute = actInspectExecute
OnUpdate = actInspectUpdate
end
object actWatch: TAction
Category = 'main'
Caption = 'actWatch'
ShortCut = 16471
OnExecute = actWatchExecute
OnUpdate = actInspectUpdate
end
object actEvaluate: TAction
Category = 'main'
Caption = 'actEvaluate'
ShortCut = 16469
OnExecute = actEvaluateExecute
OnUpdate = actInspectUpdate
end
object actCopyName: TAction
Category = 'copy'
Caption = 'actCopyName'
OnExecute = actCopyNameExecute
OnUpdate = actInspectUpdate
end
object actCopyValue: TAction
Category = 'copy'
Caption = 'actCopyValue'
ShortCut = 24643
OnExecute = actCopyValueExecute
OnUpdate = actInspectUpdate
end
object actCopyRAWValue: TAction
Category = 'copy'
Caption = 'actCopyRAWValue'
ShortCut = 16451
OnExecute = actCopyRAWValueExecute
OnUpdate = actInspectUpdate
end
object actCopyAddr: TAction
Category = 'copy'
Caption = 'actCopyAddr'
ShortCut = 49219
OnExecute = actCopyAddrExecute
OnUpdate = actInspectUpdate
end
object actCopyEntry: TAction
Category = 'copy'
Caption = 'actCopyEntry'
OnExecute = actCopyEntryExecute
OnUpdate = actInspectUpdate
end
object actCopyAll: TAction
Category = 'copy'
Caption = 'actCopyAll'
OnExecute = actCopyAllExecute
OnUpdate = actCopyAllUpdate
end
object actMemView: TAction
Category = 'main'
Caption = 'actMemView'
OnExecute = actMemViewExecute
OnUpdate = actInspectUpdate
end
end
object PopupMenu1: TPopupMenu
Left = 38
Top = 75
object MenuItem1: TMenuItem
Action = actInspect
end
object MenuItem2: TMenuItem
Action = actWatch
end
object MenuItem3: TMenuItem
Action = actEvaluate
end
object MenuItem5: TMenuItem
Action = actMemView
end
object MenuItem4: TMenuItem
Caption = '-'
end
object menuCopyName: TMenuItem
Action = actCopyName
end
object menuCopyValue: TMenuItem
Action = actCopyValue
end
object menuCopyRawValue: TMenuItem
Action = actCopyRAWValue
end
object menuCopyAddr: TMenuItem
Action = actCopyAddr
end
object menuCopyEntry: TMenuItem
Action = actCopyEntry
end
object menuCopyAll: TMenuItem
Action = actCopyAll
end
end
end
|
