topic-17251

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Sigo las pruebas con xbrowse y tmysql
Posted: Thu Nov 05, 2009 08:13 AM

He realizado lo siguiente y he mejorado la velocidad y ahora el consumo de memoria al ejecutar pageup, pagedown, end y sus también pulsando ctrl.

Los métodos modificados son:
keydown()
gotop()
gobottom()

Aquí se evalúa si es EOF o BOF, para que no aplique la ejecución del método correspondiente, esto hace que no consuma memoria.

Code (fw): Select all Collapse

METHOD keydown()
...
   case nKey == VK_PRIOR
         ::Select( 0 )
         if GetKeyState( VK_CONTROL )
            ::GoTop()
         else
            ::PageUp()
         endif
         ::Select( 1 )

   case nKey == VK_NEXT
         IF !EVAL( ::bEof )
            ::Select( 0 )
            if GetKeyState( VK_CONTROL )
               ::GoBottom()
            else
               ::PageDown()
            endif
            ::Select( 1 )
         ENDIF
...

Aquí los dos métodos siguientes.

Code (fw): Select all Collapse

METHOD GoTop() CLASS TXBrowse

......
   ::CancelEdit()
   ::Seek()

   Eval( ::bGoTop )

   if ::oVScroll != nil
      ::VGoTop()
   endif
......

return nil

//----------------------------------------------------------------------------//

METHOD GoBottom( lNoRefresh ) CLASS TXBrowse
......

   ::CancelEdit()
   ::Seek()

   if ::Eof() .or. ::nLen < 1
      return nil
   endif

   nLines := ::RowCount()
   nRow   := nLines

   Eval( ::bGoBottom )

......

return nil

Bueno, espero sea de ayuda

William, Morales

Saludos

méxico.sureste

Antonio Linares

Posts: 44158