topic-22370

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

VSCOLL in XBROWSE 11/8 (bug?)
Posted: Mon Sep 12, 2011 09:48 PM

I see, in the new xbrowse the vscroll-position are at beginn wrong (at end). Also when i move the position the vscroll-button are not stabil and moves a little up and down. I have only tested on array!

Regards,
Günther
---------------------------------
office@byte-one.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: VSCOLL in XBROWSE 11/8 (bug?)
Posted: Tue Sep 13, 2011 06:05 AM

Thanks for pointing this out.

Can you please make this change in xbrowse.prg and test?

In the method SetArray, for the existing DEFAULT codeblocks, please substitute:

Code (fw): Select all Collapse

   DEFAULT ::bGoTop    := { || ::nArrayAt := Min( 1, Eval( ::bKeyCount ) ), Eval( ::bOnSkip, Self ) }, ;
           ::bGoBottom := { || ::nArrayAt := Eval( ::bKeyCount ), Eval( ::bOnSkip, Self ) }, ;
           ::bSkip     := { | nSkip, nOld | ;
                            If( nSkip == nil, nSkip := 1, ), ;
                            nOld       := ::nArrayAt, ;
                            ::nArrayAt += nSkip, ;
                            ::nArrayAt := Min( Max( ::nArrayAt, 1 ), Eval( ::bKeyCount ) ), ;
                            Eval( ::bOnSkip, Self ), ;
                            ::nArrayAt - nOld }, ;
           ::bBof      := { || ::nArrayAt < 1 }, ;
           ::bEof      := { || ::nArrayAt > Eval( ::bKeyCount ) }, ;
           ::bBookMark := { | n | If( n == nil, ::nArrayAt, ;
                                 ( ::nArrayAt := n, Eval( ::bOnSkip, Self ), n ) ) }, ;
           ::bKeyNo    := ::bBookMark, ;
           ::bKeyCount := { || Len( ::aArrayData ) }

Regards

G. N. Rao.

Hyderabad, India

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Re: VSCOLL in XBROWSE 11/8 (bug?)
Posted: Tue Sep 13, 2011 11:13 AM

Thanks! It seems to be OK!

Regards,
Günther
---------------------------------
office@byte-one.com

FiveTech Support Forums

Continue the discussion