Poner colores en TXBrowse

[Armando]

Amigos del foro:

Para poner color al Header y Footer del xBrowse con ADO hago lo siguiente y funciona muy bien

Code: Select all  Expand view  RUN

      oBrw:bClrHeader   := { || {CLR_WHITE,CLR_BLACK} }
      oBrw:bClrStd      := { || {CLR_BLACK,CLR_WHITE} }
      oBrw:bClrFooter   := { || {CLR_WHITE,CLR_BLACK} }
      oBrw:nRecSelColor   := nRgb(255,255,255)
      oBrw:bClrSel      := { || {CLR_BLACK,CLR_WHITE} }
      oBrw:bClrSelFocus   := { || {oApp:nFClrFocus,oApp:nBClrFocus} }

      oBrw:SetAdo(oRsHdr)
      oBrw:CreateFromResource(200)


Sin embargo el siguiente código usado con DBFs no me respeta los colores asignados

Code: Select all  Expand view  RUN

         oBrw:bClrHeader            := { || {CLR_WHITE,CLR_BLACK} }
         oBrw:bClrHeader            := { || {CLR_BLACK,CLR_BLACK} }
         oBrw:bClrStd               := {|| IF( (cOperacion)->(OrdKeyNo()) % 2 == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
         oBrw:bClrFooter            := { || {CLR_WHITE,CLR_BLACK} }
         oBrw:bClrFooter            := { || {CLR_BLACK,CLR_BLACK} }
         oBrw:nRecSelColor            := nRgb(255,255,255)
         oBrw:bClrSel               := { || {CLR_BLACK,CLR_WHITE} }
         oBrw:bClrSelFocus            := { || {CLR_BLACK,CLR_YELLOW} }

         oBrw:SetRDD()
         oBrw:CreateFromResource(200)


Donde puede estar mi falla ?.

Saludos y gracias

[joseluisysturiz]

Veo que tienes 2 lineas de HEADER y FOOTER, y la segunda te cancela los colores colocandolos en solo BLACK, probe asi....y funciono sin problema

oBrwAutor:bClrFooter := { || {CLR_BLUE,CLR_YELLOW} }
oBrwAutor:bClrHeader := { || {CLR_GREEN,CLR_WHITE} }

[Armando]

José Luis:

Gracias por responder. La duplicidad de líneas fue error mio pues al hacer pruebas me olvide de sacar una línea, sin embargo aún quitando las líneas duplicadas no me funciona, el color del texto sí cambia pero el fondo no, se queda con Office 2007.

Saludos

[joseluisysturiz]

José Luis:

Gracias por responder. La duplicidad de líneas fue error mio pues al hacer pruebas me olvide de sacar una línea, sin embargo aún quitando las líneas duplicadas no me funciona, el color del texto sí cambia pero el fondo no, se queda con Office 2007.

Saludos

A mi tampoco me cambnia el fondo...nose si sera un detalle de xBROWSE, tampoco lo hjace en las columnas....me fije en eso hace rato.

[Armando]

José Luis y amigos del foro:

Gracias al buen amigo William Morales por la solución.

Code: Select all  Expand view  RUN

         oBrw:l2007                  := (.F.)


Antes de cambiar los colores.

Saludos y gracias William nuevamente.