Page 1 of 1
primer registro invisible en xbrowse
Posted: Thu Mar 01, 2012 7:27 pm
by 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
Re: primer registro invisible en xbrowse
Posted: Thu Mar 01, 2012 9:00 pm
by 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 )} }
Re: primer registro invisible en xbrowse
Posted: Fri Mar 02, 2012 5:23 pm
by Miguel Salas
voy a probarlo, Gracias
Re: primer registro invisible en xbrowse
Posted: Fri Mar 02, 2012 9:06 pm
by 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
Re: primer registro invisible en xbrowse
Posted: Wed Mar 14, 2012 11:48 pm
by Miguel Salas
Era Justamente lo que necesitaba..
gracias a todos