topic-16905

Board index FiveWin for Harbour/xHarbour Turning Kinetic into optional

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Turning Kinetic into optional
Posted: Fri Oct 02, 2009 10:23 AM

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

...
   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 (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: Turning Kinetic into optional
Posted: Fri Oct 02, 2009 10:46 AM

Same changes are valid for Class TWBrowse.

Also these lines solve some errors that we had in Class 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

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: Turning Kinetic into optional
Posted: Fri Oct 02, 2009 12:37 PM

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

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Turning Kinetic into optional
Posted: Fri Oct 02, 2009 01:50 PM

Otto,

good, thanks for the feedback :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion