FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index Bugs report & fixes / Informe de errores y arreglos TCBrowse
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
TCBrowse
Posted: Sun Jun 08, 2008 06:32 PM
In the following sample, try to move the hilite bar down using the down arrow several times and then click on the scrollbar to move it one page down. The scrollbar thumb will move up. Please note that TWBrowse scrollbar works fine.

#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: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TCBrowse
Posted: Sun Mar 22, 2009 10:42 AM

Just to keep this bug at the top. :-)

EMG

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM

Continue the discussion