TCBrowse
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
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.
EMG
- 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