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
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 )} }
voy a probarlo, Gracias
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
Era Justamente lo que necesitaba..
gracias a todos
