mirror of https://gitlab.com/basile.b/dexed.git
179 lines
4.6 KiB
Plaintext
179 lines
4.6 KiB
Plaintext
inherited CEGdbWidget: TCEGdbWidget
|
|
Left = 640
|
|
Height = 521
|
|
Top = 213
|
|
Width = 517
|
|
ActiveControl = Back
|
|
Caption = 'GDB commander'
|
|
ClientHeight = 521
|
|
ClientWidth = 517
|
|
inherited Back: TPanel
|
|
Height = 521
|
|
Width = 517
|
|
ClientHeight = 521
|
|
ClientWidth = 517
|
|
inherited Content: TPanel
|
|
Height = 521
|
|
Width = 517
|
|
ClientHeight = 521
|
|
ClientWidth = 517
|
|
object Panel1: TPanel[0]
|
|
Left = 2
|
|
Height = 30
|
|
Top = 2
|
|
Width = 513
|
|
Align = alTop
|
|
BorderSpacing.Around = 2
|
|
BevelOuter = bvNone
|
|
ClientHeight = 30
|
|
ClientWidth = 513
|
|
PopupMenu = contextMenu
|
|
TabOrder = 0
|
|
object btnStart: TBitBtn
|
|
Left = 2
|
|
Height = 26
|
|
Hint = 'start debugging'
|
|
Top = 2
|
|
Width = 28
|
|
Align = alLeft
|
|
BorderSpacing.Around = 2
|
|
Layout = blGlyphBottom
|
|
OnClick = btnStartClick
|
|
Spacing = 0
|
|
TabOrder = 0
|
|
end
|
|
object lstfilter: TListFilterEdit
|
|
Left = 152
|
|
Height = 26
|
|
Top = 2
|
|
Width = 359
|
|
ButtonWidth = 28
|
|
NumGlyphs = 1
|
|
Align = alClient
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 2
|
|
MaxLength = 0
|
|
TabOrder = 1
|
|
end
|
|
object btnStop: TBitBtn
|
|
Left = 32
|
|
Height = 26
|
|
Hint = 'stop debuging'
|
|
Top = 2
|
|
Width = 28
|
|
Align = alLeft
|
|
BorderSpacing.Around = 2
|
|
Layout = blGlyphBottom
|
|
OnClick = btnStopClick
|
|
Spacing = 0
|
|
TabOrder = 2
|
|
end
|
|
object btnCont: TBitBtn
|
|
Left = 62
|
|
Height = 26
|
|
Hint = 'continue debugging'
|
|
Top = 2
|
|
Width = 28
|
|
Align = alLeft
|
|
BorderSpacing.Around = 2
|
|
Layout = blGlyphBottom
|
|
OnClick = btnContClick
|
|
Spacing = 0
|
|
TabOrder = 3
|
|
end
|
|
object btnReg: TBitBtn
|
|
Left = 92
|
|
Height = 26
|
|
Hint = 'view registers'
|
|
Top = 2
|
|
Width = 28
|
|
Align = alLeft
|
|
BorderSpacing.Around = 2
|
|
Layout = blGlyphBottom
|
|
OnClick = btnRegClick
|
|
Spacing = 0
|
|
TabOrder = 4
|
|
end
|
|
object btnStack: TBitBtn
|
|
Left = 122
|
|
Height = 26
|
|
Hint = 'view call stack'
|
|
Top = 2
|
|
Width = 28
|
|
Align = alLeft
|
|
BorderSpacing.Around = 2
|
|
Layout = blGlyphBottom
|
|
OnClick = btnStackClick
|
|
Spacing = 0
|
|
TabOrder = 5
|
|
end
|
|
end
|
|
object Panel2: TPanel[1]
|
|
Left = 0
|
|
Height = 487
|
|
Top = 34
|
|
Width = 517
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel2'
|
|
ClientHeight = 487
|
|
ClientWidth = 517
|
|
TabOrder = 1
|
|
object Panel3: TPanel
|
|
Left = 4
|
|
Height = 28
|
|
Top = 455
|
|
Width = 509
|
|
Align = alBottom
|
|
BorderSpacing.Around = 4
|
|
BevelOuter = bvNone
|
|
ClientHeight = 28
|
|
ClientWidth = 509
|
|
TabOrder = 0
|
|
object Edit1: TEdit
|
|
Left = 0
|
|
Height = 24
|
|
Hint = 'custom GDB command'
|
|
Top = 2
|
|
Width = 481
|
|
Align = alClient
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Bottom = 2
|
|
OnKeyUp = Edit1KeyUp
|
|
TabOrder = 0
|
|
end
|
|
object btnSendCom: TBitBtn
|
|
Left = 481
|
|
Height = 28
|
|
Top = 0
|
|
Width = 28
|
|
Align = alRight
|
|
Layout = blGlyphBottom
|
|
OnClick = btnSendComClick
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object stateViewer: TTIPropertyGrid
|
|
Left = 0
|
|
Height = 451
|
|
Top = 0
|
|
Width = 517
|
|
Align = alClient
|
|
CheckboxForBoolean = True
|
|
DefaultValueFont.Color = clWindowText
|
|
Filter = [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
|
|
end
|
|
end
|
|
inherited contextMenu: TPopupMenu
|
|
left = 56
|
|
top = 64
|
|
end
|
|
end
|