Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Top-level Error ... Again
Message
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00301095
Message ID:
00301232
Views:
53
>>>
lcMyMenu = ''
>>>DO Main.mpr WITH THISFORM, lcMyMenu
>>>WITH oApp     && oApp is application object
>>>    .MenuName = lcMyMenu && Store menu name for release later
>>>    .ConfigureMenu()     && Sets up Cut, Copy and Paste functionality
>>>ENDWITH
>>>SET SYSMENU OFF       && These 2 statements are required after instantiating
>>>SET SYSMENU AUTOMATIC && the top-level menu to get the hotkeys to work
>>>
>>>
>>>The menu and "Edit" popup are being released in the form Destroy with the following code:
>>>
>>>
RELEASE POPUPS Edit EXTENDED
>>>RELEASE MENUS (oApp.MenuName) EXTENDED
>>>
>Well, tried your suggestions and no go. NULLed the oApp property, still errs, used a form prop instead of oApp, still errs, tried removing the SET SYSMENU OFF and SET SYSMENU AUTOMATIC statements in the form Init, still errs, even tried removing the code that sets up the menu Edit functions, still errs. The key seems to be that if I issue CLEAR PROG, it then runs ok, but I don't know what it's changing. I must be missing something ... but I'm stumped. Any other thoughts? :-)

Okay, we're getting drastic now - does it still occur if you dump all references from oApp, as well as the SYSMENU stuff? IOW, just reduce it to a very simple TL menu to see if there's something wrong with the menu itself...also, could it be related to the added EDIT functionality (which is in the main vfp also), somehow? You might try removing that part also, to see if there's anything there.

Now you see why I didn't reply to your first post - this is a funny bug, it's hard to know where to look :)
The Anonymous Bureaucrat,
and frankly, quite content not to be
a member of either major US political party.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform