Color texto TXBrowse (Solucionado)

[ACC69]

Hola buenas tardes, de antemano, les envio cordial saludos.

Mis estimados, cuel es el metodo para colorear texto en TXBrowse, alguien me pudiera proporcionar algun ejemplo ,ya que en otros metodos, me pinta toda la celda o solo una celda, pero solo quiero colorear en color color rojo el texto, ya sea letra o numerico, en mi caso numerico, para identificar si es importe negativo que me coloree el texto en rojo -5,940.00.

Les agradecere mucho si alguien me pudiera proporcionar algun ejemplo.

Saludos y buen dia.!

Atte: Adrian C. C.

[cnavarro]

Puedes probar algo asi

Code: Select all  Expand view

oBrw:oCol7:bClrStd := {|| if ( aDatos[oBrw:KeyNo(),7]<0, {CLR_RED,}, {CLR_BLACK,} )}
 

[ACC69]

Puedes probar algo asi

Code: Select all  Expand view

oBrw:oCol7:bClrStd := {|| if ( aDatos[oBrw:KeyNo(),7]<0, {CLR_RED,}, {CLR_BLACK,} )}
 

Gracias Ing. Cristobal por responder, hare la prueba y le comento, estaba probando con otro metodo, que trabaja en TWBrowse, pero en TXBrowse, no me funciona o no es el metodo adecuado , esta es la instruccion:

Code: Select all  Expand view

oBrw:bTextColor := { | nRow, nCol, nStyleLine | ColoresTexto( nRow, nCol, nStyleLine, oDlg2 ) }

Saludos y gracias de nuevo.!

Atte: Adrian C. C.

[ACC69]

Puedes probar algo asi

Code: Select all  Expand view

oBrw:oCol7:bClrStd := {|| if ( aDatos[oBrw:KeyNo(),7]<0, {CLR_RED,}, {CLR_BLACK,} )}
 

Gracias Ing. Cristobal por responder, hare la prueba y le comento, estaba probando con otro metodo, que trabaja en TWBrowse, pero en TXBrowse, no me funciona o no es el metodo adecuado , esta es la instruccion:

Code: Select all  Expand view

oBrw:bTextColor := { | nRow, nCol, nStyleLine | ColoresTexto( nRow, nCol, nStyleLine, oDlg2 ) }

Saludos y gracias de nuevo.!

Atte: Adrian C. C.

Hola Cristobal, aqui de nuevo con tu ejemplo, no me da el efecto deseado o que estare haciendo mal, que no pinta color rojo en texto, solo me da color negro las celdas .
5,940.00

Code: Select all  Expand view

:aCols[6]:bClrStd    := {|| IF ( (S13)->MV_CARG < 0 .OR. (S13)->MV_ABON < 0, {CLR_RED,}, {CLR_BLACK,} )}

O alguien mas que me pueda echar la mano, con esta simple sencillo de pintado de colores en texto ..


Saludos y buen dia.

Atte: Adrian C. C.

[VitalJavier]

Yo lo tengo asi :

Code: Select all  Expand view

oBrow:aCols[03]:bClrStd := {|| IIF(ARTICULOS->TOT_SALDO_CJA<=0,{Rgb(255,0,0),CLR_WHITE},{CLR_BLACK,CLR_WHITE})}
 

[AngelSalom]

Yo lo hago sobre toda la fila con la siguiente orden, en este ejemplo mirando stocks negativos :

Code: Select all  Expand view

oBrw:bClrStd  :={|| { Iif ( (cAlias)->STOCK<0, CLR_RED, CLR_BLACK), GetSysColor( COLOR_WINDOW )} }
 

[ACC69]

Yo lo hago sobre toda la fila con la siguiente orden, en este ejemplo mirando stocks negativos :

Code: Select all  Expand view

oBrw:bClrStd  :={|| { Iif ( (cAlias)->STOCK<0, CLR_RED, CLR_BLACK), GetSysColor( COLOR_WINDOW )} }
 

Hola gracias a ambos, pruebo y les comento, solo quiero que marque de rojo el texto, por el importe negativo.

Gracias de nuevo y saludos a ambos.

Atte: Adrian C. C.

[joseluisysturiz]

Prueba haber si te sirve, saludos...

viewtopic.php?f=6&t=19153&start=0&hilit=color+de+celda

viewtopic.php?f=3&t=22133&p=149007&hilit=color+en+celda#p149007

[ACC69]

Prueba haber si te sirve, saludos...

viewtopic.php?f=6&t=19153&start=0&hilit=color+de+celda

viewtopic.php?f=3&t=22133&p=149007&hilit=color+en+celda#p149007

Gracias Jose Luis, por el link, les juro que no soy muy bueno, para el combinado de colores en la clase de TXBrowse que aun no doy con ello, en TWBrowse de Hernan si me los da, pero en TXBrowse , nada de nada.

