mirror of https://gitlab.com/basile.b/dexed.git
351 lines
9.1 KiB
Plaintext
351 lines
9.1 KiB
Plaintext
inherited CEGdbWidget: TCEGdbWidget
|
|
Left = 640
|
|
Height = 668
|
|
Top = 213
|
|
Width = 517
|
|
ActiveControl = Back
|
|
Caption = 'GDB commander'
|
|
ClientHeight = 668
|
|
ClientWidth = 517
|
|
inherited Back: TPanel
|
|
Height = 662
|
|
Top = 6
|
|
Width = 517
|
|
ClientHeight = 662
|
|
ClientWidth = 517
|
|
inherited Content: TPanel
|
|
Height = 626
|
|
Width = 517
|
|
ClientHeight = 626
|
|
ClientWidth = 517
|
|
object Panel1: TPanel[0]
|
|
Left = 0
|
|
Height = 424
|
|
Top = 166
|
|
Width = 517
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
ClientHeight = 424
|
|
ClientWidth = 517
|
|
TabOrder = 0
|
|
object GroupBox3: TGroupBox
|
|
Left = 0
|
|
Height = 227
|
|
Top = 197
|
|
Width = 517
|
|
Align = alClient
|
|
Caption = 'CPU'
|
|
ClientHeight = 197
|
|
ClientWidth = 513
|
|
TabOrder = 0
|
|
object cpuVIewer: TTIPropertyGrid
|
|
Left = 0
|
|
Height = 197
|
|
Hint = 'cpu registers'
|
|
Top = 0
|
|
Width = 513
|
|
Align = alClient
|
|
CheckboxForBoolean = True
|
|
DefaultValueFont.Color = clWindowText
|
|
Filter = [tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper, tkFile, tkClassRef, tkPointer]
|
|
Indent = 10
|
|
NameFont.Color = clWindowText
|
|
PreferredSplitterX = 200
|
|
SplitterX = 200
|
|
ValueFont.Color = clMaroon
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 0
|
|
Height = 191
|
|
Top = 0
|
|
Width = 517
|
|
Align = alTop
|
|
Caption = 'Variables'
|
|
ClientHeight = 161
|
|
ClientWidth = 513
|
|
TabOrder = 1
|
|
object ValueListEditor1: TValueListEditor
|
|
Left = 4
|
|
Height = 153
|
|
Hint = 'variables'
|
|
Top = 4
|
|
Width = 505
|
|
Align = alClient
|
|
AutoAdvance = aaDown
|
|
BorderSpacing.Around = 4
|
|
BorderStyle = bsNone
|
|
Color = clDefault
|
|
DefaultColWidth = 128
|
|
DefaultRowHeight = 24
|
|
FixedCols = 0
|
|
Flat = True
|
|
GridLineWidth = 0
|
|
RowCount = 2
|
|
TabOrder = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goAlwaysShowEditor, goThumbTracking]
|
|
Strings.Strings = (
|
|
''
|
|
)
|
|
TitleCaptions.Strings = (
|
|
'name'
|
|
'value'
|
|
)
|
|
ColWidths = (
|
|
128
|
|
377
|
|
)
|
|
end
|
|
end
|
|
object Splitter4: TSplitter
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 6
|
|
Top = 191
|
|
Width = 517
|
|
Align = alTop
|
|
ResizeAnchor = akTop
|
|
end
|
|
end
|
|
object Panel3: TPanel[1]
|
|
Left = 4
|
|
Height = 28
|
|
Top = 594
|
|
Width = 509
|
|
Align = alBottom
|
|
BorderSpacing.Around = 4
|
|
BevelOuter = bvNone
|
|
ClientHeight = 28
|
|
ClientWidth = 509
|
|
TabOrder = 1
|
|
object btnSendCom: TSpeedButton
|
|
Left = 480
|
|
Height = 26
|
|
Top = 1
|
|
Width = 28
|
|
Align = alRight
|
|
BorderSpacing.Around = 1
|
|
OnClick = btnSendComClick
|
|
end
|
|
object Edit1: TComboBox
|
|
Left = 0
|
|
Height = 28
|
|
Hint = 'enter a custom GDB command or the program input with ">"'
|
|
Top = 0
|
|
Width = 479
|
|
Align = alClient
|
|
AutoComplete = True
|
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
|
ItemHeight = 0
|
|
MaxLength = 128
|
|
OnKeyUp = Edit1KeyUp
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object GroupBox1: TGroupBox[2]
|
|
Left = 0
|
|
Height = 161
|
|
Top = 0
|
|
Width = 517
|
|
Align = alTop
|
|
Caption = 'Call stack'
|
|
ClientHeight = 131
|
|
ClientWidth = 513
|
|
TabOrder = 2
|
|
object lstCallStack: TListView
|
|
Left = 0
|
|
Height = 131
|
|
Hint = 'call stack'
|
|
Top = 0
|
|
Width = 513
|
|
Align = alClient
|
|
Columns = <
|
|
item
|
|
AutoSize = True
|
|
Caption = 'function'
|
|
Width = 62
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'address'
|
|
Width = 59
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'filename'
|
|
Width = 371
|
|
end>
|
|
GridLines = True
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
OnDblClick = lstCallStackDblClick
|
|
end
|
|
end
|
|
object Splitter3: TSplitter[3]
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 5
|
|
Top = 161
|
|
Width = 517
|
|
Align = alTop
|
|
ResizeAnchor = akTop
|
|
end
|
|
end
|
|
inherited toolbar: TCEToolBar
|
|
Width = 509
|
|
object btnStack: TCEToolButton[0]
|
|
Left = 225
|
|
Hint = 'view call stack'
|
|
Top = 0
|
|
Caption = 'btnStack'
|
|
OnClick = btnStackClick
|
|
resourceName = 'LIST'
|
|
scaledSeparator = False
|
|
end
|
|
object btnReg: TCEToolButton[1]
|
|
Left = 197
|
|
Hint = 'update CPU registers values'
|
|
Top = 0
|
|
Caption = 'btnReg'
|
|
OnClick = btnRegClick
|
|
resourceName = 'PROCESSOR'
|
|
scaledSeparator = False
|
|
end
|
|
object button4: TCEToolButton[2]
|
|
Left = 181
|
|
Height = 28
|
|
Top = 0
|
|
Width = 16
|
|
Caption = 'button4'
|
|
Style = tbsDivider
|
|
scaledSeparator = False
|
|
end
|
|
object btnPause: TCEToolButton[3]
|
|
Left = 97
|
|
Hint = 'pause debugging'
|
|
Top = 0
|
|
Caption = 'btnPause'
|
|
OnClick = btnPauseClick
|
|
resourceName = 'PAUSE'
|
|
scaledSeparator = False
|
|
end
|
|
object btnStop: TCEToolButton[4]
|
|
Left = 41
|
|
Hint = 'stop debugging'
|
|
Top = 0
|
|
Caption = 'btnStop'
|
|
OnClick = btnStopClick
|
|
resourceName = 'STOP'
|
|
scaledSeparator = False
|
|
end
|
|
object btnContinue: TCEToolButton[5]
|
|
Left = 69
|
|
Hint = 'continue debugging'
|
|
Top = 0
|
|
Caption = 'btnContinue'
|
|
OnClick = btnContClick
|
|
resourceName = 'PLAY'
|
|
scaledSeparator = False
|
|
end
|
|
object btnNext: TCEToolButton[6]
|
|
Left = 125
|
|
Hint = 'step to next instruction, including in calls'
|
|
Top = 0
|
|
Caption = 'btnNext'
|
|
OnClick = btnNextClick
|
|
resourceName = 'GO_DOWN'
|
|
scaledSeparator = False
|
|
end
|
|
object btnOver: TCEToolButton[7]
|
|
Left = 153
|
|
Hint = 'step to the next instruction, excluding calls'
|
|
Top = 0
|
|
Caption = 'btnOver'
|
|
OnClick = btnOverClick
|
|
resourceName = 'GO_JUMP'
|
|
scaledSeparator = False
|
|
end
|
|
object btnVariables: TCEToolButton[8]
|
|
Left = 253
|
|
Hint = 'update variables list'
|
|
Top = 0
|
|
Caption = 'btnVariables'
|
|
OnClick = btnVariablesClick
|
|
resourceName = 'WATCH_WINDOW'
|
|
scaledSeparator = False
|
|
end
|
|
object btnStart: TCEToolButton[9]
|
|
Left = 1
|
|
Hint = 'start debugging'
|
|
Top = 0
|
|
Caption = 'btnStart'
|
|
DropdownMenu = mnuProjRunnable
|
|
OnClick = btnStartClick
|
|
Style = tbsDropDown
|
|
resourceName = 'POWER'
|
|
scaledSeparator = False
|
|
end
|
|
object btnWatch: TCEToolButton[10]
|
|
Left = 281
|
|
Hint = 'add a watchpoint for the variable selected in the list'
|
|
Top = 0
|
|
Caption = 'btnWatch'
|
|
DropdownMenu = mnuWatch
|
|
OnClick = btnWatchClick
|
|
Style = tbsDropDown
|
|
resourceName = 'CAMERA_ADD'
|
|
scaledSeparator = False
|
|
end
|
|
end
|
|
end
|
|
object Splitter2: TSplitter[1]
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 6
|
|
Top = 0
|
|
Width = 517
|
|
Align = alTop
|
|
ResizeAnchor = akTop
|
|
end
|
|
inherited contextMenu: TPopupMenu[2]
|
|
left = 56
|
|
top = 64
|
|
end
|
|
object mnuProjRunnable: TPopupMenu[3]
|
|
left = 144
|
|
top = 64
|
|
object mnuSelProj: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Debug project'
|
|
Checked = True
|
|
OnClick = mnuSelProjClick
|
|
end
|
|
object mnuSelRunnable: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Debug runnable'
|
|
OnClick = mnuSelRunnableClick
|
|
end
|
|
end
|
|
object mnuWatch: TPopupMenu[4]
|
|
left = 144
|
|
top = 128
|
|
object mnuReadW: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'On read'
|
|
OnClick = mnuReadWClick
|
|
end
|
|
object mnuWriteW: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'On write'
|
|
Checked = True
|
|
OnClick = mnuWriteWClick
|
|
end
|
|
object mnuReadWriteW: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'On read/write'
|
|
OnClick = mnuReadWriteWClick
|
|
end
|
|
end
|
|
end
|