FiveTech Support Forums

Hi,
myvar1:=date(),myvar2:=2
redefine get myvar1 id 101 of odlg spinner
redefine get myvar2 id 102 of odlg spinner

spinner not work
fwh1104 harbour2.1
TKS!
Shuming Wang

Please explain better

Marco

in rc , id 101,102 all with vscrollbar .

in exe , id 101, you mouse press up arrow either down arrow,not change 2011.05.04 -->2011.05.05 ,2011.05.03
id 102 , then ,fixed to 2, not 3 , 1

Shuming Wang

tget class:

1.METHOD Spinner( bUp, bDown, bMin, bMax ) CLASS TGet
::oVScroll:bGoUp := {|| If( GetFocus() != ::hWnd, ::SetFocus(),),;
Eval( bUp ),::refresh() }
::oVScroll:bGoDown := {|| If( GetFocus() != ::hWnd, ::SetFocus(),),;
Eval( bDown ),::refresh() }
should replace as:

::oVScroll:bGoUp := {|| If( GetFocus() != ::hWnd, ::SetFocus(),),;
Eval( bUp ),::refresh() }
::oVScroll:bGoDown := {|| If( GetFocus() != ::hWnd, ::SetFocus(),),;
Eval( bDown ),::refresh() }

to force bup, bdown work.
redefine myvar id 101 of odlg spinner on up (myvar++) on down (myvar --)

If variable is date type without define bup nor bdown,it always ++ -- year not to day .

1. method move()
   should add
   IF ::oBtn != Nil
   ::oBtn:Move( 0, ::nWidth() - ::nHeight() - If( ::lSpinner, 20, 0 ),::nHeight() - 4,::nHeight() - 4 )
   endif

2. method createbutton ()
   ACTION (EVAL( oThis:bAction, oThis ), oThis:SetFocus()) ;

should replaced with

local bwhen := ::bwhen

ACTION (if(empty(bwhen).or.EVAL(bwhen), (EVAL( oThis:bAction, oThis ), oThis:SetFocus()),) ) ;

1. method keychar()

nKey = Asc( CharUpper( nKey ) )

This changes Chinese word code , should return to pre version

  nKey = Asc( UPPER( Chr( nKey )) )

Shuming Wang