paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-19 05:20:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: TMainIDE.SetToolStatus: check if something changed

Browse Source 
git-svn-id: trunk@50044 -
This commit is contained in:
mattias 2015-10-13 12:09:49 +00:00
parent 159d719bdc
commit 7ff368f3b7
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/main.pp
View File

@ -3502,6 +3502,7 @@ end;
procedure TMainIDE.SetToolStatus(const AValue: TIDEToolStatus);
begin
if ToolStatus=AValue then exit;
inherited SetToolStatus(AValue);
if DebugBoss <> nil then
DebugBoss.UpdateButtonsAndMenuItems;
@ -6547,7 +6548,6 @@ begin
pbfSkipAssembler in Flags,aCompileHint);
if ConsoleVerbosity>=0 then
debugln(['TMainIDE.DoBuildProject compiler time in s: ',(Now-StartTime)*86400]);
DoCallBuildingFinishedHandler(lihtProjectBuildingFinished, Self, Result=mrOk);
if Result<>mrOk then begin
// save state, so that next time the project is not compiled clean
Project1.LastCompilerFilename:=CompilerFilename;
@ -6996,12 +6996,6 @@ begin
exit;
end;
Result:=DoCallModalFunctionHandler(lihtLazarusBuilding);
if Result<>mrOk then begin
debugln(['TMainIDE.DoBuildLazarusSub handler lihtLazarusBuilding negative']);
exit;
end;
if fBuilder=Nil then
fBuilder:=TLazarusBuilder.Create;
if ExternalTools.RunningCount=0 then
@ -7079,7 +7073,6 @@ begin
SourceEditorManager.ClearErrorLines;
IDEBuildFlags:=IDEBuildFlags+[blfUseMakeIDECfg,blfDontClean];
Result:=fBuilder.MakeLazarus(BuildLazProfiles.Current, IDEBuildFlags);
DoCallBuildingFinishedHandler(lihtLazarusBuildingFinished, Self, Result=mrOk);
if Result<>mrOk then exit;
if fBuilder.ProfileChanged then begin