Página 4 de 11
Obteniendo Datos Lógicos
A veces, es necesario obtener datos de tipo lógico del usuario. La manera más fácil de hacerlo es utilizando el control checkbox.
@ 180, 120 CHECKBOX Check_1
Lo agregamos al programa, junto con nuevas opciones de menú para poder asignar o recuperar su valor
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 300 ;
TITLE 'Tutor 05 - CheckBox Test' ;
MAIN
DEFINE MAIN MENU
POPUP "First Popup"
ITEM 'Cambiar el Valor del CheckBox ' ACTION Win_1.Check_1.Value := .T.
ITEM 'Recuperar el Valor del CheckBox ' ACTION MsgInfo ( if(Win_1.Check_1.Value,'.T.','.F.'))
END POPUP
END MENU
@ 100, 120 CHECKBOX Check_1 CAPTION 'Check Me!'
END WINDOW
ACTIVATE WINDOW Win_1
Return
Seleccionando Opciones
A veces, es necesario obtener el valor de una elección de los usuarios, entre un grupo pequeño de opciones que son conocidos en el momento del diseño.
La mejor manera de proceder en tales casos es usar el control RadioGroup.
@ 80, 120 RADIOGROUP Radio_1 OPTIONS {'Option 1','Option 2','Option 3'}
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Tutor 06 - 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
ACTIVATE WINDOW Win_1
Return