FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Colores en TGet
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Colores en TGet
Posted: Thu Sep 04, 2014 08:29 AM

Hola,

Necesitaría saber o ver un ejemplo si se puede hacer de lo siguiente con la clase TGet:

1) Asignar un color de fondo/texto cuando obtiene el foco, es decir, se edita, y otro cuando no tiene el foco.

2) Asignar un color de fondo/texto cuando está desactivado, es decir, disable.

Un Saludo,
Joaquín Martínez

Un Saludo,

Joaquín Martínez
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Colores en TGet
Posted: Thu Sep 04, 2014 09:00 AM

Joaquin,

1) SetGetColorFocus( CLR_YELLOW ) // en este caso usamos el amarillo para el foco

2) En cuanto a los GETs deshabilitados, lo que puedes hacer es dejar que Windows los muestre tal y como el los dibuja al estar desactivados, ó forzar a que se vean normales:

TGet():lDisColors = .F. // que no se muestren desactivados

No tenemos implementados (que yo recuerde) la opción de que al deshabilitarse puedan tomar un determinado color, pero se podría hacer :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Colores en TGet
Posted: Thu Sep 04, 2014 10:37 AM

Gracias Antonio,

Pero veo algo incompleto.

SetGetColorFocus( CLR_YELLOW ) cambia el background, pero ¿y el color del texto, como se cambia cuando entre en edición?

Un Saludo,
Joaquín Martínez

Un Saludo,

Joaquín Martínez
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Colores en TGet
Posted: Thu Sep 04, 2014 11:46 AM

Joaquín,

Pues nunca antes se había planteado esa necesidad, pero tienes razón puede ser igual de necesario :-)

Si te corre mucha prisa pues lo implementamos

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Colores en TGet
Posted: Thu Sep 04, 2014 12:10 PM
Gracias Antonio,

La verdad es que estaría muy bien para destacar ciertos datos en una ficha, y además quedaría completa la funcionalidad.

Otra duda que se me olvidó sobre la clase TGet, es si era posible ponerle un borde del color que queramos en modo edición, igual que en Mac o en ciertas
distribuciones de linux. Queda muy claro que TGet tiene el foco, y pide la atención del usuario.




A ver si se ve la imágen de muestra.

Un Saludo,
Joaquín Martínez
Un Saludo,

Joaquín Martínez
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Colores en TGet
Posted: Fri Sep 05, 2014 06:07 AM
jmartial wrote:Gracias Antonio,

Pero veo algo incompleto.

SetGetColorFocus( CLR_YELLOW ) cambia el background, pero ¿y el color del texto, como se cambia cuando entre en edición?

Un Saludo,
Joaquín Martínez


Intenta asi:
Code (fw): Select all Collapse
 AEval( oWndChild:aControls,{|o| if(o:ClassName()=="TGET",;
         ( o:bGotFocus  := {|o|o:SetColor( RGB(0,0,0), RGB(252,232,191) )} ,;
           o:bLostFocus := {|o|o:SetColor( CLR_BLACK, CLR_WHITE )} ),) } )

Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Colores en TGet
Posted: Fri Sep 05, 2014 07:14 AM

Joaquín,

El borde resaltado es una opción que se podría implementar pero no es estandard de Windows asi que lo primero sería ver que opinan los demás usuarios de FWH :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: Colores en TGet
Posted: Fri Sep 05, 2014 08:51 AM

Muy bonito lo del efecto Mac ++++1

Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Colores en TGet
Posted: Fri Sep 05, 2014 09:25 AM

Hola Antonio,

Sé que no es estàndar de windows, pero, me refería a una DATA lBorderGetFocus y nColorBorder, por ejemplo,
que se activara opcionalmente y no rompiera níngún código.

Un saludo,
Joaquín Martínez

Un Saludo,

Joaquín Martínez
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Colores en TGet
Posted: Fri Sep 05, 2014 12:13 PM

Joaquin,

Voy a mirarlo, no es tan simple porque por ejemplo el borde dibujado por Apple usa un degradado y además transparente creo.

Pero a ver que se puede hacer :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion