TScrollBar [Solved]

[Enrico Maria Giordano]

In the following sample, if you click on the down arrow you will correctly see "1" but if you click on the scrollbar to get a page down then you will see no change in the number (it will change on the next click):

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oScr

    DEFINE DIALOG oDlg

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

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Enrico Maria Giordano]

Any news?

EMG