FiveTech Support Forums

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.

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

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

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