TScrollBar [Solved]
Posted: Thu Jun 05, 2008 6:02 pm
In the following sample, if you click on the down arrow you will correctly see "1" but if you click on the scrollbar to get a page down then you will see no change in the number (it will change on the next click):
EMG
Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oScr
DEFINE DIALOG oDlg
oScr = TScrollBar():New( 0, 0, 0, 255, 10, .T., oDlg, 10, 70,;
{ || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) },;
{ || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) },;
{ || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) },;
{ || oDlg:cTitle := LTrim( Str( oScr:GetPos() ) ) } )
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL