Harbour Minigui

Tutorial



Otras Formas de Selección de Opciones

Hay varias alternativas para obtener la opción de un usuario además de RadioGroup.

Uno de ellos es el control ListBox

@ 10, 10 LISTBOX List_1 ITEMS {'Option 1','Option 2','Option 3'}

Usando un Listbox, puede agregarse, cambiar o quitar items en tiempo de ejecución.

#include "minigui.ch"

Function Main

    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 200 ;
        TITLE 'Tutor 07 - ListBox Test' ;
        MAIN

        DEFINE MAIN MENU
            POPUP "First Popup"
                ITEM 'Change ListBox Value' ACTION Win_1.List_1.Value := 2
                ITEM 'Retrieve ListBox Value' ACTION MsgInfo ( Str(Win_1.List_1.Value))
                ITEM 'Agregar List Item' ACTION Win_1.List_1.AddItem ('New List Item')
                ITEM 'Sacar List Item' ACTION Win_1.List_1.DeleteItem (2)
                ITEM 'Cambiar List Item' ACTION Win_1.List_1.Item (1) := 'New Item Text'
                ITEM 'Mostrar Cantidad de List Item' ACTION MsgInfo (Str(Win_1.List_1.ItemCount))

            END POPUP
        END MENU

        @ 10, 10 LISTBOX List_1 ITEMS {'Option 1','Option 2','Option 3'}

    END WINDOW

    ACTIVATE WINDOW Win_1

Return


Otras Formas de Selección de Opciones II

Otro alternativa para obtener la opción de un usuario es el COMBOBOX.

@ 10, 10 COMBOBOX Combo_1 ITEMS {'Option 1','Option 2','Option 3'}

Usar un Combobox, es similar al ListBox.

#include "minigui.ch"

Function Main

    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 200 ;
        TITLE 'Tutor 08 - ComboBox Test' ;
        MAIN

        DEFINE MAIN MENU
            POPUP "First Popup"
                ITEM 'Change ComboBox Value' ACTION Win_1.Combo_1.Value := 2
                ITEM 'Retrieve ComboBox Value' ACTION MsgInfo ( Str(Win_1.Combo_1.Value))
                SEPARATOR
                ITEM 'Agragar Combo Item' ACTION Win_1.Combo_1.AddItem ('New List Item')
                ITEM 'Sacar Combo Item' ACTION Win_1.Combo_1.DeleteItem (2)
                ITEM 'Cambiar Combo Item' ACTION Win_1.Combo_1.Item (1) := 'New Item Text'
                ITEM 'Mostar cantidad de Combo Item ' ACTION MsgInfo (Str(Win_1.Combo_1.ItemCount))
            END POPUP
        END MENU

        @ 10, 10 COMBOBOX Combo_1 ITEMS {'Option 1','Option 2','Option 3'}

    END WINDOW

    ACTIVATE WINDOW Win_1

Return