FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oMenu

    MENU oMenu 2007
        MENUITEM "Window"

        MENU
            MENUITEM "Test"
        ENDMENU
    ENDMENU

    DEFINE WINDOW oWnd MDI;
           TITLE "MDI Test";
           MENU oMenu;
           MENUINFO 1

    ACTIVATE WINDOW oWnd;
             ON INIT CREATECHILD( oWnd )

    RETURN NIL


STATIC FUNCTION CREATECHILD( oMdi )

    LOCAL oWnd, oMenu

    MENU oMenu 2007
        MENUITEM "Window"

        MENU
            MENUITEM "Test"
        ENDMENU
    ENDMENU

    DEFINE WINDOW oWnd MDICHILD OF oMdi;
           TITLE "MDI Child Test";
           MENU oMenu

    ACTIVATE WINDOW oWnd;
             VALID !GETKEYSTATE( VK_ESCAPE )

    RETURN NIL

HB_FUNC( MITEMSFW )
 // hMenu, nIni, aHBmps, lSys
{
   .../...

   MENUITEMINFO mi;

   for( w = nIni; w < GetMenuItemCount( hMenu ); w++ )
   {
      memset( ( char * ) &mi, 0, sizeof( MENUITEMINFO ) );
      mi.cbSize = sizeof( MENUITEMINFO );
      if ( bSys )
         mi.fMask  = MIIM_TYPE;
      else
         mi.fMask  = MIIM_FTYPE;
      GetMenuItemInfo( hMenu, w, TRUE, &mi );

      if( ( mi.fType & MFT_OWNERDRAW ) != MFT_OWNERDRAW )
      {
         mi.cbSize = sizeof( MENUITEMINFO );
         mi.fMask  |= MIIM_DATA | MIIM_BITMAP ;
         mi.fType  |= MFT_OWNERDRAW ;
         mi.dwItemData = ( ULONG_PTR ) hMenu;
         SetMenuItemInfo( hMenu, w, TRUE, &mi );
      }
   }
}