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

packagetabs: fix TRecreateToolBarStamps.Changed

Browse Source 
git-svn-id: trunk@51165 -
This commit is contained in:
ondrej 2016-01-03 15:51:24 +00:00
parent b2c2565415
commit 6ddab55a35
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/packagetabs/packagetabs_impl.pas
View File

@ -375,20 +375,22 @@ begin
end; end;
function TRecreateToolBarStamps.Changed: Boolean; function TRecreateToolBarStamps.Changed: Boolean;
var
LProjectChangeStamp: Integer;
begin begin
if LazarusIDE.ActiveProject <> nil then
LProjectChangeStamp := LazarusIDE.ActiveProject.ChangeStamp
else
LProjectChangeStamp := Low(LProjectChangeStamp);
Result := not( Result := not(
(LazarusIDE.ActiveProject <> nil) (FCurProjectChangeStamp = LProjectChangeStamp)
and (FCurProjectChangeStamp = LazarusIDE.ActiveProject.ChangeStamp)
and (FPackagesChangeStamp = PackageGraphInterface.ChangeStamp) and (FPackagesChangeStamp = PackageGraphInterface.ChangeStamp)
and (FInternalChangeStamp = FLastInternalChangeStamp) and (FInternalChangeStamp = FLastInternalChangeStamp)
); );
if not Result then Exit; if not Result then Exit;
if LazarusIDE.ActiveProject <> nil then FCurProjectChangeStamp := LProjectChangeStamp;
FCurProjectChangeStamp := LazarusIDE.ActiveProject.ChangeStamp
else
FCurProjectChangeStamp := Low(FCurProjectChangeStamp);
FPackagesChangeStamp := PackageGraphInterface.ChangeStamp; FPackagesChangeStamp := PackageGraphInterface.ChangeStamp;
FLastInternalChangeStamp := FInternalChangeStamp; FLastInternalChangeStamp := FInternalChangeStamp;
end; end;