Color del GET cuando tiene el foco

[Armando]

Antonio y amigos del foro:

Con las siguientes líneas

Code: Select all

   TGet():lClrFocus := (.T.)
   TGet():nClrFocus := nRGB( 197, 205, 255 ) 
 

Se logra que los gets al momento de tomar el foco cambien al color especificado
y al perderlo vuelven al color por default (Blanco).

Hasta aquí todo bien, pero, sería posible que también los gets tipo MEMO tengan
esta misma propiedad ?

Saludos

[nageswaragunupudi]

At the beginning of your program:

Code: Select all

SetGetColorFocus( [<nBackColor>] )

[Armando]

Mr. Rao:

Thank you very much for your kind response, as always.

I need to change the background color for gets with memo fields and only when they have the focus.

Best regards

[nageswaragunupudi]

Code: Select all

TMultiGet():lClrFocus :=  .T.
TMultiGet():nClrFocus := nRGB( 197, 205, 255 )  // default is nRGB( 235, 235, 145 ) 
 

[armando.lagunas]

Recibe el Focus

oGet:bGotFocus :={|| oGet:SetColor(nRGB( 0, 64, 64),nRGB(132,215,254)), oGet:Refresh() }

Pierde el Focus

oGet:bLostFocus:={|| oGet:SetColor(nRGB( 0,128,255),nRGB(255,255,225)), oGet:Refresh() }

[Armando]

Mr. Rao And Tocayo:

Both solutions work well.
for ease I prefer the suggestion of Mr. Rao.

Ambas soluciones funcionan muy bien, por facilidad
y menos código me decanto por la solución de Mr. Rao.

Many thanks

[jmartial]

Buenos días,

¿Y el color del texto como se cambiaría globalmente ? ¿Y el color del cursor?

Porque se me ha planteado poner fondo negro, por ejemplo, y claro, no se ve nada.

No entiendo como se crea esta función global para cambiar el color de los TGet, y sólo se refiere al fondo, cuando se habla de colores,
siempre es color de texto y color de fondo.

[hmpaquito]

Es cierto, creo que puede ser más conveniente establecer valores globales objeto y asi con una funcion Set/Get se cubre todo el espectro relacionado.

Code: Select all

// Usando
FUNCTION Main()
GetClassGlobalParam():nClrFocus:= CLR_READ
o:= GetClassGlobalParam()
o:nClrFocus:= CLR_RED

RETURN NIL

FUNCTION GetClassGlobalParam(oPar)
STATIC o
IF PCount() > 1
   o:= oPar
ELSE
   IF o == NIL
       o:= TGetValueGlobal()
   ENDIF
ENDIF
RETURN o


CLASS TGetValueGlobal()

    DATA nClrFocus
    DATA nClrText

     METHOD New()
   
ENDCLASS

METHOD New()

::nClrFocus:= CLR_YELLOW
::nClrText:= CLR_BLACK
RETURN Self

[wilsongamboa]

masters good afternoon
for dtpicker ?
best regards

wilson