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

IDE: fixed editor crash in multi window mode (context menu).patch from Juha, debugging from me. fixes #17321

Browse Source 
git-svn-id: trunk@27252 -
This commit is contained in:
zeljko 2010-09-02 19:04:55 +00:00
parent 41cba2bb5e
commit 4f5b4d81da
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/menuintf.pas
View File

@ -990,9 +990,15 @@ var
{$IFDEF VerboseMenuIntf}
debugln('TIDEMenuSection.UpdateNeedTopSeparator CREATE TopSeparator Name="',Name,'" ContainerMenuIndex=',dbgs(ContainerMenuIndex),' ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
{$ENDIF}
if ContainerMenuIndex>ContainerMenuItem.Count then begin
if ContainerMenuIndex>ContainerMenuItem.Count then
begin
debugln('TIDEMenuSection.UpdateNeedTopSeparator CREATE TopSeparator Name="',Name,'" ContainerMenuIndex=',dbgs(ContainerMenuIndex),' ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
GetRoot.WriteDebugReport(' Top ',true);
{$IFDEF VerboseMenuIntf}
debugln('TIDEMenuSection.UpdateNeedTopSeparator CREATE TopSeparator Name="',Name,'" ContainerMenuIndex ** FORCED VALUE ** FROM ContainerMenuItem.Count=',dbgs(ContainerMenuItem.Count));
{$ENDIF}
// there's no yet available room for new FTopSeparator.fixes #17321.
ContainerMenuIndex := ContainerMenuItem.Count;
end;
ContainerMenuItem.Insert(ContainerMenuIndex,FTopSeparator);
end;