*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
*/*/*Desarrollado por Dofo
*/*/* HCdofo@hotmail.com
*/*/* HCdofo@yahoo.es
*/*/* Huancayo - Peru
*/*/* Adolfo Huaman Capani
*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
LOCAL HWND, HMenu, HSubMenu, MenuBarID, lcImage, lbImage
****
* Get a handle on the Window and it's menu:
DECLARE INTEGER FindWindow IN win32api STRING,STRING
DECLARE INTEGER GetMenu IN win32api INTEGER
DECLARE INTEGER GetSubMenu IN win32api INTEGER,INTEGER
DECLARE INTEGER GetMenuItemID IN win32api INTEGER,INTEGER
HWnd = findwindow( 0, THISFORM.Caption )
HMenu = getmenu( m.HWND )
HSubMenu = getsubmenu( m.mhandle, 0 ) && First submenu
MenuBarID = getmenuitemid( m.HSubMenu, 0 ) && First menu item
****
* Load the Bitmap so we can use it
DECLARE INTEGER LoadImage IN win32api INTEGER, STRING, INTEGER, INTEGER, INTEGER, INTEGER
lcImage = Set("DEFAULT")+CURDIR()+"Bitmap.Bmp"
lbImage = Loadimage( 0, m.lcImage, 0, 13, 13, 32768+16+2 )
****
* Make adjustments to the menu
DECLARE INTEGER SetMenuItemBitmaps IN win32api INTEGER, INTEGER, INTEGER, INTEGER, INTEGER
DECLARE INTEGER ModifyMenu IN win32api INTEGER, INTEGER, INTEGER, INTEGER, STRING
setmenuitembitmaps( m.HSubMenu, m.MenuBarID, 0, m.lbImage, m.lbImage )
* Set the caption on the menu item, too:
modifymenu( m.HSubMenu, m.MenuBarID, 0, m.MenuBarID, "&Nuevo F2" )
