Bug in TScrollBar

Sun Sep 24, 2006 2:01 pm

This is a sample of the problem. Please drag the scrollbar thumb to the middle of the scrollbar itself. Then look at the number in the DIALOG title (it is the scrollbar position). Then click below the thumb to step one page down and look at the number again. It is unchanged while it should be +10. If you click again then the number is increased.

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oScr

    DEFINE DIALOG oDlg

    oScr = TScrollBar():New( 0, 0, 0, 255, 10, .T., oDlg, 10, 50,;
                             { || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) },;
                             { || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) },;
                             { || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) },;
                             { || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) } )

    oScr:bTrack = { | nPos | oScr:SetPos( nPos ),;
                             oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

Post by **Antonio Linares** » Sun Sep 24, 2006 9:21 pm

Enrico,

This code looks equivalent and seems to work ok:

Code: Select all

    @ 0, 0 SCROLLBAR oScr ;
       VERTICAL ;
       RANGE 0, 255 ;
       PAGESTEP 10 ;
       SIZE 10, 50 ;
       ON UP oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) ;
       ON DOWN oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) ; 
       ON PAGEUP oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) ;
       ON PAGEDOWN oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) ;
       ON THUMBPOS ( oScr:SetPos( nPos ), oDlg:cTitle := LTrim( Str( 

oScr:GetPos() ) ) )

Post by **Antonio Linares** » Sun Sep 24, 2006 9:23 pm

Enrico,

Do you mean that the first pagedown click after the drag & drop, does not respond ?

Mon Sep 25, 2006 6:29 am

Exactly.

EMG