topic-16906

Board index FiveWin para Harbour/xHarbour Haciendo Kinetic opcional

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Haciendo Kinetic opcional
Posted: Fri Oct 02, 2009 10:28 AM

Con estos simples cambios, podeis modificar la Clase TXBrowse to cambiar el kinetic scrolling como un comportamiento opcional:

Code (fw): Select all Collapse

...
   CLASSDATA lKinetic    AS LOGICAL INIT .T.   
...
METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TXBrowse
...
      ::lPressed    = ::lKinetic

Eso es todo. Aqui está funcionando bien.

Para usarlo como set SET global podeis hacer:

Code (fw): Select all Collapse

TXBrowse():lKinetic := .F.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Haciendo Kinetic opcional
Posted: Fri Oct 02, 2009 10:44 AM

Los mismos cambios son aplicables a la Clase TWBrowse.

Además estas líneas solucionan unos errores que existian en la Clase TWBrowse:

Code (fw): Select all Collapse

METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TWBrowse
...
         if nRowAdvanced > 0
            if ::nAt != nil
               ::nAt    -= ( ::nRowPos - 1 )
            endif   
            ::nRowPos = 1
         elseif nRowAdvanced < 0
            if ::nAt != nil
               ::nAt += ( ::nRowCount() - ::nRowPos )
            endif   
            ::nRowPos = ::nRowCount()
         endif
...

regards, saludos

Antonio Linares
www.fivetechsoft.com

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: Haciendo Kinetic opcional
Posted: Fri Oct 02, 2009 11:15 AM

Sorry Antonio,
What should it do this kinetic ?..
I try your sample but I not see the difference with the last listbot control scroll
Can you explain me what I can see ?

Best Regards, Saludos

Falconi Silvio

FiveTech Support Forums

Continue the discussion