Página 7 de 11
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