On Friday, September 24, 2004, at 06:57  PM, Brian Heibert wrote:

> Some applications like Norton Utilities, iChat & StuffIt have menus 
> with
> icons in the title instead of text -- I know these menus are in the 
> Finder
>
> What I am wandering is can my FB app have a menu with a icon in the 
> title
> Instead of text?  I am using Menu Resources for my menus but if I need 
> to
> Build the menu in code that's fine too.  I figured out how to put 
> icons in
> my menu items using PG -- Is there a similar solution?
>
> Brian

You can use CICN's, or SICN's.

SICN's are simple enough, but are limited to black and white.  You'll 
need to have them in your app's resfile.

CICN's can be done much the same way, and are more colorific.

rc

Local Fn Add_SICN_ToMenu( menuID , itemID, sicnResID) // ints
dim as MenuRef menuRef
dim as handle  @sicnH
dim as OSErr   err

menuRef = fn GetMenuHandle ( menuID )
long if ( menuRef )
sicnH = fn Get1Resource(_"SICN", sicnResID )
long if ( sicnH )
err = fn SetMenuItemIconHandle ( menuRef, itemID ,_kMenuSmallIconType, 
#sicnH )
end if
end if
End Fn