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

unleashed a bug in TCEProject, run, parameters not copied from TCEPorjectRunOptions

This commit is contained in:
Basile Burg 2014-11-13 16:33:01 +01:00
parent 1a1f050937
commit 5a4076b1cb
3 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lazproj/coedit.lpi
View File

@ -307,7 +307,7 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="ce_toolseditor"/>
</Unit26>
<Unit27>
<Unit27>
<Filename Value="..\src\ce_txtsyn.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="ce_txtsyn"/>

12
src/ce_dmdwrap.pas
View File

@ -258,7 +258,7 @@ type
procedure setExecutable(const aValue: string);
procedure setWorkDir(const aValue: string);
procedure setOptions(const aValue: TProcessOptions);
procedure setParameters(const aValue: TStringList);
procedure setParameters(aValue: TStringList);
procedure setShowWin(const aValue: TShowWindowOptions);
protected
property executable: string read fExecutable write setExecutable;
@ -271,7 +271,7 @@ type
destructor destroy; override;
procedure assign(source: TPersistent); override;
procedure getOpts(const aList: TStrings); override;
procedure setProcess(const aProcess: TProcess);
procedure setProcess(aProcess: TProcess);
end;
(*****************************************************************************
@ -986,7 +986,7 @@ begin
if source is TCustomProcOptions then
begin
src := TCustomProcOptions(source);
fParameters.Assign(src.fParameters);
fParameters := src.fParameters;
fOptions := src.fOptions;
fExecutable := src.fExecutable;
fShowWin := src.fShowWin;
@ -998,7 +998,9 @@ procedure TCustomProcOptions.getOpts(const aList: TStrings);
begin
end;
procedure TCustomProcOptions.setProcess(const aProcess: TProcess);
procedure TCustomProcOptions.setProcess(aProcess: TProcess);
var
i: Integer;
begin
aProcess.Parameters := fParameters;
aProcess.Executable := fExecutable;
@ -1029,7 +1031,7 @@ begin
doChanged;
end;
procedure TCustomProcOptions.setParameters(const aValue: TStringList);
procedure TCustomProcOptions.setParameters(aValue: TStringList);
begin
fParameters.Assign(aValue);
doChanged;

28
src/ce_project.pas
View File

@ -559,16 +559,26 @@ begin
killProcess(fRunner);
//
fRunner := TAsyncProcess.Create(nil); // fRunner can use the input process widget.
// TODO-cbugfix: parameters are not copied from src to target.
currentConfiguration.runOptions.setProcess(fRunner);
prm := '';
i := 1;
repeat
prm := ExtractDelimited(i, runArgs, [' ']);
prm := CEMainForm.expandSymbolicString(prm);
if prm <> '``' then
fRunner.Parameters.AddText(prm);
Inc(i);
until prm = '``';
//fRunner.Parameters.SaveToFile('C:\dst.txt');
//currentConfiguration.runOptions.parameters.SaveToFile('C:\src.txt');
if runArgs <> '' then
begin
prm := '';
i := 1;
repeat
prm := ExtractDelimited(i, runArgs, [' ']);
prm := CEMainForm.expandSymbolicString(prm);
if prm <> '``' then
fRunner.Parameters.AddText(prm);
Inc(i);
until prm = '``';
end;
//
if not fileExists(outputFilename) then
begin