CreateImageMenu PB 4.20 Bêta 2

[nico]

C'est sympa que l'équipe commence à se pencher sur les menus ownerdraw, mais on fait comment avec cette commande pour mettre une icône à coté de l'item?

SetMenuItemBitmaps ne fonctionnant plus pour mettre une image, c'est quoi l'astuce?

Par contre le contour du cadre en noir, c'est moyen!!

[comtois]

l'exemple ne convient pas ? ou je n'ai pas compris la question ?

Code : Tout sélectionner

If OpenWindow(0, 100, 100, 300, 300, "PureBasic Office Menus")
    
  LoadImage(0, "c:\pb.ico")
  
  If CreateImageMenu(0, WindowID(0))
    MenuTitle("File")
    MenuItem( 1, "Open...", ImageID(0))
    MenuItem( 2, "Save"+Chr(10)+"Ctrl+S")
    MenuItem( 3, "Close", ImageID(0))
    MenuBar()
    MenuItem( 4, "Quit")
    
    DisableMenuItem(0, 3, 1) 
  EndIf
  
  Repeat 
    Select WaitWindowEvent() 
      Case #PB_Event_Menu 
        Debug EventMenu()
          
      Case #PB_Event_CloseWindow
        Break ; Quit the forever loop
        
    EndSelect
  ForEver
EndIf 

[nico]

J'ai pas regardé l'exemple

J'ai pas vu dans la statusbar que MenuItem avait un troisième paramètre, je ne peux plus le vérifier je suis revenu à la version stable.


Sinon on peut choisir les couleurs ?