Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Popup modification
Message
From
17/10/2005 13:22:53
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01059605
Message ID:
01059650
Views:
8
Did you try calling it from the keypress of the form instead and setting the form's keypreview to .t. (check for nKeycode = -8) What about the right-click of the form to launch the popup instead? Not sure what your end goal appearance is...
DEFINE POPUP mainpop MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF mainpop PROMPT "\<Goto 2nd Level"
ON BAR 1 OF mainpop ACTIVATE POPUP level2pop

DEFINE POPUP level2pop MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF level2pop PROMPT "Activate Help"
ON SELECTION BAR 1 OF level2pop HElP

ON KEY LABEL F9 DO openpops
ON KEY LABEL F11 DO closepops
*--OpenPops
ACTIVATE POPUP mainpop
*--ClosePops
DEACTIVATE POPUP mainpop
DEACTIVATE POPUP level2pop
>I have created a very simple popup menu when someone presses F9 on the keyboard. My code is:
>
>
>define popup popfile in screen TITLE 'VELMORE Style Menu' margin relative color scheme 4
>define bar 1 of popfile prompt 'VELMORE Contract Colour Variance Report'
>on selection bar 1 of popfile do colvar
>
>on key label F9 activate popup popfile at 0,0
>on key label F11 deactivate popup popfile at 0,0
>
>
>What I would like to do though is catagorise my options i.e. having top level options then sub options. Can this be done???? For example I would like to have an option reports and then when you click on this option I would like the list of reports to show or be indented on the popup.
>
>Also can someone tell me why my popup form is displayed but is still behind my mainform window. I have to move my main form to see the popup?
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Previous
Reply
Map
View

Click here to load this message in the networking platform