paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 21:42:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: menuintf: fixed hiding existing MenuItems

Browse Source 
git-svn-id: trunk@53109 -
This commit is contained in:
mattias 2016-10-14 17:00:01 +00:00
parent b40800c317
commit 8a18022cc5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/menuintf.pas
View File

@ -1090,6 +1090,7 @@ var
then begin
// already in place -> ok
inc(aMenuIndex);
Item.Visible:=aVisible;
end else begin
// structure has changed
if Item.MenuItem<>nil then
@ -1282,7 +1283,7 @@ begin
UpdateVisibleCommandCount(AddedVisibleCommands);
{$IFDEF VerboseMenuIntf}
debugln(['TIDEMenuSection.Insert AAA3 Self="',Name,'" Item="',AnItem.Name,'" VisibleActive=',VisibleActive,' VisibleCommandCount=',VisibleCommandCount,' MenuItem=',DbgSName(MenuItem)]);
debugln(['TIDEMenuSection.Insert END Self="',Name,'" Item="',AnItem.Name,'" VisibleActive=',VisibleActive,' VisibleCommandCount=',VisibleCommandCount,' MenuItem=',DbgSName(MenuItem)]);
ConsistencyCheck;
{$ENDIF}
end;