Página 17 de 23
El Control Spinner
Una manera alternada de obtener datos numéricos es mediante el control Spinner. Consiste en un textbox con dos flechas que permiten cambiar el valor de los controles usando el ratón.
@ 10,10 SPINNER Spinner_1 ;
RANGE 0,10 ;
VALUE 5 ;
WIDTH 100
#include "hmg.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Tutor 16 Spinner Test' ;
MAIN
DEFINE MAIN MENU
POPUP "First Popup"
ITEM 'Change Spinner Value' ACTION Win_1.Spinner_1.Value := 8
ITEM 'Retrieve Spinner Value' ACTION MsgInfo ( Str(Win_1.Spinner_1.Value))
END POPUP
END MENU
@ 10,10 SPINNER Spinner_1 ;
RANGE 0,10 ;
VALUE 5 ;
WIDTH 100
END WINDOW
ACTIVATE WINDOW Win_1
Return
El Control TAB