Hello Mike, Put this code in the RightClick method of your editbox control. If you have your controls subclassed, put this code in your base class ...
LOCAL llNoTextSelected, llClipboardEmpty, llNothingToSelect * Don't let them copy if there's no text selected or it's a password llNoTextSelected = EMPTY(this.SelLength) or not EMPTY(this.PasswordChar) * Don't let them paste if there's nothing to paste or the control's read-only llClipboardEmpty = EMPTY(_cliptext) or this.ReadOnly * Don't "Select All" when there isn't an "All" llNothingToSelect = EMPTY(this.Text) DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR _med_copy OF shortcut PROMPT "Copy" SKIP FOR llNoTextSelected DEFINE BAR _med_cut OF shortcut PROMPT "Cut" SKIP FOR llNoTextSelected DEFINE BAR _med_paste OF shortcut PROMPT "Paste" SKIP FOR llClipboardEmpty DEFINE BAR 6 OF shortcut PROMPT "\-" DEFINE BAR _med_slcta OF shortcut PROMPT "Select All" SKIP FOR llNothingToSelect ACTIVATE POPUP shortcut Merry Christmas, Kent -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Michael Savage Sent: Friday, December 23, 2011 11:24 AM To: ProFox Email List Subject: Shortcut menu - copy paste I have never created a shortcut menu before. I want to implement one that does the Cop and Paste from an edit box to another field. ie, highlight a section of the edit box, right click in the edit box, up pops the menu, user selects copy, moves to other field and presses paste. Is this even possible? TIA, Mike [excessive quoting removed by server] _______________________________________________ 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 Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/36D4774159F94C5994D4F62B7CFBA0A4@LaptopW7 ** 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.
