Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Right-click menu
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00083141
Message ID:
00084074
Views:
30
>>>>>>Edward,
>>>>>>
>>>>>>Yeah, they changed the way it worked in VFP5, fixed it acutally, but that classlib needed to stay 3 and 5 compatible thus the version() test.
>>>>>>
>>>>>
>>>>>I just fix the problem using your clue. It looks that it's enough to provide the same font (name,size,style) for _screen and form. Thanks again for your help.
>>>>
>>>>Hi, I have problem: After user click the Popup Menu when RightClick in Textbox,
>>>>the PopupMenu Do not Disappear... How to fix it? Although the PopupMenu is
>>>>doing some simple Cut, COpy, Paste, Undo action ~_~"
>>>
>>>DEACTIVATE POPUP ... will do this.
>>
>>Well, where to add it?? Because the last command for rightclick is:
>>Activate Popup ...
>>if Deactivate Popup at once, there will be nothing see... >_<"
>
>Somewhere your code must contain the following:
>
>DEFINE POPUP mypopup .........
>ON SELECTION POPUP mypopup ........
>ACTIVATE POPUP mypopup
>
>The second line should be one of the following:
>
>ON SELECTION POPUP mypopup DEATIVATE POPUP mypopup
>or
>ON SELECTION POPUP mypopup DO procedure
>
>In procedure you would have DEATIVATE POPUP mypopup HTH

*
You can paste it in any text controls' RightClick() method:
DEFINE POPUP QuickEdit SHORTCUT FROM mrow(),mcol()

DEFINE BAR _med_cut OF QuickEdit PROMPT "Cut" ;
KEY CTRL+X
DEFINE BAR _med_copy OF QuickEdit PROMPT "Copy" ;
KEY CTRL+C
DEFINE BAR _med_paste OF QuickEdit PROMPT "Paste" ;
KEY CTRL+V

ACTIVATE POPUP QuickEdit
RELEASE POPUP QuickEdit
HTH
:0)
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...


Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca
Previous
Reply
Map
View

Click here to load this message in the networking platform