Control EDIT y readonly.

[FiveWiDi]

Hola a todos,

Estoy usando un control EDIT y necesito poder bloquear su edición y según el caso permitir su edición.

¿Cómo lo hago?
La Data lReadonly veo que no existe en este control para modificarla en tiempo de ejecución.

Si que puedo deshabilitar el control con Disable(), pero entonces el scroll vertical no funciona.

Muchas gracias,

[Armando]

Amigo:

Prueba con una variable lógica que tu pongas a (.T.) o (.F.) según el caso

Code: Select all  Expand view

               IF LoQuieroActivo
                    lActivo := (.T.)
               ELSE
                    lActivo := (.F.)
               ENDIF

        REDEFINE GET aGets1[03] VAR oHdr:NOM ID 103 OF oDlg UPDATE;
            WHEN lActivo

         aGets1[03]:lDisColors  := (.F.)

 

Espero te sirva

[FiveWiDi]

Muchas gracias Armando,

Pero no funciona, tiene el mismo efecto que realizar un Disable(), el SCROLL queda inhabilitado y no permite recorrer el contenido del control.

A ver si a alguien más se le ocurre algo.

Saludos,

Amigo:

Prueba con una variable lógica que tu pongas a (.T.) o (.F.) según el caso

Code: Select all  Expand view

               IF LoQuieroActivo
                    lActivo := (.T.)
               ELSE
                    lActivo := (.F.)
               ENDIF

        REDEFINE GET aGets1[03] VAR oHdr:NOM ID 103 OF oDlg UPDATE;
            WHEN lActivo

         aGets1[03]:lDisColors  := (.F.)

 

Espero te sirva

[JoseAlvarez]

Muchas gracias Armando,

Pero no funciona, tiene el mismo efecto que realizar un Disable(), el SCROLL queda inhabilitado y no permite recorrer el contenido del control.

A ver si a alguien más se le ocurre algo.

Saludos,

Amigo:

Prueba con una variable lógica que tu pongas a (.T.) o (.F.) según el caso

Code: Select all  Expand view

               IF LoQuieroActivo
                    lActivo := (.T.)
               ELSE
                    lActivo := (.F.)
               ENDIF

        REDEFINE GET aGets1[03] VAR oHdr:NOM ID 103 OF oDlg UPDATE;
            WHEN lActivo

         aGets1[03]:lDisColors  := (.F.)

 

Espero te sirva

No entiendo muy bien lo que deseas hacer, pero tratando de entender, prueba con ON CHANGE y en lugar de desabilitarla colocala en blanco, para que puedas seguir editando.

Espero te funcione.

[FiveWiDi]

Perdonad que no haya respondido antes, estoy en otros asuntos y he tenido que dejar aparcado este.

También he descubierto que los Tooltips no funcionan para este control EDIT.

En las pantallas acostumbro a usar Xbrowse muy sencillos que el usuario recorre buscando su registro, cuando se mueve el cursor actualizo unos GET (hay más que columnas que tiene el Xbrowse) que le permiten editar el registro o no.
Normalmente estos GET los tengo :Readonly := .T., y cuando el usuario autorizado pincha en un Button los hago :Readonly := .F., para que se puedan editar.
Así un usuario NO autorizado si imprime pantalla no ha podido alterar nada.

Por eso quiero realzar un Disable() o un Readonly := .T. a este control.

Muchas gracias por el interés.

Cambio de asunto, a ver si pronto retomo este.

[karinha]

Buen día. Carlos, ¿tienes algún ejemplo para probar?

Gracias.

Regards, saludos.