Solved

Display menu-bitmaps with 16 or more colors

Posted on 1998-09-06
3
227 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
  • 2
3 Comments
 
LVL 5

Accepted Solution

by:
ronit051397 earned 150 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

Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Can Viruses spread while transferring Binary data with Winsock 2 89
Delphi 2 69
How to debug For loops? 3 57
How to build JSON File in Delphi 6 3 45
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
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…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

829 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