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

fixup for 44ce9decf5

This commit is contained in:
Basile Burg 2016-09-17 20:56:24 +02:00
parent 44ce9decf5
commit 337cf1bbbb
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ce_main.pas
View File

@ -2974,7 +2974,8 @@ begin
fRunProjAfterCompile := true;
if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject);
fCompStart := Time;
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile;
end;
@ -2984,7 +2985,8 @@ begin
fRunProjAfterCompArg := true;
if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject);
fCompStart := Time;
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile;
end;
@ -3000,12 +3002,12 @@ begin
begin
if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject);
fCompStart := Time;
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile;
end;
if fProject.outputFilename.fileExists
or (fProject.getFormat = pfDub) then
fProject.run;
if fProject.outputFilename.fileExists or (fProject.getFormat = pfDub) then
fProject.run;
end;
procedure TCEMainForm.actProjRunWithArgsExecute(Sender: TObject);
@ -3028,7 +3030,6 @@ begin
if act.Tag = 0 then exit;
//
widg := TCEWidget(act.Tag);
if widg.isDockable then
begin
if DockMaster.GetAnchorSite(widg).GetTopParent = DockMaster.GetAnchorSite(widg) then
@ -3484,7 +3485,8 @@ begin
fGroupCompilationCnt := 0;
fIsCompilingGroup := true;
fMsgs.message('start compiling a project group...', nil, amcAll, amkInf);
fCompStart := Time;
if fAppliOpts.showBuildDuration then
fCompStart := Time;
for i:= 0 to fProjectGroup.projectCount-1 do
begin
fProjectGroup.getProject(i).activate;