Icons in Untermenüs darstellen

[Klaus_1963]

Habe wieder mal ein Problemchen:

Damit die Programme auch schön aussehen, möchte ich die Untermenüs mit süssen Icons ausstatten. Nun sollte der folgende Code meiner Meinung nach funktionieren, tut er aber nicht. Habe den Quelltext mit PureForms erzeugt. Da kann man ja alles wunderschön und schnell einstellen. Die Bitmaps habe ich mit PhotoImpact X3 erzeugt und zwar mit 16x16 Pixel. Sollte doch gehen, oder???? Der Pfad stimmt auch...

Hilfäääää...

Hier der Code:

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration
;}
;{ Menu bars
Enumeration
  #Menu_Window_0
EndEnumeration
;}
;{ Menu/Toolbar items
Enumeration
  #Menu_Window_0_Ffnen
EndEnumeration
;}
;{ Images
Enumeration
  #MenuImage_Menu_Window_0_Ffnen
EndEnumeration
;}
;{ Included Images
DataSection
  MenuImage_Menu_Window_0_Ffnen: IncludeBinary "C:\Users\Klaus\Documents\PureBasic\Icons\Datei.bmp"
EndDataSection
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 437, 49, 395, 420, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateImageMenu(#Menu_Window_0, WindowID(#Window_0), #PB_Menu_ModernLook)
      MenuTitle("Datei")
      MenuItem(#Menu_Window_0_Ffnen, "Offnen", CatchImage(#MenuImage_Menu_Window_0_Ffnen, ?MenuImage_Menu_Window_0_Ffnen))
      AddKeyboardShortcut(#Window_0, #PB_Shortcut_Alt | #PB_Shortcut_O, #Menu_Window_0_Ffnen)
    EndIf
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
    ; /////////////////
    Case #PB_Event_Menu
      EventMenu = EventMenu()
      If EventMenu = #Menu_Window_0_Ffnen
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver

[alter Mann]

ImageID(CatchImage(....)) sollte helfen

[Klaus_1963]

Hm, so einfach geht's wohl nicht. Zumindest nicht bei mir...

[Kurzer]

Deine bmp Datei muß eine .ico Datei sein.
Habe es gerade mit Deinem code getestet, geht mit ico.

[Klaus_1963]

Bingo: das ist die Lösung!! Fies nur, dass PureForm .bmp da zulässt...

Vielen Dank und Grüsse Klaus

[Kurzer]

jo, kein Ding.

[Vermilion]

Kleine Information am Rande: In PureBasic 4.40 (aktuell ist schon die Beta 1 erschienen) werden laut diesem Post im PureBasic Blog auch PNGs mit Alpha Kanal als Menu Item Icons unterstützt (vielleicht auch Bitmaps, aber da jenes Format in seiner am verbreitetsten Version keinen Alpha Kanal unterstützt, ist dies eher unwahrscheinlich).