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

added support for sym string to project pre/post params, as well as proj run params

This commit is contained in:
Basile Burg 2015-01-16 00:08:10 +01:00
parent c1a0ed2799
commit 0684385953
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_dmdwrap.pas
View File

@ -1002,7 +1002,8 @@ end;
procedure TCustomProcOptions.setProcess(var aProcess: TProcess); procedure TCustomProcOptions.setProcess(var aProcess: TProcess);
begin begin
aProcess.Parameters.Assign(Parameters); aProcess.Parameters.Clear;
aProcess.Parameters.AddText(symbolExpander.get(Parameters.Text));
aProcess.Executable := fExecutable; aProcess.Executable := fExecutable;
aProcess.ShowWindow := fShowWin; aProcess.ShowWindow := fShowWin;
aProcess.Options := fOptions; aProcess.Options := fOptions;
@ -1012,7 +1013,8 @@ end;
procedure TCustomProcOptions.setProcess(var aProcess: TAsyncProcess); procedure TCustomProcOptions.setProcess(var aProcess: TAsyncProcess);
begin begin
aProcess.Parameters.Assign(Parameters); aProcess.Parameters.Clear;
aProcess.Parameters.AddText(symbolExpander.get(Parameters.Text));
aProcess.Executable := fExecutable; aProcess.Executable := fExecutable;
aProcess.ShowWindow := fShowWin; aProcess.ShowWindow := fShowWin;
aProcess.Options := fOptions; aProcess.Options := fOptions;
@ -1022,7 +1024,8 @@ end;
procedure TCustomProcOptions.setProcess(var aProcess: TCheckedAsyncProcess); procedure TCustomProcOptions.setProcess(var aProcess: TCheckedAsyncProcess);
begin begin
aProcess.Parameters.Assign(Parameters); aProcess.Parameters.Clear;
aProcess.Parameters.AddText(symbolExpander.get(Parameters.Text));
aProcess.Executable := fExecutable; aProcess.Executable := fExecutable;
aProcess.ShowWindow := fShowWin; aProcess.ShowWindow := fShowWin;
aProcess.Options := fOptions; aProcess.Options := fOptions;