FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Poner colores en TXBrowse
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Poner colores en TXBrowse
Posted: Wed Oct 15, 2008 01: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 Collapse
		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 Collapse
			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
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Poner colores en TXBrowse
Posted: Wed Oct 15, 2008 02: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!
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Poner colores en TXBrowse
Posted: Wed Oct 15, 2008 03: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
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Poner colores en TXBrowse
Posted: Wed Oct 15, 2008 03: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!
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Poner colores en TXBrowse
Posted: Wed Oct 15, 2008 04:13 AM
José Luis y amigos del foro:

Gracias al buen amigo William Morales por la soluciĂłn.


Code: Select all Collapse
		   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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions