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

fix #324 - Build duration + Compile project and run indicates the current hour of the day

This commit is contained in:
Basile Burg 2018-05-10 11:50:06 +02:00
parent 3a73b9577b
commit b6d138fbd0
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_main.pas
View File

@ -2408,6 +2408,8 @@ end;
procedure TCEMainForm.projCompiling(project: ICECommonProject); procedure TCEMainForm.projCompiling(project: ICECommonProject);
begin begin
fProjActionsLock := true; fProjActionsLock := true;
if fAppliOpts.showBuildDuration and not fIsCompilingGroup then
fCompStart := Time();
end; end;
procedure TCEMainForm.projCompiled(project: ICECommonProject; success: boolean); procedure TCEMainForm.projCompiled(project: ICECommonProject; success: boolean);
@ -2422,8 +2424,7 @@ begin
begin begin
if fAppliOpts.showBuildDuration then if fAppliOpts.showBuildDuration then
begin begin
fCompStart := Time - fCompStart; fMsgs.message('Build duration: ' + TimeToStr(Time - fCompStart), project, amcProj, amkInf);
fMsgs.message('Build duration: ' + TimeToStr(fCompStart), project, amcProj, amkInf);
end; end;
if fRunProjAfterCompile and assigned(fProject) then if fRunProjAfterCompile and assigned(fProject) then
begin begin
@ -2457,8 +2458,7 @@ begin
fMsgs.message('the project group is successfully compiled', nil, amcAll, amkInf); fMsgs.message('the project group is successfully compiled', nil, amcAll, amkInf);
if fAppliOpts.showBuildDuration then if fAppliOpts.showBuildDuration then
begin begin
fCompStart := Time - fCompStart; fMsgs.message('Group build duration: ' + TimeToStr(Time - fCompStart), nil, amcAll, amkInf);
fMsgs.message('Group build duration: ' + TimeToStr(fCompStart), nil, amcAll, amkInf);
end; end;
if assigned(fProjBeforeGroup) then if assigned(fProjBeforeGroup) then
fProjBeforeGroup.activate; fProjBeforeGroup.activate;
@ -3425,8 +3425,6 @@ procedure TCEMainForm.actProjCompileExecute(Sender: TObject);
begin begin
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
@ -3435,8 +3433,6 @@ begin
fRunProjAfterCompile := true; fRunProjAfterCompile := true;
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
@ -3446,8 +3442,6 @@ begin
fRunProjAfterCompArg := true; fRunProjAfterCompArg := true;
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
@ -3462,8 +3456,6 @@ begin
begin begin
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
if fProject.outputFilename.fileExists or (fProject.getFormat = pfDUB) then if fProject.outputFilename.fileExists or (fProject.getFormat = pfDUB) then