From 0684385953d5ade85e5bd889a55226b992520004 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 16 Jan 2015 00:08:10 +0100 Subject: [PATCH] added support for sym string to project pre/post params, as well as proj run params --- src/ce_dmdwrap.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/ce_dmdwrap.pas b/src/ce_dmdwrap.pas index 86589adb..5ce6ca86 100644 --- a/src/ce_dmdwrap.pas +++ b/src/ce_dmdwrap.pas @@ -1002,7 +1002,8 @@ end; procedure TCustomProcOptions.setProcess(var aProcess: TProcess); begin - aProcess.Parameters.Assign(Parameters); + aProcess.Parameters.Clear; + aProcess.Parameters.AddText(symbolExpander.get(Parameters.Text)); aProcess.Executable := fExecutable; aProcess.ShowWindow := fShowWin; aProcess.Options := fOptions; @@ -1012,7 +1013,8 @@ end; procedure TCustomProcOptions.setProcess(var aProcess: TAsyncProcess); begin - aProcess.Parameters.Assign(Parameters); + aProcess.Parameters.Clear; + aProcess.Parameters.AddText(symbolExpander.get(Parameters.Text)); aProcess.Executable := fExecutable; aProcess.ShowWindow := fShowWin; aProcess.Options := fOptions; @@ -1022,7 +1024,8 @@ end; procedure TCustomProcOptions.setProcess(var aProcess: TCheckedAsyncProcess); begin - aProcess.Parameters.Assign(Parameters); + aProcess.Parameters.Clear; + aProcess.Parameters.AddText(symbolExpander.get(Parameters.Text)); aProcess.Executable := fExecutable; aProcess.ShowWindow := fShowWin; aProcess.Options := fOptions;