Page 1 of 1

Color del GET cuando tiene el foco

Posted: Wed Jul 04, 2018 2:45 am
by 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

Re: Color del GET cuando tiene el foco

Posted: Wed Jul 04, 2018 4:17 am
by nageswaragunupudi
At the beginning of your program:

Code: Select all

SetGetColorFocus( [<nBackColor>] )

Re: Color del GET cuando tiene el foco

Posted: Wed Jul 04, 2018 2:54 pm
by 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

Re: Color del GET cuando tiene el foco

Posted: Wed Jul 04, 2018 4:03 pm
by nageswaragunupudi

Code: Select all

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

Re: Color del GET cuando tiene el foco

Posted: Wed Jul 04, 2018 6:02 pm
by 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() }

Re: Color del GET cuando tiene el foco

Posted: Wed Jul 04, 2018 9:45 pm
by 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

Re: Color del GET cuando tiene el foco

Posted: Thu Jul 05, 2018 7:27 am
by 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.

Re: Color del GET cuando tiene el foco

Posted: Thu Jul 05, 2018 7:37 am
by 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

Re: Color del GET cuando tiene el foco

Posted: Fri Jul 06, 2018 5:40 pm
by wilsongamboa
masters good afternoon
for dtpicker ?
best regards

wilson