diff --git a/src/ce_gdb.lfm b/src/ce_gdb.lfm index 4ebebe31..ec5b08b8 100644 --- a/src/ce_gdb.lfm +++ b/src/ce_gdb.lfm @@ -203,9 +203,9 @@ inherited CEGdbWidget: TCEGdbWidget Hint = 'edit the command line and the environment of the debuger target' Top = 0 Width = 517 - ActivePage = TabSheet1 + ActivePage = TabSheet5 Align = alTop - TabIndex = 0 + TabIndex = 2 TabOrder = 3 object TabSheet1: TTabSheet Caption = 'Call stack' @@ -315,6 +315,7 @@ inherited CEGdbWidget: TCEGdbWidget 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 + OnEditorFilter = dbgeeOptsEdEditorFilter PreferredSplitterX = 190 SplitterX = 190 ValueFont.Color = clGreen diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas index 2499d1f6..62543bd0 100644 --- a/src/ce_gdb.pas +++ b/src/ce_gdb.pas @@ -10,7 +10,7 @@ uses StdCtrls, process, xfpjson, typinfo, Unix, ListViewFilterEdit, SynEdit, ce_common, ce_interfaces, ce_widget, ce_processes, ce_observer, ce_synmemo, ce_sharedres, ce_stringrange, ce_dsgncontrols, ce_dialogs, ce_dbgitf, - ce_ddemangle, ce_writableComponent, EditBtn, strutils; + ce_ddemangle, ce_writableComponent, EditBtn, strutils, ObjectInspector; type @@ -421,6 +421,8 @@ type procedure btnStartClick(Sender: TObject); procedure btnStopClick(Sender: TObject); procedure btnWatchClick(Sender: TObject); + procedure dbgeeOptsEdEditorFilter(Sender: TObject; + aEditor: TPropertyEditor; var aShow: boolean); procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure lstCallStackDblClick(Sender: TObject); procedure lstThreadsDblClick(Sender: TObject); @@ -2504,6 +2506,12 @@ begin gdbCommand(cmd[fAddWatchPointKind] + nme); end; +procedure TCEGdbWidget.dbgeeOptsEdEditorFilter(Sender: TObject; + aEditor: TPropertyEditor; var aShow: boolean); +begin + aShow := aEditor.GetName <> 'filename'; +end; + procedure TCEGdbWidget.btnSendComClick(Sender: TObject); begin sendCustomCommand;