Copiar y pegar en TextBox

[Irwin Rodriguez]

Saludos, tengo un TextBox en una clase el cual inserto en cada formulario de mi aplicación. Dicho objeto tiene programado 2 eventos.

1. Evento GotFocus()
     THIS.BACKCOLOR=RGB(255,255,200)

2. Evento LostFocus()
     THIS.BACKCOLOR=RGB(255,255,255)

Esto es simplemente para que el objeto se sobree al realizar las tabulaciones.

El problema que tengo es que en tiempo de ejecución no me deja COPIAR y PEGAR.

Ya he realizado pruebas con KEYBOARD, _CLIPTEXT para tratar de resolverlo pero nada.

PD. Cuando inserto un control TextBox desde la barra de herramientas del formulario "Control Form ToolBar" si me realiza las funciones de COPIAR y PEGAR.

Alguien sabe como resolverlo?

Desde ya Muchas Gracias!

[Robert Martínez]

Puede que tenga algo mas que te este deshabilitando el CTRL+C y el CTRL+V, Prueba con el programa siguiente.


*** Inicio de  Prueba.prg
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
    ShowWindow = 2
    ShowInTaskBar = .F.
    DoCreate = .T.
    AutoCenter = .T.
    Caption = "Copia"
    Name = "Form1"

    ADD OBJECT text1 AS textbox WITH ;
        Value = ("CTRL+C Aquí"), ;
        Height = 23, ;
        Left = 73, ;
        SelectOnEntry = .T., ;
        Top = 59, ;
        Width = 228, ;
        Name = "Text1"

    ADD OBJECT text2 AS textbox WITH ;
        Value = ("CTRL+V Aqui"), ;
        Height = 23, ;
        Left = 75, ;
        SelectOnEntry = .T., ;
        Top = 99, ;
        Width = 228, ;
        Name = "Text2"

    PROCEDURE text1.GotFocus
         THIS.BACKCOLOR=RGB(255,255,200)
    ENDPROC

    PROCEDURE text1.LostFocus
             THIS.BACKCOLOR=RGB(255,255,255)
    ENDPROC

ENDDEFINE
*
*-- EndDefine: form1
**************************************************

[Víctor Hugo Espínola Domínguez]

Hola Irwin

Probablemente tienes deshabilitado el menú del sistema. Prueba este código en el Activate de tu form o en los GotFocus de tus textbox.

SYS(1500, '_MED_CUT', '_MEDIT')      && Cut, Copy item

SYS(1500, '_MED_COPY', '_MEDIT')   && Copy item

SYS(1500, '_MED_PASTE', '_MEDIT')  && Paste menu item

Saludos.

Víctor.

El 4 de diciembre de 2012 15:35, Irwin Rodriguez <rodrigu...@gmail.com> escribió:

Gracias Robert, ya ejecuté el código que me pasaste y si funciona. Revisé el código de mi TextBox y no tengo nada extraño salvo esas líneas en los eventos GotFocus y LostFocus. Será que las funciones se pierden cuando es un objeto de una clase? no tengo idea de que pueda estar pasando.

--
 
 

[Irwin Rodriguez]

Gracias Victor, hice las pruebas pero aun no logra resolver el problema, lo coloqué en el Activate de mi Form y nada, en el GotFocus del Objeto y nada. Alguna otra sugerencia? Gracias!

[Víctor Hugo Espínola Domínguez]

Hola Irwin

Envíanos tu formulario, para hacer las pruebas.

Saludos.

Víctor.

--
 
 

[Irwin Rodriguez]

Gracias Victor,

El problema se soluciona si creo un formulario nuevo y agrego los objetos de la clase y lo ejecuto alli mismo. Pero cuando ejecuto mi aplicacion no sirve. Yo tengo un PRG "main.prg" el cual contiene un procedimiento "INICIALIZA" que da formato al _screen sera que tengo algo mal alli?

Aca dejo el procedimiento.

