Bueno,
Haciendo mis pruebas de xbrowse con mysql, he visto que hay un retardo y "parpadeo" a la hora de moverse entre las lineas del browse.
La siguiente modificaci贸n a los m茅todos pageup y pagedown corrigen el "parpadeo" y aumenta velocidad al moverse entre el xbrowse con pageup y pagedown
Espero sea de ayuda para alguien y que puedan testear.
PD. Actualizaci贸n checada con Tmysql y ADS
Haciendo mis pruebas de xbrowse con mysql, he visto que hay un retardo y "parpadeo" a la hora de moverse entre las lineas del browse.
La siguiente modificaci贸n a los m茅todos pageup y pagedown corrigen el "parpadeo" y aumenta velocidad al moverse entre el xbrowse con pageup y pagedown
METHOD PageUp( nLines ) CLASS TXBrowse
....
....
聽 聽::CancelEdit()
聽 聽::Seek()
* 聽 ::DrawLine()
.....
....
if nSkipped = 0
* ::DrawLine(.t.)
return nil
endif
...
...
return nil
//----------------------------------------------------------------------------//
METHOD PageDown( nLines ) CLASS TXBrowse
...
...
* nBook1 := Eval( ::bBookMark )
聽 聽nSkipped = ::Skip( nLines ) 聽 聽 聽 聽 // Eval( ::bSkip, nLines )
if nSkipped = 0
* ::DrawLine(.t.)
return nil
endif
if nSkipped < nLines .and. nSkipped <= ( ::nDataRows - ::nRowSel )
* nBook2 := Eval( ::bBookMark )
* Eval( ::bBookMark, nBook1 )
* if ! ::FullPaint()
* ::DrawLine()
* endif
* Eval( ::bBookMark, nBook2 )
::nRowSel = ::nDataRows
::Change( .t. )
::Super:Refresh( ::FullPaint() ) //::Paint()
* if ::FullPaint()
* ::Super:Refresh( .t. ) //::Paint()
* else
* ::DrawLine( .t. )
* endif
* nRow := ( ( ::nRowSel) * ::nRowHeight ) + ::HeaderHeight()
* ::EraseData( nRow )
...
...
return nilEspero sea de ayuda para alguien y que puedan testear.
PD. Actualizaci贸n checada con Tmysql y ADS
William, Morales
Saludos
m茅xico.sureste
Saludos
m茅xico.sureste
