Tutorial

Índice de artículos Tutorial Página 2 Página 3 Página 4 Página 5 Página 6 Página 7 Página 8 Página 9 Página 10 Página 11 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 << Anterior - Siguiente >>