*----------------------------------------------------------------------------------------------*
*... Inicializacion del Entorno del Sistema
*----------------------------------------------------------------------------------------------*
PROCEDURE INICIALIZA
CLOSE DATA
SET BRSTATUS OFF
SET FIELDS OFF
SET AUTOSAVE ON
SET CLOCK STATUS
SET MULTILOCKS ON
SET REPROCESS TO 1
SET SQLBUFFERING ON
SET ESCAPE OFF
SET NOTIFY OFF
SET STATUS ON
SET STATUS BAR ON
SET TALK OFF
SET MESSAGE TO
SET MACKEY TO
SET CENTURY ON
SET CONFIRM ON
SET DELETE ON
SET EXACT ON
SET MESSAGE TO 0
SET MACKEY TO
SET DATE DMY
SET HOURS TO 12
SET SEPARATOR TO ','
SET FIXED OFF
SET ENGINEBEHAVIOR 70
SET DECIMALS TO 2
PUSH KEY CLEAR
ON KEY LABEL ESC
PUSH MENU _MSYSMENU
MENU=SET("SYSMENU")
SET MEMOWIDTH TO 256
SET SYSMENU OFF
DROPDEAD=.F.
TOBEDONE=""
* Inicialización de las Variables Publicas
STORE 0 TO NESTATUS, NERRORES
_SCREEN.WINDOWSTATE=2
_SCREEN.BACKCOLOR=RGB(255,255,255)
_SCREEN.AUTOCENTER=.T.
_SCREEN.BORDERSTYLE=3
_SCREEN.THEMES=.T.
_SCREEN.FONTNAME="Segoe UI"
_SCREEN.FONTSIZE=10
_SCREEN.WINDOWTYPE=1
_SCREEN.ICON="galaxy_logo.ico"
_SCREEN.CLOSABLE=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.T.
_SCREEN.TOP=30
IF WEXIST('STANDARD')
    HIDE WINDOW STANDARD
ELSE &&WEXIST('STANDARD')
ENDIF &&WEXIST('STANDARD')
SET STATUS BAR ON
RETURN

Gracias!!!

[Robert Martínez]

Probé con un formulario al que le incluí tu inicialización de Entorno del Sistema y me funcionó perfectamente bien el CTRL+C y el CTRL+V en los textbox.  algunos colegas te han sugerido que nos pase un formulario con varios controles donde tienes el problema, así podremos probarlo y se hace más fácil encontrar la cause del problema.

[Irwin Rodriguez]

Saludos Muchachos, en el siguiente enlace se encuentra la clase "efectos.vcx" he creado un formulario "frmprueba" el cual contiene 2 objetos textbox de la misma clase para que realicen las pruebas.

IMPORTANTE: las pruebas sirven cuando se realizan fuera de la aplicación. No entiendo que puede estar pasando.

Descargar la Clase Efectos.vcx

[Robert Martínez]

Saludos,

Verifica si tienes re-asignaciones de tecla con el ON KEY LABEL , busca en todo tu proyecto con la "Opcion Tools - Code Reference", estoy casi seguro que por algún lado tienes que estar apagando esas teclas.

Cuando lo encuentres,por favor déjanos saber, ya este problema se ha extendido bastante, a veces las cosas mas simples son las que mas tiempo nos hacen perder en nuestros proyectos, gracias a Dios que tenemos este Foro y una enorme cantidad de colegas dispuesto a ayudarnos. 

[Allan Raúl Acuña]

Estimados Lic. 

Mis saludos antes que nada.
 
Aca les dejo una pequeña herramienta para que puedan ejecutar los comandos mas comunes
y dar soporte y/o mantenimiento a datos:


http://www.umdrinknoinferno.com/?page_id=13551

Saludos cordiales;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
            +(505) 8 831 8191      
www.NicEasySoft.com

Managua, Nicaragua

Centroamérica

 

---

Date: Tue, 4 Dec 2012 10:43:07 -0800
From: rodrigu...@gmail.com
To: publice...@googlegroups.com
Subject: [vfp] Copiar y pegar en TextBox

--
 
 

[Robert Martínez]

Muy buen aporte, gracias.

[Ing.Daniel Bojorge]

Excelene aporte mi estimado amigo, se ve bueno. ¿Se podrá dar mantenimiento a la B.D. en SQL Server?



El sábado, 8 de diciembre de 2012, Robert Martínez <soluci...@gmail.com> escribió:
> Muy buen aporte, gracias.
>
> --
>
>
>

--
Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com

Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)