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

IDE: update menu sections: consistency check

Browse Source 
git-svn-id: branches/fixes_1_6@50989 -
This commit is contained in:
mattias 2015-12-22 00:15:37 +00:00
parent 990abcc441
commit ce6d7452ea
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/ideintf/menuintf.pas
View File

@ -990,13 +990,10 @@ var
{$ENDIF}
if ContainerMenuIndex>ContainerMenuItem.Count then
begin
{$IFDEF VerboseMenuIntf}
debugln('TIDEMenuSection.UpdateNeedTopSeparator CREATE TopSeparator Name="',Name,'" ContainerMenuIndex=',dbgs(ContainerMenuIndex),' ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
GetRoot.WriteDebugReport(' Top ',true);
debugln('TIDEMenuSection.UpdateNeedTopSeparator CREATE TopSeparator Name="',Name,'" ContainerMenuIndex ** FORCED VALUE ** FROM ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
{$ENDIF}
// there's not yet available room for new FTopSeparator.fixes #17321.
ContainerMenuIndex := ContainerMenuItem.Count;
RaiseGDBException('TIDEMenuSection.UpdateNeedTopSeparator inconsistency');
end;
ContainerMenuItem.Insert(ContainerMenuIndex,FTopSeparator);
end;
@ -1057,7 +1054,7 @@ var
// BottomSeparator is not needed anymore
FreeAndNil(FBottomSeparator);
{$IFDEF VerboseMenuIntf}
debugln('TIDEMenuSection.UpdateMenuStructure FREE BottomSeparator Name="',Name,'"');
debugln('TIDEMenuSection.UpdateNeedBottomSeparator FREE BottomSeparator Name="',Name,'"');
{$ENDIF}
end else begin
// BottomSeparator is needed
@ -1065,11 +1062,12 @@ var
FBottomSeparator.AddHandlerOnDestroy(@SeparatorDestroy);
FBottomSeparator.Caption:='-';
{$IFDEF VerboseMenuIntf}
debugln('TIDEMenuSection.UpdateMenuStructure CREATE BottomSeparator Name="',Name,'" ContainerMenuIndex=',dbgs(ContainerMenuIndex),' ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
debugln('TIDEMenuSection.UpdateNeedBottomSeparator CREATE BottomSeparator Name="',Name,'" ContainerMenuIndex=',dbgs(ContainerMenuIndex),' ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
{$ENDIF}
if ContainerMenuIndex>ContainerMenuItem.Count then begin
debugln('TIDEMenuSection.UpdateMenuStructure CREATE BottomSeparator Name="',Name,'" ContainerMenuIndex=',dbgs(ContainerMenuIndex),' ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
debugln('TIDEMenuSection.UpdateNeedBottomSeparator CREATE BottomSeparator Name="',Name,'" ContainerMenuIndex=',dbgs(ContainerMenuIndex),' ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
GetRoot.WriteDebugReport(' Bottom ',true);
RaiseGDBException('TIDEMenuSection.UpdateNeedBottomSeparator inconsistency');
end;
ContainerMenuItem.Insert(ContainerMenuIndex,FBottomSeparator);
end;