Make the menus of Delphi applications work

[Michael Kaufmann]

This patch fixes the problem that the menus of Delphi applications don't 
work with WINE.

Changelog:
  - Made the menus of Delphi applications work
  - A single menu can be used in multiple windows, but there are some 
bugs left


PS: Please don't commit my patch "Fix for menus assigned to multiple 
windows". This patch does the same, but changes less code.
-------------- next part --------------
Index: dlls/user/menu.c
===================================================================
RCS file: /home/wine/wine/dlls/user/menu.c,v
retrieving revision 1.1
diff -u -r1.1 menu.c
--- dlls/user/menu.c	31 Aug 2004 01:10:08 -0000	1.1
+++ dlls/user/menu.c	8 Sep 2004 23:58:20 -0000
@@ -2859,6 +2859,14 @@
 
        }
     }
+    
+    /* This makes the menus of applications built with Delphi work.
+     * It also enables menus to be displayed in more than one window,
+     * but there are some bugs left that need to be fixed in this case.
+     */
+    POPUPMENU *menu;
+    if ((menu = MENU_GetMenu( hMenu ))) menu->hWnd = hWnd;
+    
     return TRUE;
 }
 /***********************************************************************