Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sub bar on popup menus
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01077966
Message ID:
01077999
Vues:
24
>Something like this?
>

Here is.. I've been implemented your code with "on bar 3" outside of the right position.. The following code was the final release.. Status: working fine! Thank you Hugo..

Claudio
DEFINE POPUP myShortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1   OF myShortcut PROMPT 'first item'        KEY ALT+O
DEFINE BAR 2   OF myShortcut PROMPT 'second one'        KEY ALT+P
DEFINE BAR 3   OF myShortcut PROMPT 'thirdy'            KEY ALT+V
ON BAR 3 OF myShortcut ACTIVATE POPUP myMulti
DEFINE BAR 4   OF myShortcut PROMPT '\-'

ON SELECTION POPUP myShortcut;
    DO submehu WITH PROMPT(), POPUP()

DEFINE POPUP myMulti SHORTCUT RELATIVE  FROM MROW()+9,MCOL()+37
DEFINE BAR 1 OF myMulti PROMPT 'Doc HTML' KEY CTRL+H, '^H'
DEFINE BAR 2 OF myMulti PROMPT 'Doc Word' ;
    KEY CTRL+W, '^W'

ACTIVATE POPUP myShortcut NOWAIT

PUSH POPUP myShortcut
RETURN

PROCEDURE submehu
    LPARAMETERS lcprompt, lcpopup
    *SET STEP ON
    WAIT 'The choice ' + lcprompt + ' and ' + lcpopup WINDOW nowait
    IF  BAR() = 11
        *ACTIVATE POPUP myMulti
        *PUSH POPUP myMulti
    ENDIF
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform