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

don't create handle for unvisible menu item

Browse Source 
git-svn-id: trunk@6494 -
This commit is contained in:
vincents 2005-01-07 13:04:08 +00:00
parent 6815fe14f7
commit 68ed2f8fe4
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/menu.inc
View File

@ -79,7 +79,8 @@ begin
// initiate creation of subitems
// Note: FItems is a TMenuItem. Using HandleNeeded will create all subitems.
for i:=0 to Items.Count-1 do
Items[i].HandleNeeded;
if Items[i].Visible then
Items[i].HandleNeeded;
end;
procedure TMenu.DestroyHandle;
@ -244,6 +245,9 @@ end;
{ =============================================================================
$Log$
Revision 1.29 2005/01/07 13:04:08 vincents
don't create handle for unvisible menu item
Revision 1.28 2004/12/05 13:25:47 mattias
destroying clean up