... 
  DEFINE  WINDOW         wMain                       ; 
     AT                  0, 0                        ; 
     WIDTH               GetClientWidth () * nKfcW   ; 
     HEIGHT              GetClientHeight() * nKfcH   ; 
     TITLE               gTxt(Title)                 ; 
     ICON                cIcon                       ; 
     MAIN                MDI                         ; 
     CURSOR              cCursor                     ; 
     ON INIT             MainExecute()               ; 
     ON RELEASE          MainExecute()               ;  
     ON MOUSECLICK       MainExecute()               ; 
     ON INTERACTIVECLOSE MainExecute()               ;  
     BACKCOLOR           aBColor 
  
     _wCargoSet('')                                             // Wnd.Cargo для окна 
  
     MainMenu(cPref)                                            // меню от префикса 
  
     MainStatusBar()                                            // StatusBar 
  
     hWnd := FormHandle(wMain) 
  
     AppSet(MainName  , GetFormName()) 
     AppSet(MainIndex , FormIndex(wMain)) 
     AppSet(MainHandle, hWnd) 
     AppSet(MainVhod1 , empty(g_Cfg(AppGet(MainName) + cCursor, '', [Window])))  // первый вход 
  
     AppSet(SBarHeight, GetWindowHeight(ControlHandle(StatusBar, wMain))) 
     AppSet(TBarHeight, 0) 
  
     AppSet(MainClientWidth , GetClientWidth (hWnd)) 
     AppSet(MainClientHeight, GetClientHeight(hWnd) - AppGet(SBarHeight)) 
  
  END WINDOW 
 ... 
  
 STATIC FUNCTION MainStatusBar( cFont, nSize, lBold )           // MDI Main StatusBar 
 LOCAL oS  := Application.Sets 
 LOCAL nW3 := oS:W(20) + 16 
 LOCAL nW4 := oS:W(30) + 16 
 LOCAL nW5 := oS:W(,4) + 16 
 LOCAL nW2 := int(( GetClientWidth( _HMG_MainHandle ) - nW3 - nW4 - nW5 ) * 0.4 ) 
  
  DEFAULT cFont := oS:cFontName,     ; 
          nSize := oS:nDefFontSize,  ; 
          lBold := .T. 
  
     IF lBold 
  DEFINE STATUSBAR  FONT cFont  SIZE nSize  BOLD 
     ELSE 
  DEFINE STATUSBAR  FONT cFont  SIZE nSize 
     ENDIF 
     STATUSITEM ""             ACTION MainExecute('stb.1') 
     STATUSITEM ""  WIDTH nW2  ACTION MainExecute('stb.2') 
     STATUSITEM ""  WIDTH nW3  ACTION MainExecute('stb.3')  ICON 'D_DAT' 
     STATUSITEM ""  WIDTH nW4  ACTION MainExecute('stb.4')  ICON 'D_ORG' 
     STATUSITEM ""  WIDTH nW5  ACTION MainExecute('stb.5')  ICON 'D_SET' 
  END STATUSBAR 
  
 RETURN 
  
 FUNCTION MainExecute( cKey, cTxt )                  // выполнение в главном окне 
 LOCAL a,i,j,k 
 LOCAL cThis := '', lRet := .T., o := AppGet(Leto) 
 LOCAL cMain_menu := 'Main_menu_' 
 /* 
 msglog( CRLF ) 
 msglog( procname(), o:IsErrConnect(), o:cPathBase, o:cPathLocal ) 
 msglog( '_HMG_ThisEventType  ', _HMG_ThisEventType  ) 
 msglog( '_HMG_ThisFormIndex  ', _HMG_ThisFormIndex  ) 
 msglog( '_HMG_ThisType       ', _HMG_ThisType       ) 
 msglog( '_HMG_ThisIndex      ', _HMG_ThisIndex      ) 
 msglog( '_HMG_ThisFormName   ', _HMG_ThisFormName   ) 
 msglog( '_HMG_ThisControlName', _HMG_ThisControlName) 
 */ 
  
  IF     _HMG_ThisEventType == 'WINDOW_INIT'                   // ON INIT             
  
     IF o:IsErrConnect() 
        o:ErrorMsg() 
     ELSE 
     ENDIF 
  
  ELSEIF _HMG_ThisEventType == 'WINDOW_ONINTERACTIVECLOSE'     // ON RELEASE          
  
     lRet := YesNoMainClose() 
  
  ELSEIF _HMG_ThisEventType == 'WINDOW_RELEASE'                // ON INTERACTIVECLOSE 
  
     CLOSE ALL 
  
     IF ! o:ErrorMsg(); o:DisConnect() 
     ENDIF 
  
  ELSEIF ! empty(_HMG_ThisControlName) .and. ! empty(cKey)     // Menu item execute 
  
     cThis := _HMG_ThisControlName                             // меню name 
  
     IF left(cThis, len(cMain_menu)) == cMain_menu 
        i := RAt('_', cThis) 
        j := left(cThis, i-1)+'.'+subs(cThis, i+1) 
        j := subs(j, RAt('_', j)+1) 
        IF j == '1.9'; cKey := j                               // Exit item из пункта меню с префиксом 
        ENDIF 
     ENDIF 
  
     IF     cKey == '1.9'                                      // Exit item 
  
        RETURN YesNoMainClose() 
  
     ELSEIF cKey == '2.1' 
  
        Wnd_SetKassa() 
  
     ELSEIF cKey == '2.2' 
  
        Wnd_SetPVN() 
  
     ELSEIF cKey == '2.3' 
  
        Wnd_SetProv() 
  
     ELSEIF cKey == '2.4' 
  
        Wnd_Test() 
  
     ELSEIF cKey == '7.1' 
  
        Imp_OldBase() 
  
     ELSEIF 'stb.' $ cKey 
        a := { ;  
              {"1.", "Item line 1", "Execute 1"}, ; 
              {"2.", "Item line 2", "Execute 2"}, ; 
              {"3.", "Item line 3", "Execute 3"}, ; 
              {"4.", "Item line 4", "Execute 4"}, ; 
              {"5.", "Item line 5", "Execute 5"}, ; 
              {"6.", "Item line 6", "Execute 6"}, ; 
              {"7.", "Item line 7", "Execute 7"}, ; 
              {"8.", "Item line 8", "Execute 8"}, ; 
              {"9.", "Item line 9", "Execute 9"}  ; 
             } 
        i := 0 
        IF     cKey == 'stb.1' 
        ELSEIF cKey == 'stb.2' 
        ELSEIF cKey == 'stb.3' 
           i := mAchoice(a, 1,  8, 'Setting') 
        ELSEIF cKey == 'stb.4' 
           i := mAchoice(a, 1,  9, 'Setting') 
        ELSEIF cKey == 'stb.5' 
           i := mAchoice(a, 1, 10, 'Setting') 
        ENDIF 
        MsgBox('StatusBar press '+hb_valtoexp(i), 'Achoice') 
     ENDIF 
  
  ENDIF 
  
 RETURN lRet 
  
 FUNCTION mAchoice( aAchoice, nValue, nLayOut, cTitle, nSize, nLines, nRow, nCol )   // меню Achoice 
 LOCAL a, i, j, k 
 LOCAL aItems := {}, aRezult := {} 
 LOCAL aJustify, aHeaders, aWidths, nW, nH 
 LOCAL nAchoice := 0, lNoLines := .T., lHeaders := .F. 
 LOCAL nKols, nWidth := 4, nHeight := 100, lCell := .F. 
 LOCAL cIcon      := AppGet(MainIcon) 
 LOCAL aBackColor := AppGet(BackColor) 
 LOCAL cFontName  := AppGet(FontNameDef) 
 LOCAL nFontSize  := AppGet(FontSizeDef) 
 LOCAL lFontBold  := .F., aFontColor, lSysMenu 
 LOCAL lSelected  := .T., nMaxRow := 21, uParent, cParent, hParent 
 LOCAL nParentWidth, nParentHeight, nFormWidth, nFormHeight 
  
 LOCAL nAppRow := Application.Row + GetBorderHeight() + GetTitleHeight() + GetMenuBarHeight() 
 LOCAL nAppCol := Application.Col + GetBorderWidth() 
  
 LOCAL aHmg := Save_Rest_HMG() 
  
  DEFAULT nValue  := 1,         ; 
          nRow    := 0,         ; 
          nCol    := 0,         ; 
          cTitle  := '',        ; 
          nSize   := nFontSize, ; 
          nLines  := nMaxRow,   ; 
          nLayOut := 0 
  
  IF hb_IsChar(nSize); nSize := nFontSize + val(nSize)    // increment для FontSize 
  ENDIF 
  
  lSysMenu := ! empty(cTitle) 
  
  IF     empty(aAchoice) 
     RETURN nAchoice 
  ELSEIF hb_IsArray(aAchoice) 
     aItems     := aAchoice 
     lHeaders   := .F. 
  ELSEIF hb_IsHash(aAchoice) 
     nRow       := hb_HGetDef(aAchoice, "ROW"     , nRow )  
     nCol       := hb_HGetDef(aAchoice, "COL"     , nCol )  
     aItems     := hb_HGetDef(aAchoice, "ITEMS"   , NIL) 
     aHeaders   := hb_HGetDef(aAchoice, "HEADERS" , NIL) 
     aJustify   := hb_HGetDef(aAchoice, "JUSTIFY" , NIL) 
     aRezult    := hb_HGetDef(aAchoice, "RETURN"  , {} ) 
     cTitle     := hb_HGetDef(aAchoice, "TITLE"   , cTitle) 
     cFontName  := hb_HGetDef(aAchoice, "FONT"    , cFontName) 
     nFontSize  := hb_HGetDef(aAchoice, "SIZE"    , nFontSize) 
     lFontBold  := hb_HGetDef(aAchoice, "BOLD"    , lFontBold) 
     aFontColor := hb_HGetDef(aAchoice, "FCOLOR"  , NIL) 
     aBackColor := hb_HGetDef(aAchoice, "BCOLOR"  , NIL) 
     uParent    := hb_HGetDef(aAchoice, "PARENT"  , NIL)  
     cIcon      := hb_HGetDef(aAchoice, "ICON"    , cIcon)  
     lNoLines   := hb_HGetDef(aAchoice, "NOLINES" , lNoLines) 
     lSysMenu   := hb_HGetDef(aAchoice, "SYSMENU" , lSysMenu) 
     lSelected  := hb_HGetDef(aAchoice, "SELECTED", lSysMenu) 
     nLines     := hb_HGetDef(aAchoice, "MAXROW"  , nMaxRow )  
     nLayOut    := hb_HGetDef(aAchoice, "LAYOUT"  , nLayOut )  
     lHeaders   := ! empty(aHeaders) 
  ENDIF 
  
  IF empty(aItems); RETURN nAchoice 
  ENDIF 
  
  nMaxRow := nLines 
  nKols   := len(aItems) 
  
  IF nMaxRow > nKols; nMaxRow   := nKols 
  ENDIF 
  IF ! empty(nSize) ; nFontSize := nSize 
  ENDIF 
  IF nValue > nKols ; nValue    := nKols 
  ENDIF 
  IF empty(aRezult) ; aRezult   := array(nKols) 
  ENDIF 
  IF empty(aJustify); aJustify  := array(nKols) 
  ENDIF 
  IF ! lHeaders 
     aHeaders := array(nKols) 
     aEval(aHeaders, {|x,n| aHeaders[ n ] := hb_ntos(n) }) 
  ENDIF 
  IF empty(uParent) 
     IF     ! empty(_HMG_MainClientMDIName) 
        uParent := _HMG_MainClientMDIName 
     ELSEIF ! empty(_HMG_ActiveFormName) 
        uParent := _HMG_ActiveFormName 
     ELSE 
        uParent := Application.FormName 
     ENDIF 
  ENDIF 
  hParent := iif(hb_IsChar(uParent), GetFormHandle(uParent), uParent) 
  IF ! empty(hParent) 
     IF ( i := AScan( _HMG_aFormHandles, hParent) ) > 0 
        cParent := _HMG_aFormNames[ i ] 
     ENDIF 
  ENDIF 
  
  nParentWidth  := GetClientWidth  (hParent) 
  nParentHeight := GetClientHeight (hParent) 
  nAppRow       += GetToolBarHeight(hParent) 
  
  k        := len(aItems[1]) 
  aWidths  := array(k) 
  
  a := array(k); aFill(a, 0) 
  FOR i := 1 TO len(aItems) 
      FOR j := 1 TO k 
          a[ j ] := Max(a[j], GetTxtWidth(aItems[ i ][j] + repl('W', 2), nFontSize, cFontName)) 
      NEXT 
  NEXT 
  
  aEval(aWidths , {|x,n| aWidths [ n ] := a[ n ] }) 
  aEval(aWidths , {|x,n| nWidth += (x + 1) }) 
  
  IF nKols > nMaxRow; nWidth += GetVScrollBarWidth()    // items больше строк в показе 
  ENDIF 
  
  DEFINE WINDOW wAchoice AT 0,0 WIDTH 100 HEIGHT 100 ICON cIcon  MODAL  
  
     _SetThisFormInfo(FormIndex(wAchoice)) 
  
     ThisWindow.Sizable   := .F. 
     ThisWindow.MaxButton := .F. 
     ThisWindow.MinButton := .F. 
     ThisWindow.Title     := cTitle 
     ThisWindow.TitleBar  := ! empty(cTitle) 
     ThisWindow.SysMenu   := lSysMenu 
  
 	 DEFINE  GRID      Achoice 
 	    ROW            0 
 	    COL            0 
 	    WIDTH          nWidth 
 	    HEIGHT         nHeight 
        HEADERS        aHeaders  
        WIDTHS         aWidths 
        ITEMS          aItems 
        VALUE          nValue 
        NOLINES        lNoLines 
        CELLNAVIGATION lCell 
        SHOWHEADERS    lHeaders 
        FONTNAME       cFontName 
        FONTSIZE       nFontSize 
        FONTBOLD       lFontBold 
        FONTCOLOR      aFontColor 
        BACKCOLOR      aBackColor 
        JUSTIFY        aJustify 
           IF lSelected 
        ON DBLCLICK    ( nAchoice := wAchoice.Achoice.Value, ThisWindow.Release ) 
           ENDIF 
     END GRID 
  
     wAchoice.Achoice.Height := GetHeghtBrowse( ControlHandle(Achoice, wAchoice), nMaxRow ) 
     wAchoice.Height         := GetTitleHeight() + wAchoice.Achoice.Height + GetBorderHeight() + 2 
     wAchoice.Width          := GetBorderWidth() + wAchoice.Achoice.Width + 2                      
     nFormHeight             := wAchoice.Height 
     nFormWidth              := wAchoice.Width  
  
     IF empty(nRow + nCol) .and. nParentWidth > nFormWidth .and. nParentHeight > nFormHeight 
  
        nH := nParentHeight - nFormHeight - GetBorderHeight() - GetStatusBarHeight() 
        nW := nParentWidth  - nFormWidth                     
        IF ! ThisWindow.TitleBar; nH += GetTitleHeight() 
        ENDIF 
        IF     nLayOut == 0                // центровать в Desktop 
        ELSEIF nLayOut == 1                // левый   ВЕРХНИЙ угол в parent окне 
           nRow := 1 
           nCol := 1 
        ELSEIF nLayOut == 2                // ( 0.3 ) ВЕРХНИЙ угол в parent окне 
           nRow := 1 
           nCol := int(nW * 0.33) 
        ELSEIF nLayOut == 3                // центр.  ВЕРХНИЙ угол в parent окне 
           nRow := 1 
           nCol := int(nW / 2) 
        ELSEIF nLayOut == 4                // ( 0.6 ) ВЕРХНИЙ угол в parent окне 
           nRow := 1 
           nCol := int(nW * 0.67) 
        ELSEIF nLayOut == 5                // правый  ВЕРХНИЙ угол в parent окне 
           nRow := 1 
           nCol := nW 
        ELSEIF nLayOut == 6                // левый   НИЖНИЙ  угол в parent окне 
           nRow := nH 
           nCol := 1 
        ELSEIF nLayOut == 7                // ( 0.3 ) НИЖНИЙ  угол в parent окне 
           nRow := nH 
           nCol := int(nW * 0.33) 
        ELSEIF nLayOut == 8                // центр.  НИЖНИЙ  угол в parent окне 
           nRow := nH 
           nCol := int(nW / 2) 
        ELSEIF nLayOut == 9                // ( 0.6 ) НИЖНИЙ  угол в parent окне 
           nRow := nH 
           nCol := int(nW * 0.67) 
        ELSEIF nLayOut == 10               // правый  НИЖНИЙ  угол в parent окне 
           nRow := nH 
           nCol := nW 
        ELSEIF nLayOut == 11               // центровать в parent окне 
           nRow := int(nH / 2) 
           nCol := int(nW / 2) 
        ENDIF 
  
     ENDIF 
  
     IF nRow > 0 .and. nCol > 0 
        wAchoice.Row := nAppRow + nRow 
        wAchoice.Col := nAppCol + nCol 
     ENDIF 
  
  END WINDOW 
  
  _SetThisFormInfo() 
  
  IF empty(nRow) .and. empty(nCol); CENTER WINDOW wAchoice 
  ENDIF 
  
  ACTIVATE WINDOW wAchoice 
  
  Save_Rest_HMG(aHmg) 
  
  IF nAchoice > 0 .and. ! empty(aRezult[ nAchoice ]); nAchoice := aRezult[ nAchoice ] 
  ENDIF 
   
 RETURN nAchoice 
  
 FUNCTION  Save_Rest_HMG( uHMG )   // save\restore _HMG_... переменные пере MODAL 
 LOCAL aHMG 
  
  IF hb_IsArray(uHMG) 
  
     aHMG := uHMG 
     _HMG_BeginWindowMDIActive := aHMG[ 1] 
     _HMG_ActiveStatusHandle   := aHMG[ 2] 
     _HMG_UserWindowHandle     := aHMG[ 3] 
     _HMG_SetFocusExecuted     := aHMG[ 4] 
     _HMG_ThisFormName         := aHMG[ 5] 
     _HMG_ThisControlName      := aHMG[ 6] 
     _HMG_ActiveFontName       := aHMG[ 7] 
     _HMG_ActiveFontSize       := aHMG[ 8] 
     _HMG_ExtendedNavigation   := aHMG[ 9] 
     _HMG_InplaceParentHandle  := aHMG[10] 
  
  ELSE 
  
     aHMG := array(10) 
  
     aHMG[ 1] := _HMG_BeginWindowMDIActive 
     aHMG[ 2] := _HMG_ActiveStatusHandle 
     aHMG[ 3] := _hmg_UserWindowHandle 
     aHMG[ 4] := _HMG_SetFocusExecuted 
     aHMG[ 5] := _HMG_ThisFormName 
     aHMG[ 6] := _HMG_ThisControlName 
     aHMG[ 7] := _HMG_ActiveFontName 
     aHMG[ 8] := _HMG_ActiveFontSize 
     aHMG[ 9] := _HMG_ExtendedNavigation 
     aHMG[10] := _HMG_InplaceParentHandle 
  
     _HMG_BeginWindowMDIActive := .F.  
     _HMG_ExtendedNavigation   := .T. 
  
  ENDIF 
  
 RETURN aHMG 
 

 
 FUNCTION GetWndMDIChildAll()   // Получить массивом все имена доступных дочерних окон 
 LOCAL i, k, aNames:={} 
  
  k := Len( _HMG_aFormNames ) 
  
  FOR i := 1 TO k 
      IF _HMG_aFormType=='Y' 
         AAdd(aNames, _HMG_aFormNames )  
      ENDIF 
  NEXT 
  
 RETURN aNames 
 

 
 #include "minigui.ch" 
  
 REQUEST DBFCDX, DBFFPT, DBFNTX 
  
 STATIC nWndChild := 0 
  
 *----------------------------------------------------------------------------- 
 FUNCTION MAIN( ... )  
 *----------------------------------------------------------------------------- 
  
  RddSetDefault ("DBFCDX") 
  
  SET CENTURY      ON 
  SET DATE         GERMAN 
  SET DELETED      ON 
  SET EXCLUSIVE    ON 
  SET EPOCH TO     2000 
  SET AUTOPEN      OFF 
  SET EXACT        ON 
  SET SOFTSEEK     ON 
  
  SET BROWSESYNC   ON	 
  
  DEFINE  WINDOW         wMain                       ; 
     AT                  0, 0                        ; 
     WIDTH               800                         ; 
     HEIGHT              500                         ; 
     TITLE               'Test MDI window'           ; 
     MAIN                MDI                         ; 
     ON INIT             MainExecute()               ; 
     ON RELEASE          MainExecute()               ;  
     ON MOUSECLICK       MainExecute()               ; 
     ON INTERACTIVECLOSE MainExecute()               
  
     DEFINE MAIN MENU  
       POPUP 'Test' 
          ITEM 'Child window new' ACTION Wnd_Child() 
          SEPARATOR 
          ITEM 'Exit' ACTION ThisWindow.Release 
       END POPUP 
     END MENU 
  
     DEFINE STATUSBAR   
        STATUSITEM ""             ACTION MainExecute('stb.1') 
        STATUSITEM ""  WIDTH 150  ACTION MainExecute('stb.2') 
        STATUSITEM ""  WIDTH  40  ACTION MainExecute('stb.3')  
        STATUSITEM ""  WIDTH  40  ACTION MainExecute('stb.4')  
        STATUSITEM ""  WIDTH  40  ACTION MainExecute('stb.5')  
     END STATUSBAR 
  
  END WINDOW 
  
  CENTER   WINDOW wMain 
  ACTIVATE WINDOW wMain 
  
 RETURN NIL 
  
 FUNCTION MainExecute( cKey )                  // выполнение в главном окне 
 LOCAL lRet := .T. 
  
  IF     _HMG_ThisEventType == 'WINDOW_INIT'                   // ON INIT             
  ELSEIF _HMG_ThisEventType == 'WINDOW_ONINTERACTIVECLOSE'     // ON INTERACTIVECLOSE 
  ELSEIF _HMG_ThisEventType == 'WINDOW_RELEASE'                // ON RELEASE 
  ELSEIF ! empty(_HMG_ThisControlName) .and. ! empty(cKey)     // StatusBar execute 
     IF 'stb.' $ cKey 
        IF     cKey == 'stb.3' 
           Wnd_Modal()  
        ELSEIF cKey == 'stb.4' 
           Wnd_Modal()  
        ELSEIF cKey == 'stb.5' 
           Wnd_Modal()  
        ENDIF 
        MsgBox('StatusBar press '+right(cKey, 1), 'INFO') 
     ENDIF 
  ENDIF 
  
 RETURN lRet 
  
 FUNCTION Wnd_Child( cName, cTitle )               // Child window 
  
  nWndChild += 1 
  
  DEFAULT cName  := 'MDI_'+'Child_'+hb_ntos(nWndChild),  ; 
          cTitle := cName 
  
  DEFINE WINDOW        &cName                     ; 
     AT                 GetMenuBarHeight(), 0     ; 
     TITLE              cTitle                    ; 
     MDICHILD  FOCUSED                            ; 
     ON INIT            NIL                       ; 
     ON RELEASE         NIL                                       
  
     ThisWindow.Maximize 
  
  END WINDOW 
  
 RETURN 
  
 FUNCTION Wnd_Modal( cTitle )               // Modal window 
 LOCAL aHmg 
  
  DEFAULT cTitle  := 'Modal_'+ThisWindow.Name 
  
  aHmg := Save_Rest_HMG() 
  
  DEFINE WINDOW wModal AT 0,0 WIDTH 400 HEIGHT 300  MODAL  
  
     ThisWindow.Sizable   := .F. 
     ThisWindow.MaxButton := .F. 
     ThisWindow.MinButton := .F. 
     ThisWindow.Title     := cTitle 
     ThisWindow.TitleBar  := .T. 
     ThisWindow.SysMenu   := .T. 
  
  END WINDOW 
  
  CENTER   WINDOW wModal 
  ACTIVATE WINDOW wModal 
  
  Save_Rest_HMG(aHmg) 
  
 RETURN 
  
 FUNCTION Save_Rest_HMG( uHMG )   // save\restore _HMG_... переменные пере MODAL 
 LOCAL aHMG 
  
  IF hb_IsArray(uHMG) 
  
     aHMG := uHMG 
     _HMG_BeginWindowMDIActive := aHMG[ 1] 
     _HMG_ActiveStatusHandle   := aHMG[ 2] 
     _HMG_UserWindowHandle     := aHMG[ 3] 
     _HMG_SetFocusExecuted     := aHMG[ 4] 
     _HMG_ThisFormName         := aHMG[ 5] 
     _HMG_ThisControlName      := aHMG[ 6] 
     _HMG_ActiveFontName       := aHMG[ 7] 
     _HMG_ActiveFontSize       := aHMG[ 8] 
     _HMG_ExtendedNavigation   := aHMG[ 9] 
     _HMG_InplaceParentHandle  := aHMG[10] 
  
  ELSE 
  
     aHMG := array(10) 
  
     aHMG[ 1] := _HMG_BeginWindowMDIActive 
     aHMG[ 2] := _HMG_ActiveStatusHandle 
     aHMG[ 3] := _hmg_UserWindowHandle 
     aHMG[ 4] := _HMG_SetFocusExecuted 
     aHMG[ 5] := _HMG_ThisFormName 
     aHMG[ 6] := _HMG_ThisControlName 
     aHMG[ 7] := _HMG_ActiveFontName 
     aHMG[ 8] := _HMG_ActiveFontSize 
     aHMG[ 9] := _HMG_ExtendedNavigation 
     aHMG[10] := _HMG_InplaceParentHandle 
  
     _HMG_BeginWindowMDIActive := .F.  
     _HMG_ExtendedNavigation   := .T. 
  
  ENDIF 
  
 RETURN aHMG 
 

 
 // BAA 
 HB_FUNC( DRAWMENUBAR ) 
 { 
    DrawMenuBar( ( HWND ) hb_parnl(1) ); 
 } 
  
 // BAA 
 HB_FUNC( GETSUBMENU ) 
 { 
   HMENU hMnu = GetSubMenu( ( HMENU ) hb_parnl(1),  hb_parnl(2)-1 ); 
   
   hb_retnl( ( LONG ) hMnu ); 
  
 } 
  
 // BAA 
 HB_FUNC( MODIFYMENU ) 
 {                                                                                        // | MF_POPUP 
    hb_retnl( ModifyMenu( ( HMENU ) hb_parnl(1), hb_parni(2)-1, MF_BYPOSITION | MF_STRING , hb_parni(3), hb_parc_t(4) ) ); 
 } 
  
 // BAA 
 HB_FUNC( MODIFYMENUID ) 
 {                                                                                        // | MF_POPUP 
    hb_retnl( ModifyMenu( ( HMENU ) hb_parnl(1), hb_parni(2), MF_BYCOMMAND | MF_STRING , hb_parni(3), hb_parc_t(4) ) ); 
 } 
  
 // BAA 
 HB_FUNC( GETMENUITEMID ) 
 { 
   DWORD Id = GetMenuItemID( ( HMENU ) hb_parnl(1),  hb_parnl(2)-1 ); 
   
   hb_retnl( ( LONG ) Id ); 
 } 
  
 // BAA 
 HB_FUNC( ISMENUSEPARATOR  ) 
 { 
    UINT state; 
  
                       //    hMenu                    Pos   
    state = GetMenuState( ( HMENU ) hb_parnl(1), hb_parni(2)-1, MF_BYPOSITION ); 
  
    if( state != 0xFFFFFFFF ) 
       hb_retl( ( state & MF_SEPARATOR ) ? TRUE : FALSE ); 
    else 
       hb_retl( FALSE ); 
 } 
  
 // BAA 
 HB_FUNC( ISMENUPOPUP  ) 
 { 
    UINT state; 
  
                       //    hMenu                    Pos   
    state = GetMenuState( ( HMENU ) hb_parnl(1), hb_parni(2)-1, MF_BYPOSITION ); 
  
    if( state != 0xFFFFFFFF ) 
       hb_retl( ( state & MF_POPUP ) ? TRUE : FALSE ); 
    else 
       hb_retl( FALSE ); 
 } 
  
  
 // BAA 
 HB_FUNC( ISMENUSEPARATORID  ) 
 { 
    UINT state; 
  
                       //    hMenu                    Id   
    state = GetMenuState( ( HMENU ) hb_parnl(1), hb_parni(2), MF_BYCOMMAND ); 
  
    if( state != 0xFFFFFFFF ) 
       hb_retl( ( state & MF_SEPARATOR ) ? TRUE : FALSE ); 
    else 
       hb_retl( FALSE ); 
 } 
  
 // BAA 
 HB_FUNC( SETMENUDEFAULTITEM ) 
 { 
   BOOL Ret = SetMenuDefaultItem( ( HMENU ) hb_parnl(1),  ( UINT ) hb_parnl(2), FALSE ); 
   
   hb_retl( Ret ); 
 } 
  
  
 // BAA 
 HB_FUNC( SETPARENT ) 
 { 
   SetParent( ( HWND ) hb_parnl(1),  ( HWND ) hb_parnl(2)  ); 
 } 
  
 // BAA 
 HB_FUNC( GETPARENT ) 
 { 
   hb_retnl( ( LONG ) GetParent( ( HWND ) hb_parnl(1) )  ); 
 } 
 

 
  
 hMenu := GetMenu( hWnd ) 
  
 k := GetMenuItemCount( hMenu ) 
  
 IsMenuPopUp( hMenu, i) 
  
 hSubMenu := GetSubMenu( hMenu, i) 
  
 IsMenuSeparator( hMenu, i) 
  
 ModifyMenu( hMenu, i, hSubMenu, "......"  ) 
  
 ModifyMenuItem( hMenu, Id, Id, " ..... " ) 
  
 DrawMenuBar( hWnd ) 
 

 
 #include "minigui.ch" 
  
 Func MY_IsExeRunning(par1,par2) 
 Local aChild,nI,hWnd,Hch 
  
     IF IsExeRunning( par1) 
         hWnd := FindWindow(par2) 
  
 	IF hWnd > 0 
  
         aChild := {} 
         EnumChildWindows( hWnd, { |hChild| AADD( aChild,  hChild ), .T. }, 0 )  
  
          if len(aChild)#0    
  
 Hch:=aChild[len(aChild)]            
  
 		IF IsIconic( Hch ) 
 			_Restore( Hch ) 
 		ELSE 
 			SetForeGroundWindow( Hch ) 
 		ENDIF 
  
          endif 
          
  
 	ENDIF 
 Quit 
     ENDIF 
  
 return nil     
 ************************ 
 #pragma BEGINDUMP 
  
 #include <windows.h> 
 #include "hbapi.h" 
 #include <hbapiitm.h> 
  
  
 ////////////////////////////////////////////////////////////// 
 // http://forums.fivetechsupport.com/viewtopic.php?p=57503 
  
 void hb_evalBlock( PHB_ITEM pCodeBlock, ... ); 
  
 static PHB_ITEM pCodeBlock = NULL; 
  
 BOOL CALLBACK static EnumChildProc( HWND hWnd, LPARAM lParam ) 
 { 
     PHB_ITEM pHWnd  = hb_itemPutNL( NULL, ( LONG ) hWnd ); 
     PHB_ITEM pParam = hb_itemPutNL( NULL, ( LONG ) lParam ); 
      
     if( pCodeBlock ) 
       hb_evalBlock( pCodeBlock, pHWnd, pParam, 0 ); 
        
    hb_itemRelease( pHWnd ); 
    hb_itemRelease( pParam );    
        
    return hb_parl( -1 );       
 }    
  
 HB_FUNC( ENUMCHILDWINDOWS ) 
 { 
    HWND hWnd = ( HWND ) hb_parnl( 1 ); 
    LPARAM lParam = ( LPARAM ) hb_parnl( 3 ); 
     
    pCodeBlock = hb_param( 2, HB_IT_BLOCK ); 
    hb_retl( EnumChildWindows( hWnd, EnumChildProc, lParam ) ); 
    pCodeBlock = NULL; 
 }    
  
  
 #pragma ENDDUMP 
  
 

 
  
 #include "minigui.ch" 
  
 Function Main() 
 Private n:=1 
  
    DEFINE WINDOW Form_1 ; 
       AT 0,0 ; 
       WIDTH 800 ; 
       HEIGHT 600 ; 
       MAIN; 
       TITLE 'MY WINDOW' ; 
       NOSIZE 
  
      DEFINE BUTTONEX Button_1 
             ROW    20 
             COL    70 
             WIDTH  110 
             HEIGHT 30 
             CAPTION "Change With SB"  
             ACTION {|| TestSB()} 
      END BUTTONEX   
  
       
       DEFINE STATUSBAR OF Form_1  
           STATUSITEM "Status-1" FONTCOLOR BLACK   
           STATUSITEM "Status-2" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-3" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-4" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-5" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-6" WIDTH 100 FONTCOLOR BLACK   
        
       END STATUSBAR 
       
        
    END WINDOW 
  
    CENTER WINDOW Form_1 
  
    ACTIVATE WINDOW Form_1 
  
 Return Nil 
 ************************* 
 FUNC MySetSb( cFormName,cControlName,nWidth,nitem,aProperty ) 
 LOCAL h, i ,j 
 Local ParentHandle:=GetControlHandle ( cControlName ,cFormName ) 
  
 hb_default(@nWidth,GetProperty( cFormName, cControlName,"Width",nitem)) 
 hb_default(@nitem,1) 
     
    if ParentHandle==0 
 return nil 
    endif     
  
 SetProperty( cFormName, cControlName,"Width",nitem,nWidth )  // ширину получилось сменить только так 
     
   FOR EACH h In _HMG_aControlContainerHandle 
 i := h:__enumIndex() 
    
     IF _HMG_aControlType [ i ] == "ITEMMESSAGE" .AND. h == ParentHandle 
              if i==nitem+2 
      for each j in aProperty 
 j[1]:=j[2] 
      next 
              endif 
     ENDIF 
   NEXT 
 InvalidateRect( _HMG_MainHandle, 0 ) // в принципе не нужна строка так как всегда срабатывает  
                                 // SetProperty( cFormName, cControlName,"Width",nitem,nWidth ) 
 RETURN Nil 
 ****************** 
 Func TestSb() 
   if n==1 
 n:=2   
 MysetSb("Form_1", "StatusBar",200,2,; 
                 {{_HMG_aControlCaption,"111"},; 
                  {_HMG_aControlBkColor,nRGB2Arr(RGB( 255,255,159))},;  
                  {_HMG_aControlSpacing,1},; 
                  {_HMG_aControlFontColor,BLACK}}) 
 InkeyGUI(500)                 
  
 MysetSb("Form_1", "StatusBar",,1,; 
                 {{_HMG_aControlCaption,"222"},; 
                  {_HMG_aControlBkColor,nRGB2Arr(RGB( 155,255,159))},;  
                  {_HMG_aControlSpacing,1},; 
                  {_HMG_aControlFontColor,RED}}) 
  
 InkeyGUI(500)                 
  
 MysetSb("Form_1", "StatusBar",,5,; 
                  {{_HMG_aControlBkColor,nRGB2Arr(RGB( 155,155,159))},;  
                   {_HMG_aControlFontColor,RED}}) 
  
 InkeyGUI(500)                 
  elseif n==2 
 n:=1                  
 MysetSb("Form_1", "StatusBar",Form_1.Width,1,; 
                 {{_HMG_aControlCaption,"Hello WORD ;)"},; 
                  {_HMG_aControlBkColor,nRGB2Arr(RGB( 255,255,159))},;  
                  {_HMG_aControlSpacing,1},; 
                  {_HMG_aControlFontColor,BLACK}}) 
  
  
   endif 
 return nil