Gracias de nuevo y saludos Jose Luis.

Atte: Adrian C. C.

[FranciscoA]

Hola Adrian.
Esto me funciona, y de hecho lo tengo en un programa de contabilidad.

Code: Select all  Expand view

oBrw:aCols[6]:bClrStd:= {|| if((oBrw:cAlias)->SaldoAct<0, {CLR_RED,CLR_WHITE}, {CLR_BLACK,CLR_WHITE}) }
 

Pruebalo. Es muy similar al ejemplo que te ofrece Cristobal, e identico al de Vital. El color CLR_WHITE puedes cambiarlo segun tus necesidades.
Si aun no te funciona, deberias postear tu codigo donde creas el xbrowse y la condicion de colores.
Saludos.

[ACC69]

Hola Adrian.
Esto me funciona, y de hecho lo tengo en un programa de contabilidad.

Code: Select all  Expand view

oBrw:aCols[6]:bClrStd:= {|| if((oBrw:cAlias)->SaldoAct<0, {CLR_RED,CLR_WHITE}, {CLR_BLACK,CLR_WHITE}) }
 

Pruebalo. Es muy similar al ejemplo que te ofrece Cristobal, e identico al de Vital. El color CLR_WHITE puedes cambiarlo segun tus necesidades.
Si aun no te funciona, deberias postear tu codigo donde creas el xbrowse y la condicion de colores.
Saludos.

Hola Ing. Francisco gracias por responder, es asi como lo estoy haciendo, pero no me sale el color del fondo amarillo, opaco, y me sale color blanco, pasa que me confunde con estas intrucciones de nRGB(), RGB() y comandos CLR_HRED,CLR_WHITE}, {CLR_BLACK,CLR_WHITE, es ahi mi confusion . Bueno aparte de eso aun me falta mucho por explotar la clase TXBrowse y tener la facilidad hasta en los colores, que por cierto ya me pinta bien el color del texto deseado, pero el fondo me lo deja en blanco en Cargo y Abono.

Adjunto la imagen:


http://s1286.photobucket.com/user/ACC69/media/ColorTesxtoNeg_zpsa395ba9a.jpg.html

Code: Select all  Expand view

// Colores de texto y fondo de texto
          :bClrHeader          := { || { nAZUL, nFONDO1, } }                    // Color para Header
          :aCols[5]:bClrFooter := { || { CLR_HRED,CLR_WHITE } }                 // Color para Footer
          :bClrStd             := { || { nRGB( 0, 0,  0), nRGB(255,248,220) } } // Colores para lineas normales de fondo
          :aCols[6]:bClrStd    := {|| if((S13)->MV_CARG < 0, {CLR_HRED,CLR_WHITE}, {CLR_BLACK,CLR_WHITE}) } // Color rojo para importe negativo
          :aCols[7]:bClrStd    := {|| if((S13)->MV_ABON < 0, {CLR_HRED,CLR_WHITE}, {CLR_BLACK,CLR_WHITE}) } // Color rojo para importe negativo
          :bClrSel             := { || { nRGB( 0, 0,255), aGradBarSel } }       // para barra de linea selecc cuando el control no tiene el foco
          :bClrSelFocus        := { || { CLR_BLACK, aGradBarSelFocus } }        // para barra de linea selecc cuando el control tiene el foco
          :lContrastClr        := .F.  //para que no cambie color de texto automaticamente segun intensidad del fondo

Saludos y buen dia. Ing. Francisco .

Atte: Adrian C. C.

[FranciscoA]

Adrian,
Cambia esto:

Code: Select all  Expand view

:aCols[6]:bClrStd    := {|| if((S13)->MV_CARG < 0, {CLR_HRED,CLR_WHITE}, {CLR_BLACK,CLR_WHITE}) }

por esto:

Code: Select all  Expand view

:aCols[6]:bClrStd    := {|| if((S13)->MV_CARG < 0, {CLR_HRED,nRGB(255,248,220)}, {CLR_BLACK,nRGB(255,248,220)}) }

Saludos.

[ACC69]

Adrian,
Cambia esto:

Code: Select all  Expand view

:aCols[6]:bClrStd    := {|| if((S13)->MV_CARG < 0, {CLR_HRED,CLR_WHITE}, {CLR_BLACK,CLR_WHITE}) }

por esto:

Code: Select all  Expand view

:aCols[6]:bClrStd    := {|| if((S13)->MV_CARG < 0, {CLR_HRED,nRGB(255,248,220)}, {CLR_BLACK,nRGB(255,248,220)}) }

Saludos.

Gracias Francisco funciono .! ese detalle de la combinacion de colores . ufs.

Saludos y nuevamente gracias y a los demas compañeros que me ayudaron.

Atte: Adrian C. C.