Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sub bar on popup menus
Message
From
14/12/2005 14:32:45
 
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01077966
Message ID:
01077999
Views:
23
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform