primer registro invisible en xbrowse

[Miguel Salas]

Hola a todos
El detalle que tengo es que al abrir un browse me pinta el primer registro en color gris obscuro y en algunos equipos demis clientes es inperceptible.
se soluciona con un click sobre el , pero quisiera que no pase esto...

saludos y gracias

[russimicro]

METHOD New( oWnd ) CLASS TXBrowse

::bClrStd := {|| { CLR_BLACK, GetSysColor( COLOR_WINDOW )} }
::bClrSel := {|| { CLR_WHITE, GetSysColor( COLOR_INACTIVECAPTIONTEXT )} } // JR BLACK
::bClrSelFocus := {|| { CLR_WHITE, GetSysColor( COLOR_HIGHLIGHT )} }

[Miguel Salas]

voy a probarlo, Gracias

[FranciscoA]

Hola, puedes hacer algo como esto:

Function MYFunction()

local aGradBarSel:= { { 1, RGB(252,232,171) , RGB(248,195, 34) } }
local aGradRowSel:= {{1, RGB(108,125, 184), RGB(241,222,088)}}

oLbx := TXBrowse():New( oDlg )

oLbx:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales
oLbx:bClrSel := {|| { nRGB( 0, 0, 0), aGradRowSel } } // para barra de linea selecc cuando el control no tiene el foco
oLbx:bClrSelFocus := { || { CLR_BLACK, aGradBarSel } } // para barra de linea selecc cuando el control tiene el foco
.......
.......
.......
return nil
Espero te sirva

[Miguel Salas]

Era Justamente lo que necesitaba..
gracias a todos