Fundamentos


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 "hmg.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