topic-27318

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Efecto pijama con multiples colores de texto - xbrowse
Posted: Sat Sep 21, 2013 11:38 PM

Holas a todos.
Directo al grano.

En xbrowse tengo definidos los colores de las filas asi.

aClrRow := { { CLR_BLACK, 14737602 } { CLR_BLACK, 16777215} }
oBrw:bClrStd := {|| aClrRow[ oBrw:KeyNo % 2 + 1 ] }

Todo funciona bien. Efecto Pijama con letras en color Negro y fondo que cambia fila por medio.

Ahora necesito llamar a una funcion que cambie el color del FONT (negro en este caso) por diferentes colores dependiendo de la condicion de 2 o mas campos (en este caso de Mysql con tDolphin )
Lo Intente asi.

aClrRow := { { Colorfuente(), 14737602 } { Colorfuente(), 16777215} }
oBrw:bClrStd := {|| aClrRow[ oBrw:KeyNo % 2 + 1 ] }

Function Colorfuente()
Local nColor
Do case
Case condicion1
nColor:=CLR_BLUE
Case condicion2
nColor:=CLR_RED
Case condicion3
nColor:=CLR_GREEN
Case condicion4
nColor:=CLR_GRAY
Case condicion5
nColor:=CLR_CELESTITO
Case condicion6
nColor:=CLR_ROSADITO
Endcase
Return nColor

Pero me llena el Browse con el primer color que encuentra segun la primera condicion que se cumpla. O sea, si dentro de los datos lo primero que se cumple es la condicion3, todas las letras del browse son CLR_GREEN

He intentado poniendolo como Bloque de codigo, evaluandolo, pero nada...
Alguien con algun tip por ahi.

GRacias de antemano.

PD: Recuerden que es el color de toda la fila, no de columnas en particular.

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Efecto pijama con multiples colores de texto - xbrowse
Posted: Sun Sep 22, 2013 02:32 AM

Your code:

Code (fw): Select all Collapse

aClrRow := { { Colorfuente(), 14737602 } { Colorfuente(), 16777215} }
oBrw:bClrStd := {|| aClrRow[ oBrw:KeyNo % 2 + 1 ] }

Note: comma between two array elements is missing.

When aClrRow is assigned ColorFuente() is called and the result is stored in the array. This value remains constant.

Please change as:

Code (fw): Select all Collapse

aClrRowBack := { 14737602, 16777215 }
oBrw:bClrStd := {|| { Colorfuente(), aClrRowBack[ oBrw:KeyNo % 2 + 1 ] } }

Regards

G. N. Rao.

Hyderabad, India

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Efecto pijama con multiples colores de texto - xbrowse
Posted: Sun Sep 22, 2013 12:22 PM

Excelent

Works absolutely perfect !!

Thanks a lot Nawes

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Efecto pijama con multiples colores de texto - xbrowse
Posted: Sat Sep 28, 2013 01:04 AM

y por fin como quedo :mrgreen:

soy muy metiche :oops:

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Efecto pijama con multiples colores de texto - xbrowse
Posted: Sat Sep 28, 2013 01:25 AM

Aída

Quedo perfecto, ahora intentó converser al cliente que con 4 colores está bien todo, no 12 como el quiere jajajajajajajajajaja

Parece árbol de Pascua, pero el método de colorear el texto está bien

Saludos desde Chile

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Efecto pijama con multiples colores de texto - xbrowse
Posted: Sat Sep 28, 2013 03:39 AM

Foto foto :mrgreen:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

FiveTech Support Forums

Continue the discussion