Works fine on mine Grig, Just cut'n'paste your code into a file, then ON KEY LABEL RIGHTMOUSE DO test
And it worked OK - Just did it in VFP6 - haven't tried 9 Robbo. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Grigore Dolghin Sent: 18 August 2006 11:33 To: [email protected] Subject: Shortcut menu I've ran into a weird problem regarding to shorcut menus. The code is posted below. This shortcut menu shows Copy, Paste, Select All and so on. However, they're ALWAYS active, no matter what. Normally, Copy option should be active only if some text is selected in the control. Anyone knows why? DEFINE POPUP FoxShortcutMenu SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR _med_undo OF foxshortcutmenu PROMPT "\<Undo" ; KEY CTRL+Z, "Ctrl+Z" DEFINE BAR _med_redo OF foxshortcutmenu PROMPT "Re\<do" ; KEY CTRL+R, "Ctrl+R" DEFINE BAR _med_sp100 OF foxshortcutmenu PROMPT "\-" DEFINE BAR _med_cut OF foxshortcutmenu PROMPT "Cu\<t" ; KEY CTRL+X, "Ctrl+X" DEFINE BAR _med_copy OF foxshortcutmenu PROMPT "\<Copy" ; KEY CTRL+C, "Ctrl+C" DEFINE BAR _med_paste OF foxshortcutmenu PROMPT "\<Paste" ; KEY CTRL+V, "Ctrl+V" DEFINE BAR _med_pstlk OF foxshortcutmenu PROMPT "Paste \<Special..." DEFINE BAR _med_clear OF foxshortcutmenu PROMPT "Cle\<ar" DEFINE BAR _med_sp200 OF foxshortcutmenu PROMPT "\-" DEFINE BAR _med_slcta OF foxshortcutmenu PROMPT "Se\<lect All" ; KEY CTRL+A, "Ctrl+A" DEFINE BAR _med_sp300 OF foxshortcutmenu PROMPT "\-" DEFINE BAR _med_find OF foxshortcutmenu PROMPT "\<Find..." ; KEY CTRL+F, "Ctrl+F" DEFINE BAR _med_repl OF foxshortcutmenu PROMPT "R\<eplace..." ; KEY CTRL+L, "Ctrl+L" ACTIVATE POPUP FoxShortcutMenu _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious. ______________________________________________________________________ This email has been scanned by the MessageLabs Email Security System. For more information please visit http://www.messagelabs.com/email ______________________________________________________________________ ______________________________________________________________________ Pegasus Software Limited is an Infor company. This e-mail is from Pegasus Software Limited. The e-mail and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom it is addressed. If you have received this e-mail in error you must not copy, distribute or take any action in reliance on it. Please notify the sender by e-mail or telephone. Pegasus Software Limited utilises an anti-virus system and therefore any files sent via e-mail will have been checked for known viruses. You are however advised to run your own virus check before opening any attachments received as Pegasus Software Limited will not in any event accept any liability whatsoever once an e-mail and/or any attachment is received. This email has been scanned by the MessageLabs Email Security System. For more information please visit http://www.messagelabs.com/email ______________________________________________________________________ _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
