Simple Tutorial - 13 : Spinning Around
Posted: Fri Aug 01, 2008 1:40 am
Simple tutorial based upon HMG Offical Tutorial for beginners.
Spinning Around
An alternate way to get numeric data is the spinner control. It consist of a textbox with two arrows that allows to change control's value using the mouse.
Regards
esgici
Spinning Around
An alternate way to get numeric data is the spinner control. It consist of a textbox with two arrows that allows to change control's value using the mouse.
Code: Select all
@ 10,10 SPINNER Spinner_1 ;
RANGE 0,10 ;
VALUE 5 ;
WIDTH 100
Code: Select all
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE '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
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return
Regards
esgici