Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Activate popup on right click in a grid
Message
From
04/08/1998 10:39:43
 
 
To
04/08/1998 10:34:15
Francois Liboiron
National Bank of Canada
Montréal, Quebec, Canada
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00123022
Message ID:
00123784
Views:
19
It works in 3b in slightly different way:
*** Form.Init event
*** prepare right-click menu
define popup popNames1 margin color scheme 4
define bar 1 of popNames1 prompt 'Artist'
define bar 2 of popNames1 prompt 'Creator'
define bar 3 of popNames1 prompt 'Publisher'
define bar 4 of popNames1 prompt 'Unknown'
on selection popup popNames1 frsMain.frmNames.changenameid()
*** grid.column.textbox.rightclick
activate popup popNames1 at mrow(),mcol()


>Your are all right with your suggestions but, if found that with vfp 3.0b
>this command is not available :
>DEFINE POPUP mypopup SHORTCUT RELATIVE FROM MROW(),MCOL()
>SHORTCUT is not available with vfp 3.0b. I choose to make a form with
>the options i want instead of using the right click with a popup menu.
>I am waiting my boss to upgrade to the version 6.0. We got windows 3.1
>on 22 machines and they stop the progress still 2 years!!!
>
>>>Thank you, but the line
>>>ON SELECTION POPUP myPopup DO myprg WITH BAR()
>>>
>>>BAR( ) returns 0 if there is no active menu or if the user presses Esc to exit the menu. I dont want to change de sysmenu, is it possible
>>>to have just the popup? and take a action with the value of BAR().
>>>
>>
>>Instead of calling a procedure, do conditional statements below activate popup directly.
>>
>>
>>ON SELECTION POPUP mypopup
>>ACTIVATE POPUP mypopup
>>
>>DO CASE
>>CASE BAR() = 0
>>     blah...
>>CASE BAR() = 1
>>     blan...
>>ENDCASE
>>
>>RELEASE POPUP mypopup
>>
>>
>>
>>
>>
>>>>Hi,
>>>> Use Shortcut instead of popup and call it from RIGHTCLICK() event of the grid's textbox. For Example
>>>>
>>>> DEFINE POPUP mypopup SHORTCUT RELATIVE FROM MROW(),MCOL()
>>>>
>>>> DEFINE BAR 1 OF myPopup PROMPT "One"
>>>> DEFINE BAR 2 OF myPopup PROMPT "Two"
>>>>
>>>> ON SELECTION POPUP myPopup DO myprg WITH BAR()
>>>> ACTIVATE POPUP mypopup
>>>> RELEASE POPUP myPopup
>>>>
>>>>Hope it helps
>>>>
>>>>Bye
>>>>Jayesh
Edward Pikman
Independent Consultant
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform