paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 18:09:23 +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;
function TRecreateToolBarStamps.Changed: Boolean;
var
LProjectChangeStamp: Integer;
begin
if LazarusIDE.ActiveProject <> nil then
LProjectChangeStamp := LazarusIDE.ActiveProject.ChangeStamp
else
LProjectChangeStamp := Low(LProjectChangeStamp);
Result := not(
(LazarusIDE.ActiveProject <> nil)
and (FCurProjectChangeStamp = LazarusIDE.ActiveProject.ChangeStamp)
(FCurProjectChangeStamp = LProjectChangeStamp)
and (FPackagesChangeStamp = PackageGraphInterface.ChangeStamp)
and (FInternalChangeStamp = FLastInternalChangeStamp)
);
if not Result then Exit;
if LazarusIDE.ActiveProject <> nil then
FCurProjectChangeStamp := LazarusIDE.ActiveProject.ChangeStamp
else
FCurProjectChangeStamp := Low(FCurProjectChangeStamp);
FCurProjectChangeStamp := LProjectChangeStamp;
FPackagesChangeStamp := PackageGraphInterface.ChangeStamp;
FLastInternalChangeStamp := FInternalChangeStamp;
end;