Making a Choice
Sometimes, you need to get a choice from users, between a small group of options that are known at design time.
The best way to go is such cases is the RadioGroup control.
Code: Select all
@ 80, 120 RADIOGROUP Radio_1 OPTIONS {'Option 1','Option 2','Option 3'}
Code: Select all
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 300 ;
TITLE 'RadioGroup Test' ;
MAIN
DEFINE MAIN MENU
POPUP "First Popup"
ITEM 'Change RadioGroup Value' ACTION ;
Win_1.Radio_1.Value := 2
ITEM 'Retrieve RadioGroup Value' ACTION ;
MsgInfo ( Str(Win_1.Radio_1.Value))
END POPUP
END MENU
@ 80, 120 RADIOGROUP Radio_1 OPTIONS {'Option 1','Option 2','Option 3'}
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return
![Image](http://vivaclipper.googlepages.com/RadioGroup.jpg/RadioGroup-full.jpg)
Regards
esgici