FiveTech Support Forums

#include <windows.h>
#include "hbapi.h"
#include "hbapiitm.h"

#define HB_PARNL( n, x )   hb_parnl( n, x )
#define HB_ISLOG( n )      ISLOG( n )


static BOOL newStyle = TRUE;

typedef struct _MYMENUITEM
{
   UINT uiID;
   LPSTR caption;
   UINT cch;
   HBITMAP hBitmap;
   HFONT hFont;
   UINT uiItemType;
} MYMENUITEM;



HB_FUNC( MENUITEM_SETFONT )
{
   if( newStyle )
   {
      MENUITEMINFO MenuItemInfo;
      MYMENUITEM * pmyMenuItem;

      MenuItemInfo.cbSize = sizeof( MENUITEMINFO );
      MenuItemInfo.fMask = MIIM_DATA;
      GetMenuItemInfo( ( HMENU ) hb_parnl( 1 ), hb_parni( 2 ), FALSE, &MenuItemInfo );

      pmyMenuItem = ( MYMENUITEM * ) MenuItemInfo.dwItemData;

      if( GetObjectType( ( HGDIOBJ ) hb_parnl( 3 ) ) == OBJ_FONT )
      {
         if( pmyMenuItem->hFont != NULL )
            DeleteObject( pmyMenuItem->hFont );

         pmyMenuItem->hFont = ( HFONT ) hb_parnl( 3 );
      }
   }
}