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

added option to clear previous redirected messages 

for example this avoids to accumulate dscanner -S results after each call
This commit is contained in:
Basile Burg 2015-02-24 07:27:09 +01:00
parent 8478e3f040
commit 29fe166257
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_tools.pas
View File

@ -20,6 +20,7 @@ type
fParameters: TStringList; fParameters: TStringList;
fToolAlias: string; fToolAlias: string;
fQueryParams: boolean; fQueryParams: boolean;
fClearMessages: boolean;
fChainBefore: TStringList; fChainBefore: TStringList;
fChainAfter: TStringList; fChainAfter: TStringList;
fShortcut: TShortcut; fShortcut: TShortcut;
@ -37,6 +38,7 @@ type
property parameters: TStringList read fParameters write setParameters; property parameters: TStringList read fParameters write setParameters;
property showWindows: TShowWindowOptions read fShowWin write fShowWin; property showWindows: TShowWindowOptions read fShowWin write fShowWin;
property queryParameters: boolean read fQueryParams write fQueryParams; property queryParameters: boolean read fQueryParams write fQueryParams;
property clearMessages: boolean read fClearMessages write fClearMessages;
property chainBefore: TStringList read fChainBefore write setchainBefore; property chainBefore: TStringList read fChainBefore write setchainBefore;
property chainAfter: TStringList read fChainAfter write setChainAfter; property chainAfter: TStringList read fChainAfter write setChainAfter;
property shortcut: TShortcut read fShortcut write fShortcut; property shortcut: TShortcut read fShortcut write fShortcut;
@ -135,6 +137,9 @@ var
begin begin
killProcess(fProcess); killProcess(fProcess);
// //
if fClearMessages then
getMessageDisplay(fMsgs).clearByContext(amcMisc);
//
fProcess := TCheckedAsyncProcess.Create(nil); fProcess := TCheckedAsyncProcess.Create(nil);
fProcess.OnReadData:= @processOutput; fProcess.OnReadData:= @processOutput;
fProcess.OnTerminate:= @processOutput; fProcess.OnTerminate:= @processOutput;