PROBLEM WITH A TGET CONTROL & spinner

[Silvio.Falconi]

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Constant.ch"

 Function test()
   local oDlg,oBrw,oFont
   local cTitle:= "Tabella Premi"
   local nBottom   := 27.3
   local nRight    := 110
   local nWidth    := Max( nRight * DLG_CHARPIX_W, 180 )
   local nHeight   := nBottom * DLG_CHARPIX_H


   local nGiocata:= 1.00
   local aGet[1]

 DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
DEFINE DIALOG oDlg SIZE  nWidth, nHeight  ;
   PIXEL TRUEPIXEL FONT oFont    ;  
   TiTle cTitle

@ 100,10 GET aGet[1] VAR  nGiocata SPINNER MIN 0.50 MAX 200  ;
      ON UP 0.50 ON DOWN 0.50 ;
      SIZE 80,24 RIGHT PIXEL of oDlg PICTURE "€ 999.99"

ACTIVATE DIALOG oDlg center
return nil

if I press the spinner nothing happens
the only one if I take off ON UP 0.50 ON DOWN 0.50 ;
but I would like the end user to be able to select € 0.50 at a time from a minimum of € 0.50 to a maximum of € 200 and the initial value must be € 1.00
why not run ?

[nageswaragunupudi]

Code: Select all  Expand view

@ 100,10 GET aGet[1] VAR  nGiocata SPINNER MIN 0.50 MAX 200  ;
      ON UP   GetStep( aGet[ 1 ],  0.50 ) ;
      ON DOWN GetStep( aGet[ 1 ], -0.50 ) ;
      SIZE 80,24 RIGHT PIXEL of oDlg PICTURE "€ 999.99"
 

Code: Select all  Expand view

static function GetStep( oGet, nAdd )

   local nValue   := oGet:Value + nAdd

   nValue   := Max( Min( nValue, Eval( oGet:bMax ) ), Eval( oGet:bMin ) )

   oGet:cText  := nValue
   XEval( oGet:bChange )

return nil          
 

[Silvio.Falconi]

thanks Rao