/* 
  * Harbour MiniGUI Demo 
 */ 
  
 #include "minigui.ch" 
 #define WM_HOTKEY           786 
  
 STATIC bHotKey, cForm 
  
 Function Main 
  
 	SET GLOBAL HOTKEYS ON 
 	SET EVENTS FUNCTION TO MYEVENTS 
  
 	DEFINE WINDOW Win_1 ; 
 		AT 0,0 ; 
 		WIDTH 400 ; 
 		HEIGHT 400 ; 
 		TITLE 'Hello World!' ; 
                 MAIN ; 
 		ON GOTFOCUS cForm := This.Name 
  
        @ 010,005 BUTTONEX BTNOK     ; 
                  CAPTION "Click"   ; 
                  ACTION m1()    ; 
                  WIDTH 100 HEIGHT 30 
  
 bHotKey := {|| MsgInfo( cForm ) } 
 ** 
 ** 
 ON KEY ALT+1 ACTION bHotKey 
 ** 
 ** 
         END WINDOW 
  
         ACTIVATE WINDOW Win_1 
  
 Return Nil 
  
 ** 
 ** 
 ** 
  
 FUNCTION m1() 
  
 DEFINE WINDOW Win_2      ; 
        AT 50,50                ; 
        WIDTH 400 ; 
        HEIGHT 400 ; 
        TITLE " Win_2 "    ; 
        MODAL ; 
 	ON GOTFOCUS cForm := This.Name 
  
 	SetDummyKey() 
  
        @ 010,005 BUTTONEX BTNOK     ; 
                  CAPTION "Click"   ; 
                  ACTION m2()   ; 
                  WIDTH 100 HEIGHT 30 
  
 END WINDOW 
  
 *** Ativa janela          
 ACTIVATE WINDOW Win_2 
  
 ** 
 ** 
 ** 
  
 FUNCTION m2() 
  
 DEFINE WINDOW Win_3      ; 
        AT 100,100              ; 
 	WIDTH 400 ; 
 	HEIGHT 400 ; 
        TITLE " Win_3 "    ; 
        MODAL ; 
 	ON GOTFOCUS cForm := This.Name 
  
 	SetDummyKey() 
  
        @ 010,005 BUTTONEX BTNOK     ; 
                  CAPTION "Click"   ; 
                  ACTION Win_3.RELEASE ; 
                  WIDTH 100 HEIGHT 30 
  
  
 END WINDOW 
  
 *** Ativa janela          
 ACTIVATE WINDOW Win_3 
  
 FUNCTION SetDummyKey() 
  
 ON KEY ALT+1 ACTION _dummy() 
  
 *--------------------------------------------------------* 
 FUNCTION MyEvents ( hWnd, nMsg, wParam, lParam ) 
 *--------------------------------------------------------* 
 LOCAL result := 0 
  
 	SWITCH nMsg 
 	CASE WM_HOTKEY 
  
 		* Process HotKeys 
 		i := ASCAN( _HMG_aControlIds, wParam ) 
  
 		IF i > 0 
 			IF _HMG_aControlType[ i ] == 'HOTKEY' 
 				Eval( bHotKey ) 
 			ENDIF 
 		ENDIF 
 		EXIT 
  
 #ifdef __XHARBOUR__ 
 	DEFAULT 
 #else 
 	OTHERWISE 
 #endif 
 		result := Events( hWnd, nMsg, wParam, lParam ) 
 	END 
  
 RETURN result