forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

#97, prevents modification of prop used to detect inferior args & env

This commit is contained in:
Basile Burg 2016-12-07 10:25:49 +01:00
parent a8c1974af7
commit cab68901df
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_gdb.lfm
View File

@ -203,9 +203,9 @@ inherited CEGdbWidget: TCEGdbWidget
Hint = 'edit the command line and the environment of the debuger target' Hint = 'edit the command line and the environment of the debuger target'
Top = 0 Top = 0
Width = 517 Width = 517
ActivePage = TabSheet1 ActivePage = TabSheet5
Align = alTop Align = alTop
TabIndex = 0 TabIndex = 2
TabOrder = 3 TabOrder = 3
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Call stack' 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] 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 Indent = 10
NameFont.Color = clWindowText NameFont.Color = clWindowText
OnEditorFilter = dbgeeOptsEdEditorFilter
PreferredSplitterX = 190 PreferredSplitterX = 190
SplitterX = 190 SplitterX = 190
ValueFont.Color = clGreen ValueFont.Color = clGreen

10
src/ce_gdb.pas
View File

@ -10,7 +10,7 @@ uses
StdCtrls, process, xfpjson, typinfo, Unix, ListViewFilterEdit, SynEdit, StdCtrls, process, xfpjson, typinfo, Unix, ListViewFilterEdit, SynEdit,
ce_common, ce_interfaces, ce_widget, ce_processes, ce_observer, ce_synmemo, ce_common, ce_interfaces, ce_widget, ce_processes, ce_observer, ce_synmemo,
ce_sharedres, ce_stringrange, ce_dsgncontrols, ce_dialogs, ce_dbgitf, ce_sharedres, ce_stringrange, ce_dsgncontrols, ce_dialogs, ce_dbgitf,
ce_ddemangle, ce_writableComponent, EditBtn, strutils; ce_ddemangle, ce_writableComponent, EditBtn, strutils, ObjectInspector;
type type
@ -421,6 +421,8 @@ type
procedure btnStartClick(Sender: TObject); procedure btnStartClick(Sender: TObject);
procedure btnStopClick(Sender: TObject); procedure btnStopClick(Sender: TObject);
procedure btnWatchClick(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 Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure lstCallStackDblClick(Sender: TObject); procedure lstCallStackDblClick(Sender: TObject);
procedure lstThreadsDblClick(Sender: TObject); procedure lstThreadsDblClick(Sender: TObject);
@ -2504,6 +2506,12 @@ begin
gdbCommand(cmd[fAddWatchPointKind] + nme); gdbCommand(cmd[fAddWatchPointKind] + nme);
end; end;
procedure TCEGdbWidget.dbgeeOptsEdEditorFilter(Sender: TObject;
aEditor: TPropertyEditor; var aShow: boolean);
begin
aShow := aEditor.GetName <> 'filename';
end;
procedure TCEGdbWidget.btnSendComClick(Sender: TObject); procedure TCEGdbWidget.btnSendComClick(Sender: TObject);
begin begin
sendCustomCommand; sendCustomCommand;