Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
What deterrmines where we can copy and paste?
Message
De
29/04/2004 14:42:50
 
 
À
29/04/2004 12:28:07
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00899387
Message ID:
00899467
Vues:
18
Am I missing something? I have the below code in the rightclick method of a listbox:
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
		DEFINE BAR 1 OF shortcut PROMPT "COPY"
		ON SELECTION BAR 1 of shortcut _Screen.Activeform.GRABIT()
		ACTIVATE POPUP shortcut
and the form's grabit method contains:
PRIVATE nCnt
nCnt = THIS.lstSource.ListIndex
_cliptext = ALLTRIM(THIS.lstSource.LIST(ncnt))
RETURN
I use it to copy a value to the clipboard and then I jump to Adobe Acrobat and past the value into a field property. It works and I do not have the edit menu enabled or visible at all.

I do the same thing with textboxes':
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
		DEFINE BAR 1 OF shortcut PROMPT "COPY"
		DEFINE BAR 2 OF shortcut PROMPT "PASTE"
		ON SELECTION BAR 1 of shortcut _Screen.ActiveForm.grabthis('oacordict.txtformfield')
		ON SELECTION BAR 2 OF shortcut _Screen.ActiveForm.pastethis('oacordict.txtformfield')
		ACTIVATE POPUP shortcut
RETURN
>I'm not sure, but I think that you have to have an edit menu enabled that contains the cut,copy, and paste options. If your menu has these options but is disabled, or you have no menu at all, copy and paste will not work. Check out Message #886627 or Message #892096 to see if these will offer a solution.
>
>HTH
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform