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

lcl: fixed setting TMenuItem.Visible without Parent

Browse Source 
git-svn-id: branches/fixes_1_6@52916 -
This commit is contained in:
mattias 2016-09-05 12:10:22 +00:00
parent b98b550355
commit 6b1eeb12fc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/menuitem.inc
View File

@ -1353,7 +1353,8 @@ begin
if AValue then if AValue then
begin begin
FVisible := AValue; FVisible := AValue;
if (not (csLoading in ComponentState)) and Parent.HandleAllocated then if (not (csLoading in ComponentState)) and (Parent<>nil)
and Parent.HandleAllocated then
HandleNeeded; HandleNeeded;
if HandleAllocated then if HandleAllocated then
TWSMenuItemClass(WidgetSetClass).SetVisible(Self, True); TWSMenuItemClass(WidgetSetClass).SetVisible(Self, True);