Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Toplevelform menu not refreshing
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00136505
Message ID:
00138237
Vues:
21
a colleague of mine made a change to the genmenu. the change puts the menu name into a custom property of the toplevelform named "menuname". the menuname property must already exists. this allows for ACTIVATE MENU menuname NOWAIT, which updates the skip fors. have been using it for several days and it seems to work well.

interested in your thoughts. i am new to vfp and the idea of changing the genmenu is kind of scarey.

\*************************************************************************************
\* this code is unchanged
\*************************************************************************************
\LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9
\LOCAL cMenuName, nTotPops, a_menupops
\IF TYPE("m.oFormRef") # "O" OR ;
\ LOWER(m.oFormRef.BaseClass) # 'form' OR ;
\ m.oFormRef.ShowWindow # 2
\ MESSAGEBOX(<>)
\ RETURN
\ENDIF
\m.cMenuName = IIF(TYPE("m.getMenuName")="C",m.getMenuName,SYS(2015))
\IF TYPE("m.getMenuName")="L" AND m.getMenuName
\ m.oFormRef.Name = m.cMenuName
\ELSE
\*************************************************************************************
\* Changed code to provide access to SKIP TO in SDI forms - Joe Hernandez 9/15/98
\*************************************************************************************
\ IF !TYPE("m.oFormRef.MenuName")="U"
\ m.oFormRef.MenuName = m.cMenuName
\ ENDIF
\ENDIF
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform