FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Bug in TCBrowse
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Bug in TCBrowse
Posted: Thu Jan 10, 2008 06:40 PM
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:

#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
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TCBrowse
Posted: Thu Jan 10, 2008 06:41 PM

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

EMG

Continue the discussion