win32lib extrra
- Posted by jordah ferguson <jorfergie03 at yahoo.com> Jun 07, 2002
- 421 views
--0-824601938-1023447675=:30978 Hi Derek, Would it be possible to add this to the next win32lib. They are extensions to win32libs menu capabilities. Just spice them into win32lib language. constant zSetMenuItemInfo=registerw32Function(user32,"SetMenuItemInfoA",{C_LONG, C_UINT, C_SHORT, C_POINTER}, C_USHORT) global procedure setMenuBitmap(integer menuitem,object bitmap) integer bool atom MENUITEMINFO MENUITEMINFO = acquire_mem(0,48)--SIZE_OFMENUITEMINFO mem_set(MENUITEMINFO,0,48) if sequence(bitmap) then bitmap = loadBitmapFromFile(bitmap) end if poke4(MENUITEMINFO+0,48) poke4(MENUITEMINFO+4,#80) --MIIM_BITMAP poke4(MENUITEMINFO+44,bitmap) bool = w32Func(zSetMenuItemInfo,{getHandle(menuitem),menuitem,0,MENUITEMINFO}) if bool = NULL then warnErr("setMenuBitmap Failed()") end if bool = w32Func(xDrawMenuBar,{getHandle(menuitem)}) release_mem(MENUITEMINFO) end procedure Jordah Ferguson jorfergie03 at yahoo.com --------------------------------- Do You Yahoo!? Sign-up for Video Highlights of 2002 FIFA World Cup --0-824601938-1023447675=:30978 Content-Type: text/html; charset=us-ascii <P>Hi Derek,</P> <P>Would it be possible to add this to the next win32lib. They are extensions to <BR>win32libs menu capabilities. Just spice them into win32lib language.</P> <P>constant <BR>zSetMenuItemInfo=registerw32Function(user32,"SetMenuItemInfoA",{C_LONG, C_UINT, C_SHORT, C_POINTER}, C_USHORT)</P> <P>global procedure setMenuBitmap(integer menuitem,object bitmap)<BR>integer bool<BR>atom MENUITEMINFO <BR>MENUITEMINFO = acquire_mem(0,48)--SIZE_OFMENUITEMINFO <BR>mem_set(MENUITEMINFO,0,48)<BR>if sequence(bitmap) then<BR>bitmap = loadBitmapFromFile(bitmap)<BR>end if<BR>poke4(MENUITEMINFO+0,48)<BR>poke4(MENUITEMINFO+4,#80) --MIIM_BITMAP<BR>poke4(MENUITEMINFO+44,bitmap)<BR>bool = w32Func(zSetMenuItemInfo,{getHandle(menuitem),menuitem,0,MENUITEMINFO})<BR>if bool = NULL then<BR>warnErr("setMenuBitmap Failed()")<BR>end if<BR>bool = w32Func(xDrawMenuBar,{getHandle(menuitem)}) <BR>release_mem(MENUITEMINFO)<BR>end procedure </P> <P>Jordah Ferguson<BR><A href="mailto:jorfergie03 at yahoo.com">jorfergie03 at yahoo.com</A></P><p><br><hr size=1><b>Do You Yahoo!?</b><br> <a href="http://rd.yahoo.com/welcome/*http://fifaworldcup.yahoo.com/fc/en/spl">Sign-up for Video Highlights</a> of 2002 FIFA World Cup --0-824601938-1023447675=:30978--