Color de Headers

[dbzap]

Me gustaria poner un color distinto al browse cuando este enfocado, esta era mi tecnica: ( i would like paint a diferent color the headers from the browse, this was my tecnique : )

desde el browse: ( from the browse() )

ta:bLostFocus := {|| DejaFoco(ta) }
ta:bgotfocus := {|| TomaFoco(ta) }

y mis funciones: ( and in my functions )

//---------------------------------------
FUNCTION tomafoco(ta)
ta:nclrbackhead = CLR_RED
ta:nclrFOREhead = CLR_WHITE
ta:refresh()
return nil
//---------------------------------------
FUNCTION dejafoco(ta)
ta:nclrbackhead = GetSysColor( COLOR_BTNFACE ) // CLR_LIGHTGRAY
ta:nclrFOREhead = GetSysColor( COLOR_BTNTEXT ) // CLR_BLACK
ta:refresh()
return nil

Pero ahora no logro que ocurra. ( but now d'nst happens )
Cualquier ayuda sera bien recibida.

[Antonio Linares]

Los "headers" se estan dibujando ahora usando los temas de XP, por lo que de momento no les puedes cambiar el color.

[dbzap]

Antonio, entonces la TCBrowse() no se comporta igual que todos, pues esa sí cambia de color.
Ahora no se podrá ?

[Antonio Linares]

La TCBrowse de momento sigue usando las cabeceras dibujadas por la propia clase, no la de los temas de XP.