[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...