Number Increment control

[Rick Lipkin]

To All

Is there a control I can use to increment a number in a get like in this picure ?

Thanks
Rick Lipkin

[MarcoBoschi]

This?

Code: Select all  Expand view

#include "fivewin.ch"

FUNCTION MAIN()
LOCAL oDlg

LOCAL nMin := 1
LOCAL nMax := 9

LOCAL oGet, nGet := 1

DEFINE DIALOG oDlg



@ 1 , 1 GET oGet VAR nGet OF oDlg                                   ;
                 PICTURE "9"                                       ;
                 SPINNER                                            ;
                 ON UP    cambiaspin( oGet , -1 , nMin , nMax   ) ;
                 ON DOWN  cambiaspin( oGet , +1 , nMin , nMax ) ;
                 VALID ( nGet >= nMin .AND. nGet <= nMax  )


ACTIVATE DIALOG oDlg CENTER

RETURN NIL

FUNCTION CAMBIASPIN( oGet , nStep , nMin , nMax )
LOCAL nRitorna := oget:varget()
LOCAL nOriginal := nRitorna

nRitorna := nRitorna + nStep
IF nRitorna >= nMin .AND. nRitorna <= nMax
  oGet:varput( nRitorna)
  oGet:refresh()
ENDIF
RETURN NIL

[Rick Lipkin]

Marco

YES .. thank you .. never used this control before..

Rick Lipkin

[Armando]

Rick:

Here you have a very single sample with resources

Code: Select all  Expand view

REDEFINE GET aGets[09] VAR nCopies ID 202 OF oDlg UPDATE;
    PICTURE "99" SPINNER MIN 1 MAX 10
 

In the resources put VERT SCROLLBAR to YES on the GET control.

Regards

[Rick Lipkin]

Armando

Thank you .. I was using resources and the tip on the vertical scroll bar was the key to make the spinner work.

Rick