From af68051ba8b4c50883974b13162cffce5229f129 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 18 Sep 2023 08:40:46 +0200 Subject: [PATCH] fixup HEAD~1, missing lfm changes --- src/u_gdb.lfm | 144 ++++++++++++++++++++++++++------------------------ 1 file changed, 74 insertions(+), 70 deletions(-) diff --git a/src/u_gdb.lfm b/src/u_gdb.lfm index cfd55524..ed305059 100644 --- a/src/u_gdb.lfm +++ b/src/u_gdb.lfm @@ -8,36 +8,37 @@ inherited GdbWidget: TGdbWidget ClientWidth = 672 inherited Content: TPanel Height = 626 + Top = 42 Width = 672 ClientHeight = 626 ClientWidth = 672 object Panel1: TPanel[0] Left = 0 - Height = 386 + Height = 383 Top = 205 Width = 672 Align = alClient AutoSize = True BevelOuter = bvNone - ClientHeight = 386 + ClientHeight = 383 ClientWidth = 672 TabOrder = 0 object GroupBox3: TGroupBox Left = 0 - Height = 180 + Height = 177 Top = 206 Width = 672 Align = alClient Caption = 'CPU' - ClientHeight = 161 - ClientWidth = 668 + ClientHeight = 158 + ClientWidth = 670 TabOrder = 0 object cpuViewer: TTIPropertyGrid Left = 0 - Height = 161 + Height = 158 Hint = 'cpu registers' Top = 0 - Width = 668 + Width = 670 Align = alClient CheckboxForBoolean = True DefaultValueFont.Color = clWindowText @@ -70,25 +71,25 @@ inherited GdbWidget: TGdbWidget OnChange = PageControl2Change object TabSheet3: TTabSheet Caption = 'Variables' - ClientHeight = 173 - ClientWidth = 670 + ClientHeight = 168 + ClientWidth = 662 object lstVariables: TListView Left = 2 - Height = 140 - Top = 31 - Width = 666 + Height = 132 + Top = 34 + Width = 658 Align = alClient BorderSpacing.Around = 2 - Columns = < + Columns = < item AutoSize = True Caption = 'name' - Width = 43 - end + Width = 52 + end item AutoSize = True Caption = 'value' - Width = 621 + Width = 604 end> GridLines = True HideSelection = False @@ -102,10 +103,10 @@ inherited GdbWidget: TGdbWidget end object varListFlt: TListViewFilterEdit Left = 2 - Height = 27 + Height = 30 Hint = 'locate variables' Top = 2 - Width = 666 + Width = 658 ButtonWidth = 24 Align = alTop BorderSpacing.Around = 2 @@ -117,26 +118,26 @@ inherited GdbWidget: TGdbWidget end object TabSheet4: TTabSheet Caption = 'Assembler' - ClientHeight = 173 - ClientWidth = 670 + ClientHeight = 168 + ClientWidth = 662 object lstAsm: TListView Left = 2 - Height = 169 + Height = 164 Top = 2 - Width = 666 + Width = 658 Align = alClient AutoSort = False AutoWidthLastColumn = True BorderSpacing.Around = 2 - Columns = < + Columns = < item AutoSize = True Caption = 'address' - Width = 57 - end + Width = 64 + end item Caption = 'instruction' - Width = 607 + Width = 592 end> GridLines = True HideSelection = False @@ -151,19 +152,19 @@ inherited GdbWidget: TGdbWidget end object Panel3: TPanel[1] Left = 4 - Height = 27 - Top = 595 + Height = 30 + Top = 592 Width = 664 Align = alBottom AutoSize = True BorderSpacing.Around = 4 BevelOuter = bvNone - ClientHeight = 27 + ClientHeight = 30 ClientWidth = 664 TabOrder = 1 object btnSendCom: TSpeedButton Left = 659 - Height = 25 + Height = 28 Top = 1 Width = 4 Align = alRight @@ -173,7 +174,7 @@ inherited GdbWidget: TGdbWidget end object Edit1: TComboBox Left = 0 - Height = 27 + Height = 30 Hint = 'enter a custom GDB command or the program input with ">"' Top = 0 Width = 658 @@ -209,29 +210,29 @@ inherited GdbWidget: TGdbWidget TabOrder = 3 object TabSheet1: TTabSheet Caption = 'Call stack' - ClientHeight = 173 - ClientWidth = 670 + ClientHeight = 168 + ClientWidth = 662 object lstCallStack: TListView Left = 0 - Height = 173 + Height = 168 Hint = 'call stack' Top = 0 - Width = 670 + Width = 662 Align = alClient AutoSort = False - Columns = < + Columns = < item Caption = 'function' Width = 200 - end + end item Caption = 'address' Width = 40 - end + end item Caption = 'filename' Width = 100 - end + end item Caption = 'line' Width = 328 @@ -246,51 +247,51 @@ inherited GdbWidget: TGdbWidget end object TabSheet2: TTabSheet Caption = 'Thread list' - ClientHeight = 173 - ClientWidth = 670 + ClientHeight = 168 + ClientWidth = 662 object lstThreads: TListView Left = 0 - Height = 173 + Height = 168 Hint = 'call stack' Top = 0 - Width = 670 + Width = 662 Align = alClient AutoSort = False AutoWidthLastColumn = True - Columns = < + Columns = < item AutoSize = True Caption = 'id' - Width = 18 - end + Width = 26 + end item AutoSize = True Caption = 'state' - Width = 39 - end + Width = 48 + end item AutoSize = True Caption = 'core' - Width = 34 - end + Width = 43 + end item AutoSize = True Caption = 'function' - Width = 59 - end + Width = 71 + end item AutoSize = True Caption = 'address' - Width = 57 - end + Width = 64 + end item AutoSize = True Caption = 'filename' - Width = 64 - end + Width = 73 + end item Caption = 'line' - Width = 397 + Width = 335 end> GridLines = True ReadOnly = True @@ -302,13 +303,13 @@ inherited GdbWidget: TGdbWidget end object TabSheet5: TTabSheet Caption = 'Debugee options' - ClientHeight = 173 - ClientWidth = 670 + ClientHeight = 168 + ClientWidth = 662 object dbgeeOptsEd: TTIPropertyGrid Left = 2 - Height = 169 + Height = 164 Top = 2 - Width = 666 + Width = 658 Align = alClient BorderSpacing.Around = 2 CheckboxForBoolean = True @@ -325,7 +326,7 @@ inherited GdbWidget: TGdbWidget end end inherited toolbar: TDexedToolBar - Height = 30 + Top = 10 Width = 664 object btnStack: TDexedToolButton[0] Left = 238 @@ -457,7 +458,7 @@ inherited GdbWidget: TGdbWidget scaledSeparator = False end end - object Splitter2: TSplitter[1] + object Splitter2: TSplitter[2] Cursor = crVSplit Left = 0 Height = 6 @@ -466,11 +467,11 @@ inherited GdbWidget: TGdbWidget Align = alTop ResizeAnchor = akTop end - inherited contextMenu: TPopupMenu[2] + inherited contextMenu: TPopupMenu[3] Left = 56 Top = 64 end - object mnuProjRunnable: TPopupMenu[3] + object mnuProjRunnable: TPopupMenu[4] Left = 56 Top = 112 object mnuSelProj: TMenuItem @@ -489,8 +490,11 @@ inherited GdbWidget: TGdbWidget Caption = 'Debug custom executable...' OnClick = mnuSelCustomClick end + object mnuDebugRecent: TMenuItem + Caption = 'Debug recent executable' + end end - object mnuWatch: TPopupMenu[4] + object mnuWatch: TPopupMenu[5] Left = 56 Top = 160 object mnuReadW: TMenuItem @@ -510,7 +514,7 @@ inherited GdbWidget: TGdbWidget OnClick = mnuReadWriteWClick end end - object mnuNext: TPopupMenu[5] + object mnuNext: TPopupMenu[6] Left = 152 Top = 112 object mnuNextMachine: TMenuItem @@ -518,7 +522,7 @@ inherited GdbWidget: TGdbWidget Caption = 'machine instruction' end end - object mnuStep: TPopupMenu[6] + object mnuStep: TPopupMenu[7] Left = 152 Top = 160 object mnuStepMachine: TMenuItem @@ -526,7 +530,7 @@ inherited GdbWidget: TGdbWidget Caption = 'machine instruction' end end - object mnuEval: TPopupMenu[7] + object mnuEval: TPopupMenu[8] Left = 216 Top = 168 object mnuEvalSelected: TMenuItem @@ -546,7 +550,7 @@ inherited GdbWidget: TGdbWidget OnClick = mnuEvalCustomClick end end - object mnuEvalCompletion: TPopupMenu[8] + object mnuEvalCompletion: TPopupMenu[9] Left = 288 Top = 168 end