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