Turning Kinetic into optional

[Antonio Linares]

Whis this simple changes, you can modify Class TXBrowse to turn Kinetic scrolling as an optional feature:

Code: Select all  Expand view

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

Thats all. Here it is working fine.


To use it as a global setting just do:

Code: Select all  Expand view

TXBrowse():lKinetic := .F.

[Antonio Linares]

Same changes are valid for Class TWBrowse.

Also these lines solve some errors that we had in Class TWBrowse:

Code: Select all  Expand view

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
...
 

[Otto]

Hello Antonio,
drag & drop is working again.
Best regards,
Otto

[Antonio Linares]

Otto,

good, thanks for the feedback