Saludos a todos.
He tenido el inconveniente siguiente cuando uso MULTISELECT en xBrowse. He buscado en el foro, y he encontrado requerimientos parecidos, pero sin soluciĆ³n:
Cuando uso MULTISELECT y utilizo la rueda del raton (arriba abajo), se ve que xbrowse se mueve entre las lineas, seƱalando la ultima con un marco y aunque esta ultima linea se establece como la actual, el color se queda en la linea que estaba seƱalada antes. Lo mismo pasa si se usa las flechitas del scroll vertical, y la barra vertical misma.
Creo que he encontrado una soluciĆ³n para esto. Lo estoy probando con uno de mis sistemas, y me estĆ” funcionando.
Sin embargo, como no soy un experto en el codigo de XBrowse, amablemente te solicito lo revises y me digas si estoy en lo correcto con las modificaciones que muestro a continuaciĆ³n.
Esto, lo cambiƩ
por esto
Y esto lo cambiƩ
por esto
Agradezco tus comentarios y observaciones.
Te deseo los mejores exitos para este aƱo nuevo 2015.
He tenido el inconveniente siguiente cuando uso MULTISELECT en xBrowse. He buscado en el foro, y he encontrado requerimientos parecidos, pero sin soluciĆ³n:
Cuando uso MULTISELECT y utilizo la rueda del raton (arriba abajo), se ve que xbrowse se mueve entre las lineas, seƱalando la ultima con un marco y aunque esta ultima linea se establece como la actual, el color se queda en la linea que estaba seƱalada antes. Lo mismo pasa si se usa las flechitas del scroll vertical, y la barra vertical misma.
Creo que he encontrado una soluciĆ³n para esto. Lo estoy probando con uno de mis sistemas, y me estĆ” funcionando.
Sin embargo, como no soy un experto en el codigo de XBrowse, amablemente te solicito lo revises y me digas si estoy en lo correcto con las modificaciones que muestro a continuaciĆ³n.
Esto, lo cambiƩ
METHOD VSetPos( nPos ) INLINE ::nVScrollPos := nPos ,;
::oVScroll:SetPos( iif( ::nLen <= VSCROLL_MAXVALUE,;
nPos,;
Int( nPos * VSCROLL_MAXVALUE / ::nLen ) ) )por esto
METHOD VSetPos( nPos ) INLINE ::nVScrollPos := nPos, if( ::lMultiSelect, ::Select(0), ) ,; //FranciscoA Enero 06/2015
::oVScroll:SetPos( iif( ::nLen <= VSCROLL_MAXVALUE,;
nPos,;
Int( nPos * VSCROLL_MAXVALUE / ::nLen ) ) ) , if( ::lMultiSelect, ::Select(1), )Y esto lo cambiƩ
if nDelta > 0
::GoUp( WheelScroll() )
else
::GoDown( WheelScroll() )
endifpor esto
if nDelta > 0
if( ::lMultiSelect, ::Select(0),) //FranciscoA Enero 06/2015
::GoUp( WheelScroll() )
if( ::lMultiSelect, ::Select(1),) //FranciscoA Enero 06/2015
else
if( ::lMultiSelect, ::Select(0),) //FranciscoA Enero 06/2015
::GoDown( WheelScroll() )
if( ::lMultiSelect, ::Select(1),) //FranciscoA Enero 06/2015
endifAgradezco tus comentarios y observaciones.
Te deseo los mejores exitos para este aƱo nuevo 2015.
Francisco J. AlegrĆa P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
