#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 )