DisabledBackColor + DisabledFontColor

[edufloriv]

Saludos amigos,

Nunca habia usado estos atributos de TextBox (es decir para usarlos dinamicamente solo fijos) y vi en la documentación de HMG que era posible cambiarlos así que agregue esto a una procedure:

disabledBackColor_prg.png (186.87 KiB) Viewed 119 times

Pero al compilar me indica este error:

disabledBackColor_consola.png (38.59 KiB) Viewed 119 times

Lo indica como error de sintaxis como si el atributo no existiera ? Cualquier comentario agradecido de antemano. Saludos y un abrazo. Compile con HMG 3.5 (32).

[serge_girard]

Eduardo,

I think it is 'Available at control definition only'....

Code: Select all

   @ 244 ,50 EDITBOX M_Archivo ;
         WIDTH 215 ; 
         HEIGHT 45 ;
         FONT "Calibri" SIZE 10 ;
         BOLD ;
         VALUE '' ;
         BACKCOLOR {218,229,243} ;
         DISABLEDBACKCOLOR {218,229,243} ; 
         DISABLEDFONTCOLOR {0,   0,  128} ; 
         MAXLENGTH 250 ;
         NOHSCROLL ;
         READONLY ;
         TOOLTIP ""

[danielmaximiliano]

Hola Prueba:

Code: Select all

Procedure CambiarColores()

   // 1. Asignar los colores para estado deshabilitado mediante SetProperty
   // Fondo deshabilitado: Gris claro {220, 220, 220}
   SetProperty ( "Form_1", "Text_1", "DISABLEDBACKCOLOR", { 220, 220, 220 } )
   
   // Texto deshabilitado: Rojo {255, 0, 0}
   SetProperty ( "Form_1", "Text_1", "DISABLEDFONTCOLOR", { 255, 0, 0 } )

   // 2. Deshabilitar el control para que se apliquen los colores
   SetProperty ( "Form_1", "Text_1", "ENABLED", .F. )

Return

o en forma directa:

Code: Select all

Form_1.Text_1.DisabledBackColor := { 220, 220, 220 }
Form_1.Text_1.DisabledFontColor := { 255, 0, 0 }
Form_1.Text_1.Enabled := .F.

Los cambios se harán visibles únicamente cuando el control pase a estar deshabilitado (ENABLED := .F.).