Aumento de velocidad en paginación XBrowse
Posted: Wed Oct 21, 2009 6:50 am
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
Code: Select all | Expand
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
