[NonVCL] PopupMenü - Einem Eintrag eine Bitmap hinzufügen

[Daniel G]

Tach auch ,

irgendwie stehe ich gerade auf dem Schlauch:

Mein Programm sitzt in der TNA und besitzt dort ein Popup - Menü. Jetzt möchte ich den Einträgen in diesem Menü Bitmaps zuweisen, aber irgendwie funktioniert das nicht so recht. Hier mal mein Code:

Delphi-Quellcode:

var
  Bmp: HBITMAP;
begin
Bmp := LoadImage(hInstance, MAKEINTRESOURCE(223), IMAGE_BITMAP, 0, 0,LR_LOADTRANSPARENT);

MenuItemInfo.cbSize := SizeOf(TMenuItemInfo);
MenuItemInfo.hbmpItem := Bmp;
MenuItemInfo.fMask := MIIM_BITMAP;
            
// Neue Menüinformationsstruktur setzen
SetMenuItemInfo(hm, IDM_SHOW, False, MenuItemInfo);
end;

Tja, und das Resultat findet ihr im Anhang.

Mich würde jetzt interessieren:

• Warum sieht das Bitmap so komisch aus, wenn der Eintrag markiert ist?
• Wie bekomme ich das Bitmap weiter nach links?
• Ist es möglich, auch Icons zu laden? Irgendwie klappt das mit der Transparenz ja nicht wirklich...

[Luckie]

Bis Windows 2000 hat der Explorer im Kontextmnü die Bitmaps im Kontextmenü auch invertiert dargestellt, wenn der Menüpunkt ausgewählt wurde. Da hilft wohl nur das Menü selber zuzeichnen. Das hat mich nämlich auch schon zur Verzweifelung getrieben.

[Daniel G]

Zitat von Luckie:

Bis Windows 2000 hat der Explorer im Kontextmnü die Bitmaps im Kontextmenü auch invertiert dargestellt, wenn der Menüpunkt ausgewählt wurde. Da hilft wohl nur das Menü selber zuzeichnen. Das hat mich nämlich auch schon zur Verzweifelung getrieben.

Hrmpf.... großartig, das wird ne lange Nacht.... Danke für die Info.

Mal sehen, vllt. werde ich in den D5 Sourcen fündig...