FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Thumbpos in network
Posts: 83
Joined: Mon Oct 17, 2005 10:33 AM
Thumbpos in network
Posted: Fri Jan 16, 2009 10:27 AM

We use LISTBOX to browse a large DB. When the user resets the vertical thumbpos in a network, the speed is very, very slow.

In the forum I found this:
Yes! You have to modify TWBrowse class - Method VScroll. Substitute
::Skip( nLParam - ::oVScroll:GetPos() )
with
( ::cAlias ) -> ( CmxKeyGoTo( nLParam ) )
or the xxxKeyGoto() function provided by your RDD.

Is this still the way to solve the problem or is there a better solution?

Thanks for help,
Dietmar

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Thumbpos in network
Posted: Tue Jan 20, 2009 07:02 AM

Dietmar,

> When the user resets the vertical thumbpos in a network

Do you mean when the user changes the vertical thumbpos with the mouse ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 83
Joined: Mon Oct 17, 2005 10:33 AM
Re: Thumbpos in network
Posted: Tue Jan 20, 2009 08:04 AM

Do you mean when the user changes the vertical thumbpos with the mouse ?[/quote]

Yes, that's what I mean.
In the meantime I changed

::Skip( ::VGetThumbPos( nPos ) - ::VGetPos() ) to
Eval( ::bKeyNo, ::VGetThumbPos( nPos ), Self )

and added
DEFAULT ::bKeyNo := {| n | iif( n == nil,;
( cAlias )->( OrdKeyNo() ),;
( cAlias )->( OrdKeyGoto( n );
) ) }
(from xbrowse)
It may not be a general solution, but for me it is working ok, because we only browse databases, no arrays or text.
Dietmar

Continue the discussion