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