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

fixed menu destroy from Micha

Browse Source 
git-svn-id: trunk@4318 -
This commit is contained in:
mattias 2003-06-25 20:49:58 +00:00
parent 79e5ab2e34
commit 03f2d1e5c8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32object.inc
View File

@ -535,8 +535,9 @@ Begin
End
Else If Sender Is TMenuItem Then
Begin
DeleteMenu((Sender as TMenuItem).Parent.Handle, Handle, MF_BYCOMMAND);
{ release menu item id }
{ not assigned when this the menuitem of a TMenu; handle is destroyed above }
if Assigned(TMenuItem(Sender).Parent) then
DeleteMenu((Sender as TMenuItem).Parent.Handle, TMenuItem(Sender).Command, MF_BYCOMMAND);
DrawMenuBar(((Sender as TMenuItem).Owner as TWinControl).Handle);
End
Else
@ -2673,6 +2674,9 @@ End;
{
$Log$
Revision 1.57 2003/06/25 20:49:58 mattias
fixed menu destroy from Micha
Revision 1.56 2003/06/25 20:48:48 mattias
fixed progressbar from Micha