FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Color del Footer en Xbrowse
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Color del Footer en Xbrowse
Posted: Wed Oct 16, 2019 08:42 AM

Hola a todos,
estoy haciendo un browse de ingresos/gastos y en las líneas del browse pinto el color del contenido en color distinto para ingresos y gastos.

oApp():oGrid:bClrRowFocus := { || { iif( AP->ApTipo == "I", oApp():cClrIng, oApp():cClrGas ), oApp():nClrHL } }     
oApp():oGrid:bClrSelFocus := { || { iif( AP->ApTipo == "I", oApp():cClrIng, oApp():cClrGas ), oApp():nClrHL } }

El tema es que quiero hacer lo mismo en los footer de la columna que muestran los importes, que cuando sea positivo tenga un color y cuando sea negativo sea de otro, pero esto no sé como hacerlo. El valor del footer lo obtengo en cada columna mediante una función que suma ingresos y resta gastos.

¿ Alguna idea de como cambiar el color al footer de un xbrowse de manera condicional en función de si la suma de la columna es positiva o negativa ?

Muchas gracias,

José Luis

Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Color del Footer en Xbrowse
Posted: Wed Oct 16, 2019 12:03 PM
Una idea
Code (fw): Select all Collapse
oCol:bClrFooter  = {|| {CLR_BLACK,colorEstado2( cValtoChar( oRsFtr:Fields( "ll_anulad" ):Value ) ) }  }

*****************************************
*CAMBIA EL COLOR DE LA CELDA SELECCIONADO
*****************************************
Function colorEstado2(valor)
IF valor=="A"
    Return nRGB(212,212,212) //gris claro
ELSEIF valor=="D"
    Return nRGB(187,255,187) //verde claro
ELSEIF valor=="E"
    Return nRGB(255,187,187) //rojo claro
ELSEIF valor=="V"
    Return nRGB(255,187,187) //rojo claro
ELSEIF valor=="I"
    Return nRGB(255,251,164) //Amarillo claro
ELSE
    Return nRGB(255,255,255) //Blanco
ENDIF
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Re: Color del Footer en Xbrowse
Posted: Wed Oct 16, 2019 06:01 PM

Gracias Leandro, funciona perfectamente.

Saludos,

Continue the discussion