PureBasic

Code : Tout sélectionner

; constantes 
#index                   =  0
#Fenetre_principale      = 1;#index  : #index = #index + 1
#MonImage                = 2;#index  : #index = #index + 1
#MonImageCocher          = 3;#index  : #index = #index + 1
#MENU_Copier             = 4;#index  : #index = #index + 1
#MENU_Coller             = 5;#index  : #index = #index + 1
#MENU_Cocher             = 6;#index  : #index = #index + 1
#MENU_DeCocher           = 7;#index  : #index = #index + 1
#Menu                    = 8;#index  : #index = #index + 1

#MF_BYCOMMAND            = 0
#MF_BYPOSITION           = $400
#SM_CXMENUCHECK          = 71
#SM_CYMENUCHECK          = 72



; Variable globale
Global MenuIdentificateurWIndows.l

;;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
;;\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Procedure AfficheIconeMenu(WIndowsMenuID,MenuId.l, ImageNormale.l, ImageCocher.l)

; WIndowsMenuID est le Handle du menu c'est à dire le numéro attribué par Windows au menu crée
; on récupère ce Handle lorsque l'on crée le menu;
; j'ai utilisé ceci : MenuIdentificateurWIndows = CreateMenu(#Menu, WindowID(#Fenetre_principale)) 

; MenuId est l'identificateur statique de l'élément du menu ou l'on veut afficher l'image
; pour cet exemple #MENU_Copier

; ImageNormale est l'image qui s'affichera en mode non coché (car on peut cocher un menu
; soit avec un espèce de v ou avec un petit rond plein ou dans le cas d'un menu avec une
; imagge, l'image en mode cochée sera différente de celle en mode non coché

;  ImageCocher est l'image qui s'affichera en coché 

  SetMenuItemBitmaps_(WIndowsMenuID,MenuId, #MF_BYCOMMAND, ImageNormale, ImageCocher)

EndProcedure 

;;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
;;\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/


If OpenWindow(#Fenetre_principale,100,100,500,300,#PB_Window_SystemMenu," Essai de Menus avec images")

   ;  creation d'un menu

;; -------------------- menu Fichier --------------------------

; récupère le Handle du Menu
MenuIdentificateurWIndows = CreateMenu(#Menu, WindowID(#Fenetre_principale))  

; teste que la création du menu a réussi, c'est-à-dire que createmenu retourne 0 si le menu
; n'a pas pu être crée
  If MenuIdentificateurWIndows 
  MenuTitle("Fichier")
    MenuItem(#MENU_Copier, "Copier")
    MenuItem(#MENU_Coller, "Coller")
    MenuBar()
    MenuItem(#MENU_Cocher, "Cocher le menu Copier avec l'image correspondante")
    MenuBar()
    MenuItem(#MENU_DeCocher, "Décocher le menu Copier avec l'image correspondante")

;; ------------------------------------------------------------
EndIf 

; on charge les images qui vont s'afficher à coté du menu copier en mode coché/décoché
       Resultat.l  = LoadImage(#MonImage      , "C:\Program Files\Purebasic\Forum francais\B05_Cut.bmp")
       Resultat2.l = LoadImage(#MonImageCocher, "C:\Program Files\Purebasic\Forum francais\B08_Delete.bmp")
    
         ; teste d'abord si les images ont bien été chargées
      If resultat And Resultat2

;        on récupère la taille max en X et en Y que l'on pourra afficher dans le menu
;        sur mon ordi j'avais une image max de 13 pixels par 13 pixels
;        on utilise l'API GetSystemMetrics avec le paramètre #SM_CXMENUCHECK et SM_CYMENUCHECK
;        pour y arriver

         TailleX.l = GetSystemMetrics_(#SM_CXMENUCHECK)

         TailleY.l = GetSystemMetrics_(#SM_CYMENUCHECK)
         
;        teste que les valeurs ne sont pas nulles car on va redimensionner l'image pour 
;        qu'elle ait la taille correcte

         If TailleX And TailleY   

         EndIf    
;         ici on appelle la procédure qui va cocher le menu copier {AfficheIconeMenu()]
         AfficheIconeMenu(MenuIdentificateurWIndows,#MENU_Copier,UseImage(#MonImage) ,UseImage(#MonImageCocher))
      EndIf     


EndIf



;;  Boucle d'évènement de PB

  Repeat 

     Select WaitWindowEvent()

       Case #PB_EventCloseWindow   ; teste si la croix en haut à droite a été enfoncée
         QuitterLeProg = 1          ; si oui on quitte

       Case  #PB_Event_Menu         ; on récupère les événement générés par les menus
             Select EventGadgetID()
                Case #MENU_Cocher   ; si l'utilisateur a sélectionné le menu cocher l'image ...
                                     ; alors on affiche l'image en mode coché
                SetMenuItemState(#MENU, #MENU_Copier, 1) 

                Case #MENU_DeCocher   ; si l'utilisateur a sélectionné le menu décocher l'image ...
                                      ; alors on affiche l'image en mode decoché
                SetMenuItemState(#MENU, #MENU_Copier, 0) 
             EndSelect

     EndSelect   
  Until QuitterLeProg 

End