Poner colores en TXBrowse

Poner colores en TXBrowse

Postby Armando » Wed Oct 15, 2008 1:28 am

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby joseluisysturiz » Wed Oct 15, 2008 2:41 am

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} }
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Postby Armando » Wed Oct 15, 2008 3:18 am

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby joseluisysturiz » Wed Oct 15, 2008 3:25 am

Armando wrote: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.
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Postby Armando » Wed Oct 15, 2008 4:13 am

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.
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 41 guests

cron