Bug in TCBrowse

[Enrico Maria Giordano]

In the following sample, please press the down arrow till the thumb reaches about half the scrollbar and then try to press PAGE DOWN. You will see that the thumb itself moves up instead of down:

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Tcbrowse.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw

    USE TEST

    DEFINE DIALOG oDlg;
           SIZE 400, 400

    @ 0, 0 BROWSE oBrw

    ADD COLUMN TO oBrw;
               DATA TEST -> last;
               HEADER "LAST"

    ADD COLUMN TO oBrw;
               DATA TEST -> first;
               HEADER "FIRST"

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    CLOSE

    RETURN NIL

EMG

[Enrico Maria Giordano]

The same sample works fine if a TWBrowse is used instead of a TCBrowse.

EMG