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); procedure TCEMainForm.projCompiled(aProject: ICECommonProject; success: boolean);
var var
runArgs: string = ''; runArgs: string = '';
runprev: boolean = true;
begin begin
if fRunProjAfterCompile and assigned(fProjectInterface) then if fRunProjAfterCompile and assigned(fProjectInterface) then
begin begin
if fRunProjAfterCompArg and not InputQuery('Execution arguments', '', runargs) then if not success then
runargs := ''; runprev := dlgOkCancel('last build failed, continue and run ?') = mrOK;
fProjectInterface.run(runargs); if runprev then
begin
if fRunProjAfterCompArg and
not InputQuery('Execution arguments', '', runargs) then
runargs := '';
fProjectInterface.run(runargs);
end;
end; end;
fRunProjAfterCompile := false; fRunProjAfterCompile := false;
fRunProjAfterCompArg := false; fRunProjAfterCompArg := false;