Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Copying, Cutting and Pasting
Message
De
25/02/2000 13:05:59
 
 
À
24/02/2000 22:15:49
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00336199
Message ID:
00337694
Vues:
13
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform