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

IDEIntf: fixed crash on TIDEMenuSection.Clear, bug #30574

Browse Source 
git-svn-id: trunk@52935 -
This commit is contained in:
mattias 2016-09-08 11:01:18 +00:00
parent 7cbaf52c25
commit eabe435a62
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/menuintf.pas
View File

@ -1072,6 +1072,7 @@ var
SubSection: TIDEMenuSection; SubSection: TIDEMenuSection;
aVisible: Boolean; aVisible: Boolean;
begin begin
if imssClearing in aSection.FStates then exit;
aVisible:=aSection.RealVisible; aVisible:=aSection.RealVisible;
for i:=0 to aSection.Count-1 do begin for i:=0 to aSection.Count-1 do begin
Item:=aSection[i]; Item:=aSection[i];