Simple Tutorial - 4: Getting Logical
Posted: Fri Aug 01, 2008 1:04 am
Simple tutorial based upon HMG Offical Tutorial for beginners.
Getting Logical
Sometimes, you need to get logical data from the user. The easiest way to do that, is using a checkbox control.
We add it to the program, along with new menu options to set or retrieve its value
Regards
esgici
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
Regards
esgici