PureBasic

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!!

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

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 ?

PureBasic

CreateImageMenu PB 4.20 Bêta 2

CreateImageMenu PB 4.20 Bêta 2