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

#97, custom commands can include symbolic strings

This commit is contained in:
Basile Burg 2016-10-29 03:09:53 +02:00
parent 25cf416369
commit 0fa45714dc
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_gdb.lfm
View File

@ -137,7 +137,7 @@ inherited CEGdbWidget: TCEGdbWidget
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 0 ItemHeight = 0
MaxLength = 64 MaxLength = 128
OnKeyUp = Edit1KeyUp OnKeyUp = Edit1KeyUp
TabOrder = 0 TabOrder = 0
end end

9
src/ce_gdb.pas
View File

@ -10,7 +10,7 @@ uses
StdCtrls, ValEdit, process, fpjson, typinfo, StdCtrls, ValEdit, process, fpjson, typinfo,
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; ce_ddemangle, ce_writableComponent, ce_symstring;
type type
@ -356,6 +356,7 @@ type
procedure setToolBarFlat(value: boolean); override; procedure setToolBarFlat(value: boolean); override;
procedure updateLoop; override; procedure updateLoop; override;
private private
fSyms: ICESymStringExpander;
fExe: string; fExe: string;
fOutputName: string; fOutputName: string;
fShowFromCustomCommand: boolean; fShowFromCustomCommand: boolean;
@ -844,6 +845,7 @@ begin
inherited; inherited;
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
EntitiesConnector.addSingleService(self); EntitiesConnector.addSingleService(self);
fSyms := getSymStringExpander;
fDocHandler:= getMultiDocHandler; fDocHandler:= getMultiDocHandler;
fMsg:= getMessageDisplay; fMsg:= getMessageDisplay;
fFileLineBrks:= TStringList.Create; fFileLineBrks:= TStringList.Create;
@ -2010,10 +2012,11 @@ begin
cmd := edit1.Text; cmd := edit1.Text;
if cmd.isBlank or cmd.isEmpty then if cmd.isBlank or cmd.isEmpty then
exit; exit;
fShowFromCustomCommand := true;
gdbCommand(cmd, @gdboutJsonize);
if edit1.Items.IndexOf(cmd) = -1 then if edit1.Items.IndexOf(cmd) = -1 then
edit1.Items.Add(cmd); edit1.Items.Add(cmd);
cmd := fSyms.expand(edit1.Text);
fShowFromCustomCommand := true;
gdbCommand(cmd, @gdboutJsonize);
edit1.Text := ''; edit1.Text := '';
end; end;