>>>>Hi everyone,
>>>>
>>>>I'd like to create a shortcut menu (on Right Click) for the editbox, which has to include all standard Edit menu commands (or some essential): Copy, Cut, Paste, Print. They should behave correctly, e.g. is something is in clipboard, then paste is active and vs. Could you please point me to the right direction?
>>>>
>>>>Thanks a lot in advance.
>>>
>>>

*Rightclick
>>>activate popup ccp at mrow(),mcol()
>>>
>>>*form.load
>>>DEFINE POPUP ccp SHORTCUT RELATIVE
>>>DEFINE BAR _med_cut OF ccp PROMPT "Cu\<t" ;
>>> KEY CTRL+X, "Ctrl+X" ;
>>> MESSAGE "Removes the selection and places it onto the Clipboard"
>>>DEFINE BAR _med_copy OF ccp PROMPT "\<Copy" ;
>>> KEY CTRL+C, "Ctrl+C" ;
>>> MESSAGE "Copies the selection onto the Clipboard"
>>>DEFINE BAR _med_paste OF ccp PROMPT "\<Paste" ;
>>> KEY CTRL+V, "Ctrl+V" ;
>>> MESSAGE "Pastes the contents of the Clipboard"
>>>DEFINE BAR _med_slcta OF ccp PROMPT "Se\<lect All" ;
>>> KEY CTRL+A, "Ctrl+A" ;
>>> MESSAGE "Selects all text or items in the current window"
>>>

Cetin
>>
>>Well, how about printing editbox content? :)
>>
>>Thanks a lot again.
>I thought you could easily add what you want. ie : _mfi_sysprint
>Cetin

Hi again,

Print always disabled. What else can I use?

********************************************************************
*  Description.......: Create_Popup - creates shortcut menu for edit boxes
*  Calling Samples...: 
*  Parameter List....: tcPopupName
*  Created by........: Cetin Basoz 
*  Modified by.......: Nadya Nosonovsky 01/25/2002 10:30:05 AM
********************************************************************
lparameter tcPopupName
if vartype(m.tcPopupName)<>"C"
   tcPopupName = 'Edit_Box'
endif
DEFINE POPUP (m.tcPopupName) SHORTCUT RELATIVE
DEFINE BAR _med_cut OF (m.tcPopupName) PROMPT "Cu\<t" ;
 KEY CTRL+X, "Ctrl+X" ;
 MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF (m.tcPopupName) PROMPT "\<Copy" ;
 KEY CTRL+C, "Ctrl+C" ;
 MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF (m.tcPopupName) PROMPT "\<Paste" ;
 KEY CTRL+V, "Ctrl+V" ;
 MESSAGE "Pastes the contents of the Clipboard"
DEFINE BAR _med_slcta OF (m.tcPopupName) PROMPT "Se\<lect All" ;
 KEY CTRL+A, "Ctrl+A" ;
 MESSAGE "Selects all text or items in the current window"   
DEFINE BAR _mfi_sysprint OF (m.tcPopupName) PROMPT "P\<rint content" ;
 KEY CTRL+P, "Ctrl+P" ;
 MESSAGE "Print window's content"