[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    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

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]