/* 
 */ 
  
 #define _HMG_OUTLOG 
  
 #include "hmg.ch" 
  
 PROCEDURE main 
  
    LOCAL cActiveFormName := 'Form_2' 
    
    SET OOP ON 
  
    DEFINE WINDOW Form_1 ; 
       AT 0, 0 ; 
       WIDTH 640 HEIGHT 480 ; 
       TITLE 'Main Window'; 
       MAIN 
  
    DEFINE MAIN MENU 
       POPUP 'Child Window' 
          ITEM 'Open Win 2' ACTION {|| DoWindow2() } 
       END POPUP 
    END MENU 
  
    DEFINE BUTTON B_OK 
       ROW    20 
       COL    30 
       WIDTH  100 
       HEIGHT 28 
       ACTION Msgbox( 'OK' ) 
       CAPTION "OK" 
    END BUTTON 
  
 //   DEFINE TIMER T_1 INTERVAL 250 ACTION SetProperty( ThisWindow.Name, "Enabled", ( _IsWindowActive( cActiveFormName ) == .F. ) ) 
  
    END WINDOW 
  
    CENTER WINDOW Form_1 
    ACTIVATE WINDOW Form_1 
  
 RETURN 
  
 ***************************************************************************** 
 PROCEDURE DoWindow2() 
  
 //   LOCAL cActiveFormName := 'Form_3' 
    LOCAL cOwnerFormName := ThisWindow.Name, cOwnerFormTitle := ThisWindow.Title 
    LOCAL oWnd := ThisWindow.Object 
    LOCAL cTit := oWnd:Title 
  
    DEFINE WINDOW Form_2 ; 
       AT App.Row + 30, App.Col + 30 ; 
       WIDTH 600 HEIGHT 400 ; 
       TITLE 'Win 2' ; 
       CHILD ; 
       ON INIT    ( oWnd:Title := cTit + " - Disabled", oWnd:Enabled := .F. ) ; 
       ON RELEASE ( oWnd:Enabled := .T., oWnd:Title := cTit, oWnd:SetFocus() ) 
 /* 
       ON INIT ( SetProperty( cOwnerFormName, "Title", cOwnerFormTitle + " - Disabled" ) ) ; 
       ON RELEASE ( SetProperty( cOwnerFormName, "Title", cOwnerFormTitle ) ) ; 
 */ 
       @ 20, 40 BUTTON Button_2 caption 'Child Win 3' WIDTH 100 HEIGHT 28 ACTION {|| DoWindow3() } 
  
 //   DEFINE TIMER T_1 INTERVAL 250 ACTION SetProperty( ThisWindow.Name, "Enabled", ( _IsWindowActive( cActiveFormName ) == .F. ) ) 
  
    END WINDOW 
  
    ACTIVATE WINDOW Form_2 
  
 RETURN 
  
 ***************************************************************************** 
 PROCEDURE DoWindow3() 
  
 //   LOCAL cOwnerFormName := ThisWindow.Name, cOwnerFormTitle := ThisWindow.Title 
    LOCAL oWnd := ThisWindow.Object 
    LOCAL cTit := oWnd:Title 
  
    DEFINE WINDOW Form_3 ; 
       AT App.Row + 60, App.Col + 60 ; 
       WIDTH 600 HEIGHT 400 ; 
       TITLE 'Win 3' ; 
       CHILD ; 
       ON INIT    ( oWnd:Title := cTit + " - Disabled", oWnd:Enabled := .F. ) ; 
       ON RELEASE ( oWnd:Enabled := .T., oWnd:Title := cTit, oWnd:SetFocus() ) 
 /*   
       ON INIT ( SetProperty( cOwnerFormName, "Title", cOwnerFormTitle + " - Disabled" ) ) ; 
       ON RELEASE ( SetProperty( cOwnerFormName, "Enabled", .T. ), SetProperty( cOwnerFormName, "Title", cOwnerFormTitle ), ; 
          DoMethod( cOwnerFormName, "setFocus" ) ) 
 */ 
    @ 50, 100 BUTTON Button_2 caption 'OK' WIDTH 100 HEIGHT 28 ACTION {|| MsgBox( 'OK' ) } 
  
    END WINDOW 
  
    ACTIVATE WINDOW Form_3 
  
 RETURN 
 

  * New: Added the useful function HMG_GetForms( [ cFormTypes ] [, lObj ] ) 
            for retrieving of an array of the form's names (or handles). 
            Contributed by Sergej Kiselev 
            (see demo in folder \samples\Basic\MAINDEMO_(SYNTAX_I)) 
   * Modified: The local OS detecting functions were replaced with a native 
            [x]Harbour implementation (instead of using the MiniGUI function 
            WindowsVersion()). 
            NOTE: The C-functions IsWinXPorLater() and IsVistaOrLater() are 
            defined as pseudo-functions now. 
            It was a postponed modification. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see i_pseudofunc.ch in folder Include\) 
   * Modified: The function IsExe64() is replaced with a native Harbour 
            implementation. 
            The compatibility with xHarbour compiler is provided also. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see i_pseudofunc.ch in folder Include\) 
   * Updated: Header file i_hmgcompat.ch for compatibility with Official HMG: 
            - added pseudo-function IsMaximized( hWnd ). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\ImageFromWeb) 
   * Updated: Pacified the warnings in the C-code for compatibility with MS 
            Visual C++ 2019 (32-bit) compiler. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: OpenSSL wrapper for using of the version 1.0.2s. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: 'MiniGUI DataBase Utility' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \Utils\mgDBU) 
 

 
 STATIC FUNC _DO_BTN_( oBtn ) 
    LOCAL cBtn  := oBtn:Name //This.Name 
    LOCAL cCapt := This.Caption 
    LOCAL cWnd  := ThisWindow.Name 
    LOCAL cTitl := ThisWindow.Title 
    LOCAL cType := ThisWindow.Type 
    LOCAL lStbP := 'Export' $ cBtn 
    LOCAL cText := iif( lStbP, CRLF+CRLF+'Start ProgressBar', '' ) 
  
    LOCAL aThis := _ThisInfo() 
     
    _OUT_(.T., cWnd, cType) 
    AlertInfo(cBtn + CRLF + cCapt + CRLF + cTitl + CRLF + cType + cText, cWnd) 
    _OUT_(.F.) 
  
    _ThisInfo(aThis) 
  
    This.Chk_Lock.Value := .F. 
  
 //   oBtn:SetFocus() 
  
    If lStbP; StbProgressBar() 
    EndIf 
  
    This.Chk_Lock.Value := .T. 
  
  
 RETURN Nil 
 

 
 STATIC FUNC Main_Btn_Run( oBtn, nEvent ) 
 ... 
    LOCAL nY, nX, nW, nH, nN, aYX 
    LOCAL nTypW := 0 
    LOCAL cTypW := '' 
 ... 
    DEF WINDOW &cForm AT 0,0 WIDTH 1100 HEIGHT 650  ; 
 ... 
        ON RELEASE Nil 
  
        cTypW := This.Type 
        nTypW := Len( HMG_GetForms('S') ) 
  
        If cTypW == 'S' .and. nTypW == 1 
           do_obj( _HMG_MainHandle, {|ow| ow:Hide() } ) 
        EndIf 
  
        DEFINE STATUSBAR 
 ... 
    CENTER   WINDOW &cForm 
    ACTIVATE WINDOW &cForm 
  
    If cTypW == 'S' .and. nTypW == 1 
       do_obj( _HMG_MainHandle, {|ow| ow:Show() } ) 
    EndIf 
  
    If Len(HMG_GetForms()) == 1; oChk:Value := .T. 
    EndIf 
        
 RETURN Nil