General information
Category:
Coding, syntax & commands
Thanks everyone for your help. I finally got it to work. I did have set sysmenu off in my code. Here is the code that worked.
Load
if thisform.lCutPaste
* allow edit controls without a menu
DEFINE POPUP _medit RELATIVE
DEFINE BAR _med_undo OF _medit PROMPT "Undo" ;
KEY CTRL+Z
DEFINE BAR _med_redo OF _medit PROMPT "Redo" ;
KEY CTRL+R
DEFINE BAR _med_cut OF _medit PROMPT "Cut" ;
KEY CTRL+X
DEFINE BAR _med_copy OF _medit PROMPT "Copy" ;
KEY CTRL+C
DEFINE BAR _med_paste OF _medit PROMPT "Paste" ;
KEY CTRL+V
DEFINE BAR _med_slcta OF _medit PROMPT "Select All" ;
KEY CTRL+A
endif
QueryUnload
if thisform.lCutPaste
release popup _medit extended
endif
Thanks again,
Tyler
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only