TGet():New() and :bUp/:bDown

[Natter]

Hi,

Creating a numeric GET control via the syntax TGet():New().
In it I need to specify a block of code :bUp and :bDown. How to do it ?

[cmsoft]

Fijate si así te puede servir

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
 
function Main()        
 
   local oDlg,oGet      
   local nVal := 0

   DEFINE DIALOG oDlg TITLE "Test"        
   oGet := TGet():New( 1, 1, {|| nVal}, oDlg, 40, 12, "999", ,;
               , , , , , ,;
               , ,, ,,,;
               , ,, ,;
               .f., {|| nVal++}, {|| nVal--}, 0, 20, , , ,;
               , , , ,,, ;
               {'..\bitmaps\minus.bmp','..\bitmaps\plus.bmp'})  
   ACTIVATE DIALOG oDlg CENTERED  
return nil

[Natter]

Thank you for your help ! Everything works. However, I am interested in the option with spinner.
In this case, nothing works