Getting Logical
Sometimes, you need to get logical data from the user. The easiest way to do that, is using a checkbox control.
Code: Select all
@ 180, 120 CHECKBOX Check_1
Code: Select all
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 300 ;
TITLE 'CheckBox Test' ;
MAIN
DEFINE MAIN MENU
POPUP "First Popup"
ITEM 'Change CheckBox Value' ACTION ;
Win_1.Check_1.Value := .T.
ITEM 'Retrieve CheckBox Value' ACTION ;
MsgInfo ( if(Win_1.Check_1.Value,'.T.','.F.'))
END POPUP
END MENU
@ 100, 120 CHECKBOX Check_1 CAPTION 'Check Me!'
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return
![Image](http://vivaclipper.googlepages.com/CheckBox.jpg/CheckBox-full.jpg)
Regards
esgici