?
Solved

Display menu-bitmaps with 16 or more colors

Posted on 1998-09-06
3
Medium Priority
?
232 Views
Last Modified: 2010-05-18
The question is simple: How do you display menu bitmaps with 16 or more colors. I want to have both a bitmap and a text, and I want to be able to display bitmaps with a size of 16x16. I know that the size can be different on different computers, but programs like ICQ, MS Word and more have done it, so why can't I?
0
Comment
Question by:boivie
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 5

Accepted Solution

by:
ronit051397 earned 450 total points
ID: 1338765
From Chami's Tips (http://www.chami.com/tips/delphi/010597D.html):

Have you been envious of the Windows 95 Start Menu, because of the way it's able to display bitmaps on its menu items? Well, it's not too hard to add small bitmaps to your menu items by using the following function:

              procedure AddBitmapToMenuItem(
                PopupMenu : TPopupMenu;
                nItemPos  : integer;
                Bitmap    : TBitmap );
              begin
                SetMenuItemBitmaps(
                  PopupMenu.Handle,
                  nItemPos,
                  MF_BYPOSITION,
                  Bitmap.Handle,
                  Bitmap.Handle );
              end;

The Windows API function "SetMenuItemBitmaps()" is mostly used to set bitmaps for
"checkable" menu items -- menu items with two bitmaps for checked and unchecked
states. To keep the "AddBitmapToMenuItem()" function simple, we're not changing
menu item's size according to the size of the bitmap. This means, you can only pass
bitmaps that are small enough to fit in the default size of your menu items.

To keep the bitmaps for your menu items built into your application:

Drop a "TImage" component on your form.
Assign a bitmap of your choice to the "Picture" property of the newly created "TImage" component.
Call "AddBitmapToMenuItem()" function as follows from your "FormCreate()"
event (assuming that the pop-up menu that you're assigning the bitmap to is named "PopupMenu1," the image component you're using is named "Image1,"
and the position of the actual menu item you want to set the bitmap on is 0 --
                   1st item = 0, 2nd item = 1, 3rd item = 2, etc.):

                   AddBitmapToMenuItem(
                     PopupMenu1,
                     0,
                     Image1.Picture.Bitmap );

              To load the menu item bitmaps at the run-time:

                   procedure TForm1.
                     FormCreate(Sender: TObject);
                   var
                     BMP : TBitmap;
                   begin
                     BMP := TBitmap.Create;
                     BMP.LoadFromFile(
                       'MyBitmap.BMP' );
                     AddBitmapToMenuItem(
                       PopupMenu1, 0, BMP );
                   end;
               
0
 

Author Comment

by:boivie
ID: 1338766
Thanks for the answer, but I'm still having two problems: 1: All colors of the bitmap (16 colors) don't work and 2: The size is different on different computers. The bimaps' size is 16x16 but a few computers only display the top-left 10x10. Do you know how to fix this too?
0
 
LVL 5

Expert Comment

by:ronit051397
ID: 1338767
Download the RX Components, they have a component with source:
http://rx.demo.ru/files/index.html


0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
How to fix incompatible JVM issue while installing Eclipse While installing Eclipse in windows, got one error like above and unable to proceed with the installation. This video describes how to successfully install Eclipse. How to solve incompa…
Suggested Courses
Course of the Month11 days, 18 hours left to enroll

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question