* Fixed: Missed 'XObject' property reference in the GetProperty() function. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demos in folder \samples\Advanced\GoogleCharts) 
   * Modified: Added Min and Max range for the NON CLIENT attributes of windows 
            according to the Windows requirements. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: Added the useful function EnumChildWindows( hWnd [, lExt] ) for 
            retrieving of array of the child windows for a parent window handle. 
            This implementation is compatible with Official HMG if a second 
            parameter is false (default value). 
            Based upon a contribution of Petr Chornyj <myorg63/at/gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see SumatraPDF.prg in folder \samples\Advanced\PdfView) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            - New: SET DIALOGBOX POSITION: Sets the position of the dialog boxes 
              (GetColor, GetFile, GetFolder, GetFont, MessageBoxTimeout, MsgXXX, 
              PutFile, SELECT PRINTER, etc.) 
              Added the following commands: 
            - SET DIALOGBOX [ POSITION ] ROW <nRow>|<@VarCodeBlockRow>|<NIL> ; 
              COL <nCol>|<@VarCodeBlockCol>|<NIL> 
            - SET DIALOGBOX [ POSITION ] CENTER OF PARENT 
            - SET DIALOGBOX [ POSITION ] CENTER OF <hWnd> 
            - SET DIALOGBOX [ POSITION ] CENTER OF DESKTOP 
            - SET DIALOGBOX [ POSITION ] DISABLE 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\MoveDialogBox) 
   * Updated: 'MiniGUI Extended Edition Common Commands' list: 
            - added the recent entered commands. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at commands.txt in folder \Doc) 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - New: added the optional OBJ clause in DEFINE TBROWSE command. 
            - New: added the optional ALIAS clause in DEFINE COLUMN command and 
              the variable :cField in TSColumn class. 
            - New: methods DefColor()(), DefFont() and Clone() in TSColumn class. 
            - New: methods SaveProperty() and RestProperty() in TSColumn class. 
            - New: methods SetProperty() and GetProperty() in TSColumn class. 
            - Updated: improved the methods GetValue(xCol) and SetValue(xCol, xVal). 
            - Updated: improved a colors processing with using of aColors items 
              number, f.e. 
              { CLR_TEXT, RGB( fontcolor[1], fontcolor[2], fontcolor[3] ) } 
              { CLR_PANE, RGB( backcolor[1], backcolor[2], backcolor[3] ) }. 
            Suggested and contributed by Sergej Kiselev 
            (see demo in folder \samples\Advanced\APP_OOPCOLUMNS) 
   * New: 'Using DEFINE COLUMN commands as container for design of TBROWSE' sample. 
            Contributed by Sergej Kiselev 
            (see in folder \samples\Advanced\APP_OOPCOLUMNS) 
   * New: 'Get Tasks' sample is based on calling of EnumChildWindows() function. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GETTASKS) 
   * New: 'Google Charts' samples: using of a static image and a html file. 
            Based upon a contribution of HMG user Edward. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GoogleCharts) 
   * New: 'TSBrowse Export data to XLS/XML/DOC/DBF files with a coloring' sample. 
            Contributed by Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Advanced\Tsb_Export) 
   * Updated: 'Move a standard dialog box in the screen' sample: 
            - added an example of centering of the GetFolder() dialog related to 
              an application's window. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\MoveDialogBox) 
   * Updated: The following samples are revised for compatibility with the recent 
            Minigui modification: 
            - demo2.prg in folder \samples\Advanced\ExternalApp_3; 
            - demo3.prg in folder \samples\Basic\TaskDialogs\TTaskDialog. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
 

 
 #include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
 SET OOP ON 
   
 DEFINE WINDOW cDlgMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow   | Modal_1(ow)     } ) 
 :Event( 99, {|ow   | ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal 1"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(1)  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "&Quit"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(99)  
 END BUTTONEX  
   
 END window  
   
 cDlgMain.center  
 cDlgMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL_1( oParent ) 
 *************************  
 LOCAL y := App.Row+40 
 LOCAL x := App.Col+40 
   
 DEFINE WINDOW cModal1 AT y, x WIDTH 400 HEIGHT 300 TITLE "Modal 1" MODAL  
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow   | _HMG_aFormFocused [ ow:Index ] := .F., ; 
                      Modal_2(ow)     } ) 
 :Event( 02, {|ow   | _HMG_aFormFocused [ ow:Index ] := .T., ; 
                      oParent:SetFocus('ButtonEX_1') } ) 
 :Event( 99, {|ow   | ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal 2"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(1)  
 END BUTTONEX  
  
 DEFINE BUTTONEX ButtonEX_2 
 	ROW 225  
 	COL 219                           
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Focus Main"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(2)  
 END BUTTONEX  
   
 END window  
   
 Activate window cModal1 
   
 return NIL  
   
 *************************  
 static function MODAL_2( oParent ) 
 *************************  
 LOCAL y := App.Row+80 
 LOCAL x := App.Col+80 
   
 DEFINE WINDOW cModal2 AT y, x WIDTH 400 HEIGHT 300 TITLE "Modal 2" MODAL  
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow| _HMG_aFormFocused [ ow:Index ] := .T., ; 
                    oParent:SetFocus('ButtonEX_1') } ) 
 :Event( 99, {|ow| ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79                           
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Focus Modal 1"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(1)  
 END BUTTONEX  
   
 END window  
   
 Activate window cModal2 
   
 return NIL  
   

 
 *************************  
 static function MODAL_2( oParent ) 
 *************************  
 LOCAL y  := App.Row+80 
 LOCAL x  := App.Col+80 
 LOCAL lM := _HMG_IsModalActive 
 LOCAL hM := _HMG_ActiveModalHandle 
  
 _HMG_IsModalActive     := .F. 
 _HMG_ActiveModalHandle := 0 
  
 DEFINE WINDOW cModal2 AT y, x WIDTH 400 HEIGHT 300 TITLE "Child"   CHILD ; 
    ON LOSTFOCUS do_Obj(ThisWindow.Handle, {|ow| ow:PostMsg(99) }) 
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow| oParent:SetFocus('ButtonEX_1') } ) 
 :Event( 99, {|ow| ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79                           
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Focus Modal 1"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(01)  
 END BUTTONEX  
   
 END window  
   
 Activate window cModal2 
   
 _HMG_IsModalActive     := lM 
 _HMG_ActiveModalHandle := hM 
 oParent:SetFocus('ButtonEX_1') 
  
 return NIL  
 

 
 #include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
   
 DEFINE WINDOW wMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal"  
 	ICON NIL  
 	ACTION MODAL()  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "&Quit"  
 	ICON NIL  
 	ACTION ThisWindow.release  
 END BUTTONEX  
   
 END window  
   
 wMain.center  
 wMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL() 
 *************************  
 DEFINE WINDOW wModal AT 0, 0 WIDTH 100 HEIGHT 100 TITLE "Modal" MODAL ;  
  
 _HMG_aFormFocused [ This.Index ] := .T. 
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 20  
 	COL 40  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "To wMain"  
 	ICON NIL  
 	ACTION wMain.ButtonEX_1.SetFocus() 
 END BUTTONEX  
   
 END window  
   
 wModal.center  
 wModal.activate 
   
 return NIL