Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Copying, Cutting and Pasting
Message
De
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:
00337299
Vues:
16
Joseph.
Now I see. The code I posted was from an untested update of my framework. The original had no reference at all to ccutpastemenu. So
DEFINE POPUP _medit MARGIN RELATIVE
DEFINE BAR _med_cut OF _medit
etc

My later, untested, code was attempting to avoid the redeclaration problem in multiple forms.

David

>I just want to clarify/verify:
>
>Should the DEFINE's be
>
>DEFINE BAR _med_cut OF _medit
>
>or should they be
>
>DEFINE BAR _med_cut OF (thisform.cCutPasteMenuName)
>
>?
>
>Thanks,
>Joe
>
>
>
>>You can use a hidden menu...
>>In the load event of your form
>>if thisform.lCutPaste
>>  * allow edit controls without a menu
>>  thisform.AddProperty(cCutPasteMenuName, SYS(2015))
>>  DEFINE POPUP (thisform.cCutPasteMenuName) 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
>>
>>and then in the queryunload....
>>if thisform.lCutPaste
>>  release popup (thisform.cCutPasteMenuName) extended
>>endif
>>
>>You'll need to create the .lCutPaste property :-)
>>The sys(2015) prevents conflicts between forms
>>
>>
>>>How do you allow a user to copy, cut and paste within an application. I don't want to put an edit selection in my menu. I just want to be able to use the shortcut keys as you would in any other type of software.
>>>
>>>Thanks,
>>>Tyler
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform