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

compile proj & run, handle compilation failures

This commit is contained in:
Basile Burg 2016-01-30 04:39:49 +01:00
parent 8d75799454
commit 01724a5a9e
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_main.pas
View File

@ -1391,12 +1391,19 @@ end;
procedure TCEMainForm.projCompiled(aProject: ICECommonProject; success: boolean);
var
runArgs: string = '';
runprev: boolean = true;
begin
if fRunProjAfterCompile and assigned(fProjectInterface) then
begin
if fRunProjAfterCompArg and not InputQuery('Execution arguments', '', runargs) then
runargs := '';
fProjectInterface.run(runargs);
if not success then
runprev := dlgOkCancel('last build failed, continue and run ?') = mrOK;
if runprev then
begin
if fRunProjAfterCompArg and
not InputQuery('Execution arguments', '', runargs) then
runargs := '';
fProjectInterface.run(runargs);
end;
end;
fRunProjAfterCompile := false;
fRunProjAfterCompArg := false;