TCBrowse
Posted: Sun Jun 08, 2008 6: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.
EMG
Code: Select all
#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