topic-35809

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Color del GET cuando tiene el foco
Posted: Wed Jul 04, 2018 02:45 AM

Antonio y amigos del foro:

Con las siguientes líneas

   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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Color del GET cuando tiene el foco
Posted: Wed Jul 04, 2018 04:17 AM

At the beginning of your program:

Code (fw): Select all Collapse

SetGetColorFocus( [<nBackColor>] )

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Color del GET cuando tiene el foco
Posted: Wed Jul 04, 2018 02:54 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Color del GET cuando tiene el foco
Posted: Wed Jul 04, 2018 04:03 PM

Code (fw): Select all Collapse

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

Regards

G. N. Rao.

Hyderabad, India

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Color del GET cuando tiene el foco
Posted: Wed Jul 04, 2018 06:02 PM

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() }

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Color del GET cuando tiene el foco
Posted: Wed Jul 04, 2018 09:45 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Color del GET cuando tiene el foco
Posted: Thu Jul 05, 2018 07:27 AM

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.

Un Saludo,

Joaquín Martínez

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Color del GET cuando tiene el foco
Posted: Thu Jul 05, 2018 07:37 AM

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 (fw): Select all Collapse

// 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

Posts: 670

Joined: Wed Oct 19, 2005 06:41 PM

Re: Color del GET cuando tiene el foco
Posted: Fri Jul 06, 2018 05:40 PM

masters good afternoon
for dtpicker ?
best regards

wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: Color del GET cuando tiene el foco
Posted: Wed Mar 24, 2021 01:39 AM

i have tried both but nothing. the color no change

Code (fw): Select all Collapse

   SetGetColorFocus( nRGB( 40, 240, 255 ))
//   TGet():nClrFocus := nRGB( 40, 240, 255 )

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion