Border de Get aundo tiene el WHEN .F.

[carlos vargas]

Estimados, tego una consulta, en un dialogo muestro esto:

Code: Select all  Expand view

   DEFINE DIALOG oDlgE NAME "DLG_USUARIOE" OF oDlg ICON GetIcon() FONT oFontD ;
      COLOR CLR_BLACK, CLR_MYCELESTE2 TRANSPARENT

   REDEFINE GET nNumUsua ;
      ID 101 OF oDlgE ;
      WHEN FALSE ;
      PICTURE "999"

   REDEFINE GET cNomUsua ;
      ID 102 OF oDlgE ;
      PICTURE "@!"

   REDEFINE GET cIdeUsua ;
      ID 103 OF oDlgE ;
      VALID Usuarios_ValidarIdentidad( lNuevo ) ;
      PICTURE "@!"

   REDEFINE GET cClaUsua ;
      ID 104 OF oDlgE

   REDEFINE COMBOBOX nTipUsua ;
      ID 105 OF oDlgE ;
      ITEMS LOGIN_TYPEUSER

   REDEFINE GET oNomCiud VAR cNomCiud ;
      ID 106 OF oDlgE ;
      WHEN FALSE ;
      UPDATE

   REDEFINE BUTTON ;
      ID 107 OF oDlgE ;
      ACTION Usuarios_SeleccionarCiudad()

   REDEFINE GET cNotUsua ;
      ID 108 OF oDlgE ;
      MEMO

   REDEFINE CHECKBOX lActivo ;
      ID 109 OF oDlgE ;
      WHEN !lNuevo ;
      UPDATE

   REDEFINE CHECKBOX lBloqueado ;
      ID 110 OF oDlgE ;
      WHEN FALSE ;
      UPDATE

   REDEFINE BUTTON oBtnDesbloquear ;
      ID 111 OF oDlgE ;
      WHEN !lNuevo .and. lBloqueado ;
      ACTION Usuarios_Desbloquear()

   REDEFINE BUTTON ;
      ID 201 OF oDlgE ;
      WHEN !Empty( cNomUsua ) .and. !Empty( cIdeUsua ) .and. !Empty( cClaUsua ) .and. nTipUsua > 0 .and. nNumCiud > 0;
      ACTION IIf( Usuarios_Grabar( lNuevo ), oDlgE:END(), NIL )

   REDEFINE BUTTON ;
      ID 202 OF oDlgE ;
      ACTION oDlgE:END() ;
      CANCEL

   ACTIVATE DIALOG oDlgE

 

Donde algunos get estan desactivados y son mostrado con un color amarillo suave (:nClrPaneDis := CLR_SOFTYELLOW )
estos get tiene la clausula WHEN a False, para mostrarse desactivado, pero el caso es que estos get en particular muestran un borde een color gris muy suave y diferente al gris de los get activo.
por ejemplo lo deseable es que se muestre asi


alguien puede darme una pista, he visto el method paint del get pero no logro hacer un cambio que muestre lo que quiero.

muy agradecido, saludos

[karinha]

Carlos, intenta cambia aqui:

Code: Select all  Expand view

   CLASSDATA lDisColors INIT .T. // Use standard disabled colors
   CLASSDATA lClrFocus  INIT .F. // change GET color when focused
   CLASSDATA nClrFocus  INIT nRGB( 235, 235, 145 ) // color to use when GET is focused and lClrFocus is .T.
 

[acuellar]

Carlos
Espero no te moleste este comentario.
No debes emplear la palabra Introdusca (Introduzca) en tus diálogos porque se sobre entiende que tenemos que introducir datos.
Podrías poner Nuevo usuario, Modifica usuario, etc.

Saludos,

Adhemar