Information générale
Catégorie:
Gestionnaire de menu & Menus
found out it is a know problem. recorded in mskb. to fix the problem a college mine - joe hernandez - made a change to the genmenu.
\*************************************************************************************
\* 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
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.
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement