Harbour Minigui

Tutorial


Button + Checkbox = CheckButton

El control CheckButton, actua como un checkbox, pero se ve como un botón. Al igual que los botones, pueden ser de texto o gráficos.

@ 10,10 CHECKBUTTON CheckButton_1;
    CAPTION 'CheckButton' ;
    VALUE .F.

@ 50,10 CHECKBUTTON CheckButton_2;
    PICTURE 'Open.Bmp' ;
    WIDTH 27 ;
    HEIGHT 27 ;
    VALUE .F. ;
    TOOLTIP 'Graphical CheckButton'

#include "minigui.ch"

Function Main

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

        DEFINE MAIN MENU
            POPUP "First Popup"
                ITEM 'Change Text CheckButton Value' ACTION Win_1.CheckButton_1.Value := .T.
                ITEM 'Retrieve Text CheckButton Value' ACTION MsgInfo (if(Win_1.CheckButton_1.Value,'.T.','.F.'))
                SEPARATOR
                ITEM 'Change Picture CheckButton Value' ACTION Win_1.CheckButton_2.Value := .T.
                ITEM 'Retrieve Picture CheckButton Value' ACTION MsgInfo (if(Win_1.CheckButton_2.Value,'.T.','.F.'))

            END POPUP

        END MENU

        @ 10,10 CHECKBUTTON CheckButton_1 ;
            CAPTION 'CheckButton' ;
            VALUE .F.

        @ 50,10 CHECKBUTTON CheckButton_2 ;
            PICTURE 'Open.Bmp' ;
            WIDTH 27 ;
            HEIGHT 27 ;
            VALUE .F. ;
            TOOLTIP 'Graphical CheckButton'

    END WINDOW

    ACTIVATE WINDOW Win_1

Return


El Control DatePicker

La manera más fácil de obtener una fecha del usuario es mediante el control datepicker.

@ 10,10 DATEPICKER Date_1

#include "minigui.ch"

Function Main

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

        DEFINE MAIN MENU
            POPUP "First Popup"
                ITEM 'Change DatePicker Value' ACTION Win_1.date_1.Value := Date()
                ITEM 'Retrieve DatePicker Value' ACTION MsgInfo ( dtoc(Win_1.Date_1.Value))
            END POPUP
        END MENU

        @ 10,10 DATEPICKER Date_1

    END WINDOW

    ACTIVATE WINDOW Win_1

Return


El control EditBox

El control EditBox permite manejar datos de texto de múltiples líneas.

@ 10,10 EDITBOX Edit_1;
    WIDTH 300 ;
    HEIGHT 150

#include "minigui.ch"

Function Main

    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 300 ;
        TITLE 'Tutor 13 EditBox Test' ;
        MAIN

        DEFINE MAIN MENU
            POPUP "First Popup"
                ITEM 'Change EditBox Content' ACTION Win_1.Edit_1.Value := 'New EditBox Value'
                ITEM 'Retrieve EditBox Content' ACTION MsgInfo ( Win_1.Edit_1.Value)
            END POPUP
        END MENU

        @ 10,10 EDITBOX Edit_1 ;
            WIDTH 300 ;
            HEIGHT 150

    END WINDOW

    ACTIVATE WINDOW Win_1

Return