Ayuda copiar, cortar y pegar

[Villicaña]

Hola e desarrollado un sistema con un menu tipo outlook y bueno
desaparesco el menu el menu convencional donde aparece la pestañita de
editar donde se configuran las teclas de cortar copiar y pegar y bueno
actualmente en mi diseño no e logrado configurar estas teclas con esta
opcion tengo q dar click derecho al menu y ahi le doy copiar pegar ect
me podrian apoyar para decirme como puedo volver a configurar estas
teclas con un simpre Ctrl+c que sea copiar Ctrl + X cortar etc por su
apoyo muchas gracias



Emanuel Omar Villicaña Villegas

[Villicaña]

ups nadie tendra una respuesta para esta pregunta? la verdad ando algo
perdido con eso jeje

[Luis Mata]

?Usa las teclas CTRL+C, CTRL+X Y CTRL+V

[Villicaña]

jajaja me encanto eso Luis oye pero bueno te explico al eliminar el
menu convencional y poner solo el tipo outlook las teclas ctrl+c ctrl
+x etc no sirven y bueno quiero saber como configurara esas teclas
atraves de comando saludos

[Luis Mata]

?Pero esos comando son del Windows no de Outlook y prevalecen sobre
cualquier programa.

Luis

----- Original Message -----
From: "Villica�a" <evilli...@gmail.com>
To: "Comunidad de Visual Foxpro en Espa�ol"
<publice...@googlegroups.com>
Sent: Wednesday, November 03, 2010 5:02 PM
Subject: [vfp] Re: Ayuda copiar, cortar y pegar

[Hugo Carlos Aguilar Zapata]

Emanuel

ya probaste el codigo que muestran en este este post ?

https://groups.google.com/group/publicesvfoxpro/browse_thread/thread/de88a9583ab54de8/3671c070837dc9ef?hl=es&lnk=gst&q=menu+de+edicion#3671c070837dc9ef


Saludos

[Roberto Olivas Mendoza]

Qué es lo que deseas Cortar, Copiar o Pegar?

Si es texto, es simple emular estas operaciones:

Suponiendo que deseas copiar el contenido de un control Textbox o Editbox
que se encuentre en el formulario activo:

&&Copiar

If UPPER(_Screen.ActiveForm.ActiveControl.BaseClass) == "EDITBOX" Or
UPPER(_Screen.ActiveForm.ActiveControl.BaseClass) == "TEXTBOX" Then
_CLIPTEXT = _Screen.ActiveForm.ActiveControl.Value
Endif

&&Cortar
If UPPER(_Screen.ActiveForm.ActiveControl.BaseClass) == "EDITBOX" Or
UPPER(_Screen.ActiveForm.ActiveControl.BaseClass) == "TEXTBOX" Then

_CLIPTEXT = _Screen.ActiveForm.ActiveControl.Value
_Screen.ActiveForm.ActiveControl.Value = ""
_Screen.ActiveForm.ActiveControl.Refresh()

Endif

&&Pegar
If UPPER(_Screen.ActiveForm.ActiveControl.BaseClass) == "EDITBOX" Or
UPPER(_Screen.ActiveForm.ActiveControl.BaseClass) == "TEXTBOX" Then

If not empty(_CLIPTEXT) Then
_Screen.ActiveForm.ActiveControl.Value = _CLIPTEXT
_Screen.ActiveForm.ActiveControl.Refresh()
Endif

Endif

IntelSys
Soluciones en Tecnologías de Información
Bahia de Altamira 1690 Colonia Nuevo Culiacán
Culiacán, Sinaloa, México C.P. 80170
Teléfonos +52 (667)455-21-55 +52 (667)717-12-75 +52 (667)456-81-36

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Villicaña
Enviado el: miércoles, 03 de noviembre de 2010 08:34 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Ayuda copiar, cortar y pegar

[Villicaña]

Gracias por su ayuda realizare las pruebas correspondientes saludos

[Rudolf Johann Heiner]

Saludos y bendiciones,
en el rightclick pones: DO edtshort WITH THIS,
y utilizas un programa como este con el nombre edtshort:

PARAMETER oREF

DEFINE POPUP edtshort SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_cut OF edtshort PROMPT "Cor\<tar" ;
KEY CTRL+X, "Ctrl+X" ;
PICTRES _med_cut ;
MESSAGE "Remueve la seleccion y la coloca en el Portapapelest"
DEFINE BAR _med_copy OF edtshort PROMPT "\<Copiar" ;
KEY CTRL+C, "Ctrl+C" ;
PICTRES _med_copy ;
MESSAGE "Copia la Seleccion en el Portapapeles"
DEFINE BAR _med_paste OF edtshort PROMPT "\<Pegar" ;
KEY CTRL+V, "Ctrl+V" ;
PICTRES _med_paste ;
MESSAGE "Pega el contenido en el Portapapeles"
DEFINE BAR _med_clear OF edtshort PROMPT "\<Borrar" ;
&&PICTURE "..\icobmp\method.bmp" ;
MESSAGE "Remueve la seleccion y no lo coloca en el portapapeles"
DEFINE BAR 5 OF edtshort PROMPT "\-"
DEFINE BAR _med_slcta OF edtshort PROMPT "Seleccionar \<Todo" ;
KEY CTRL+A, "CTRL+A"
&&PICTURE "..\icobmp\sortup.bmp"

ACTIVATE POPUP edtshort

espero te sirva,
esto me lo paso otro programador de aqui en el foro,
saludos
rudolf heiner.