BUG: SHOW POPUP Does Not Work with Menu PopupsLast reviewed: May 6, 1997Article ID: Q111676 |
The information in this article applies to:
SYMPTOMSThe command SHOW POPUP will not show a popup defined as part of the system menu. The following example was taken from the FoxPro for Windows online help to illustrate this problem. This same code works correctly in FoxPro for MS-DOS.
*** CODE BEGINS HERE *** *** Name this program SHOW.PRG *** CLEAR SET SYSMENU SAVE SET SYSMENU TO DEFINE PAD cardpad OF _MSYSMENU PROMPT '\<Card Info'; COLOR SCHEME 3 KEY ALT+I, '' DEFINE PAD showpad OF _MSYSMENU PROMPT '\<Show Card Info' ; COLOR SCHEME 3 KEY ALT+I, '' DEFINE PAD clearpad OF _MSYSMENU PROMPT 'C\<lear Card Info' ; COLOR SCHEME 3 KEY ALT+I, '' ON PAD cardpad OF _MSYSMENU ACTIVATE POPUP cardinfo ON SELECTION PAD showpad OF _MSYSMENU ; DO choice IN show WITH PROMPT( ), POPUP( ) ON SELECTION PAD clearpad OF _MSYSMENU ; DO choice IN show WITH PROMPT( ), POPUP( ) DEFINE POPUP cardinfo MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF cardinfo PROMPT '\<View Charges' ; KEY ALT+V, '' DEFINE BAR 2 OF cardinfo PROMPT 'View \<Payments' ; KEY ALT+P, '' DEFINE BAR 3 OF cardinfo PROMPT 'Vie\<w Users' ; KEY ALT+W, '' DEFINE BAR 4 OF cardinfo PROMPT '\-' DEFINE BAR 5 OF cardinfo PROMPT '\<Charges ' DEFINE BAR 6 OF cardinfo PROMPT '\-' DEFINE BAR 7 OF cardinfo PROMPT 'E\<xit ' ON SELECTION POPUP cardinfo; DO choice IN show WITH PROMPT( ), POPUP( ) PROCEDURE choice PARAMETERS mprompt, mpopup IF mprompt = 'Show Card Info' SHOW POPUP cardinfo RETURN ENDIF IF mprompt = 'Clear Card Info' CLEAR RETURN ENDIF WAIT WINDOW 'You chose ' + mprompt + ; ' from popup ' + mpopup NOWAIT IF mprompt = 'Exit' SET SYSMENU TO DEFAULT ENDIF *** CODE ENDS HERE *** * Choosing "Show Card Info" from the menu does not show the popup, which * illustrates the problem. RESOLUTIONTo work around this problem, use the following syntax
ON SELECTION PAD cardpad OF _MSYSMENU DO choice IN show WITH PROMPT( ),; POPUP( )and place the appropriate code in CHOICE.
STATUSMicrosoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available. |
Keywords : buglist2.50 buglist2.50a buglist2.50b buglist2.50c vfpbug5.0a kbbuglist
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |