/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
 */ 
  
 #include "minigui.ch" 
  
 Function Main 
  
 	DEFINE WINDOW Form1 ; 
 		AT 0,0 ; 
 		WIDTH 300 ; 
 		HEIGHT 300 ; 
 		TITLE "MiniGUI Demo" ; 
 		MAIN ; 
 		NOMAXIMIZE NOSIZE 
  
 		@  10,20 LABEL Label1 VALUE "User Name" 
 		@  35,20 TEXTBOX TextBox1 VALUE "" TOOLTIP "TextBox1" 
  
                 Form1.Label1.Cargo := "TextBox1"  // f.e., store the TextBox name in the label's cargo 
  
 		@  80,20 LABEL Label2 VALUE "Computer Name" 
 		@ 105,20 TEXTBOX TextBox2 VALUE "" 
  
                 Form1.Label2.Cargo := "TextBox2" 
  
 		@ 180,20 BUTTON Button1 CAPTION "Get Names" ON CLICK _GetNames() 
 		@ 220,20 BUTTON Button2 CAPTION "Set Names" ON CLICK _SetNames() 
  
 	END WINDOW 
  
         Form1.TextBox2.Tooltip := "TextBox2" 
  
 	CENTER WINDOW Form1 
  
 	ACTIVATE WINDOW Form1 
  
 Return Nil 
  
  
 Static Function _GetNames() 
  
    Form1.TextBox1.Value := GetUserName() 
    Form1.TextBox2.Value := GetComputerName() 
  
 Return Nil 
  
  
 Static Function _SetNames() 
 Local cBoxName1,  cBoxName2 
  
    cBoxName1 := Form1.Label1.Cargo  // to take the TextBox name from the label's cargo 
    cBoxName2 := Form1.Label2.Cargo 
  
    Form1.(cBoxName1).Value := GetUserName() 
    Form1.(cBoxName2).Value := GetComputerName() 
  
 Return Nil 
 

#include "hmg.ch" 
  
 Function Main 
  
 	SET NAVIGATION EXTENDED 
 	SET EPOCH TO 2000 
  
 	SET CENTURY ON 
 	SET DATE FRENCH 
  
 	DEFINE WINDOW Form_1 ; 
 		AT 0,0 ; 
 		WIDTH 640 HEIGHT 480 ; 
 		TITLE 'HMG Demo' ; 
 		MAIN  
  
 		DEFINE MAIN MENU 
 			DEFINE POPUP 'Test' 
 				MENUITEM 'Set Text_1 Value' ACTION Form_1.Text_1.Value := Date() 
 				MENUITEM 'Set Text_2 Value' ACTION Form_1.Text_2.Value := ctod ('  /  /  ') 
 				MENUITEM 'Set Text_3 Value' ACTION Form_1.Text_3.Value := ctod('27/01/2020') 
 				MENUITEM 'Set Text_1 ReadOnly' ACTION Form_1.Text_1.ReadOnly := .T. 
 				MENUITEM 'Clear Text_1 ReadOnly' ACTION Form_1.Text_1.ReadOnly := .F. 
 			SEPARATOR 
 				MENUITEM 'Get Text_1 Value' ACTION MsgInfo ( dtoc ( Form_1.Text_1.Value ) ) 
 				MENUITEM 'Get Text_2 Value' ACTION MsgInfo ( dtoc ( Form_1.Text_2.Value ) )  
 				MENUITEM 'Get Text_3 Value' ACTION MsgInfo ( dtoc ( Form_1.Text_3.Value ) ) 
 			END POPUP 
 		END MENU 
  
 		@ 10,10 TEXTBOX Text_1 ; 
 			VALUE ctod('01/01/2020') ; 
 			TOOLTIP 'Date TextBox 1' ; 
 			DATE 
  
 		@ 40,10 TEXTBOX Text_2 ; 
 			VALUE Date() ; 
 			TOOLTIP 'Date TextBox 2' ; 
 			DATE 
  
 		DEFINE TEXTBOX Text_3 
 			ROW 70 
 			COL 10 
 			DATE .T. 
 		END TEXTBOX 
  
 	END WINDOW 
 	Form_1.Text_3.TOOLTIP := 'Date TextBox 3' 
  
 	Form_1.Center 
  
 	Form_1.Activate 
  
 Return Nil