From: kclaeys@innet.be (Kurt Claeys)
Subject: Re: [delphi] How do I add a bitmap to a MENU ...
Date: Tue, 20 Jun 1995 23:40:14 +0200

>	How do I add bitmaps to a menu?

Maybe like this :

var
   Bmp1 : TPicture;

...

Bmp1 := TPicture.Create;
Bmp1.LoadFromFile('c:\where\b1.BMP');
SetMenuItemBitmaps(	MenuItemTest.Handle,
			0,
			MF_BYPOSITION,
			Bmp1.Bitmap.Handle,
			Bmp1.Bitmap.Handle);
...

Create a Picture.
Load a .BMP from somewhere into the picture.
Use the SetMenuItemBitmaps API call to connect the Picture to the Menu with
these
parameters :
- MenuItemTest is the name given to the horizontal Menuitem
- 0,1 ...   is the position of the item on which you want to place the
bitmap. (start counting 	
with 0)
- The first of the two bitmap-handles is the one for the bitmap displayed
for the unchecked
menuitem.
- The second is the one for the checked menuitem. These can be the same or not.

All this can by coded in the .Create of a form.

Result : It works, but only the right-top of the bitmap is displayed. Rest
us to change the height and/or width of the menuitem according to the bitmap
(Who helps ?)
                                                                            
Qrt.......
    __ 
   (   )
    ~\RT !  :-%
  --------------------------------------------------------------------------
------------------------------------------------------------------------
