Efecto pijama con multiples colores de texto - xbrowse

[Adolfo]

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.

[nageswaragunupudi]

Your code:

Code: Select all  Expand view

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: Select all  Expand view

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

[Adolfo]

Excelent

Works absolutely perfect !!

Thanks a lot Nawes

[AIDA]

y por fin como quedo


soy muy metiche


Saluditos

[Adolfo]

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

[AIDA]

Foto foto