PureBasic

Code : Tout sélectionner

Quand un événement intervient sur une icone de la zone SysTray, l'événement #PB_Event_SysTray est renvoyé. EventGadgetID() peut alors être utilisé pour connaître l'icone cliquée. La fonctions EventType() est également mise à jour par cette fonction. 

Code : Tout sélectionner

;- Constantes fenêtres , Window Constant 
Enumeration 
  #Win_Main 
EndEnumeration 

;-Constantes diverses , Miscellaneous Constant 
Enumeration 
  #SysIcon 
  #Sytray 
  #PopUp 
EndEnumeration 

;- *********** Extraction de l'icône ************** 
;-************    Icon Extraction    ************** 

;- 
Procedure GetIcone(WinHandle) 
  hInstance = GetWindowLong_(WinHandle,#GWL_HINSTANCE) 
  app.s = Space(255) 
  GetModuleFileName_(0,@app,255) 
  ProcedureReturn ExtractIcon_(hInstance, app, 0) 
EndProcedure 

;- ************************************************ 

Procedure Minimize(Flag.b) 
  If Flag = 1 
    DisableMenuItem(1,1)          ; Désactive le menu 1 , Disable menu 1 
    DisableMenuItem(2,0)          ; Active le menu 2    , Enable menu 2 
    HideWindow(#Win_Main, 1)      ; Réduit la fenêtre   , Minimize window 
  Else 
    DisableMenuItem(1,0)          ; Active le menu 1    , Enable menu 1 
    DisableMenuItem(2,1)          ; Désactive le menu 2 , Disable menu 2 
    HideWindow(#Win_Main, 0)      ; Affiche la fenêtre  , Display the window 
  EndIf 
EndProcedure 

;- Ouverture de la fenêtre, et création des menus et du SysTray 
;- Opening of the window, and creation of the menu and SysTray 
hwnd = OpenWindow(#Win_Main, 300, 300, 100, 100,  #PB_Window_SystemMenu | #PB_Window_Invisible , "SysTray-Test") 

hIconSysTray = GetIcone(hwnd) 

AddSysTrayIcon(#Sytray,hwnd,hIconSysTray)  ; Ajoute l'icône dans le SysTray , Add the icon on the SysTray 
CreatePopupMenu(#PopUp)                    ; Crée un menu Pop-Up            , CreatePopUp menu 
MenuItem(1,"Mettre en icône...")           ; Ajout des menus                , add items 
MenuItem(2,"Afficher...") 
MenuBar() 
MenuItem(3,"Quitter") 

DisableMenuItem(1,1)                       ; Menu inactif,    Item disabled 
DisableMenuItem(2,0)                       ; Menu actif       Item enabled 

;- Début de la boucle 
;- Starting the loop 
Repeat 
  
  Select WaitWindowEvent() 
    Case #PB_Event_SysTray 
      Select EventType() 
        Case #PB_EventType_RightClick         ; Un click droit affiche le menu  , Right click display menu        
          DisplayPopupMenu(#PopUp, hwnd) 
      EndSelect 
      
    Case #PB_EventMenu 
      Select EventMenuID() 
        
        Case 1 : Minimize(1)                  
        Case 2 : Minimize(0)                  
          
        Case 3 : Quit = 1 : End 
      EndSelect 
      
    Case #PB_EventGadget 
      Select EventGadgetID() 
      EndSelect 
    Case #PB_EventCloseWindow : Minimize(1)    
  EndSelect 
Until Quit = 1 
End 

Code : Tout sélectionner

; mis en V4.10 par Dobro

;- Constantes fenêtres , Window Constant
Enumeration
    #Win_Main
EndEnumeration

;-Constantes diverses , Miscellaneous Constant
Enumeration
    #SysIcon
    #Sytray
    #PopUp
EndEnumeration

;- *********** Extraction de l'icône **************
;-************    Icon Extraction    **************

;-
Procedure GetIcone(WinHandle)
    hInstance = GetWindowLong_(WinHandle,#GWL_HINSTANCE)
    app.s = Space(255)
    GetModuleFileName_(0,@app,255)
    ProcedureReturn ExtractIcon_(hInstance, app, 0)
EndProcedure

;- ************************************************

Procedure Minimize(Flag.b)
    If Flag = 1
        DisableMenuItem(#PopUp,1,1)          ; Désactive le menu 1 , Disable menu 1
        DisableMenuItem(#PopUp,2,0)          ; Active le menu 2    , Enable menu 2
        HideWindow(#Win_Main, 1)      ; Réduit la fenêtre   , Minimize window
    Else
        DisableMenuItem(#PopUp,1,0)          ; Active le menu 1    , Enable menu 1
        DisableMenuItem(#PopUp,2,1)          ; Désactive le menu 2 , Disable menu 2
        HideWindow(#Win_Main, 0)      ; Affiche la fenêtre  , Display the window
    EndIf
EndProcedure

;- Ouverture de la fenêtre, et création des menus et du SysTray
;- Opening of the window, and creation of the menu and SysTray
hwnd = OpenWindow(#Win_Main, 300, 300, 100, 100,  "SysTray-Test",#PB_Window_SystemMenu | #PB_Window_Invisible )

hIconSysTray = GetIcone(hwnd)
; il faut choisir un icone dans Projet option de compilation
AddSysTrayIcon(#Sytray,hwnd,hIconSysTray)  ; Ajoute l'icône dans le SysTray , Add the icon on the SysTray
CreatePopupMenu(#PopUp)                    ; Crée un menu Pop-Up            , CreatePopUp menu
MenuItem(1,"Mettre en icône...")           ; Ajout des menus                , add items
MenuItem(2,"Afficher...")
MenuBar()
MenuItem(3,"Quitter")

DisableMenuItem(#PopUp,1,1)                       ; Menu inactif,    Item disabled
DisableMenuItem(#PopUp,2,0)                       ; Menu actif       Item enabled

;- Début de la boucle
;- Starting the loop
Repeat
    
    Select WaitWindowEvent()
        Case #PB_Event_SysTray
            Select EventType()
                Case #PB_EventType_RightClick         ; Un click droit affiche le menu  , Right click display menu       
                    DisplayPopupMenu(#PopUp, hwnd)
            EndSelect
            
        Case #PB_Event_Menu
            Select EventMenu()              ; MenuID(#PopUp)
                    
                Case 1 : Minimize(1)                 
                Case 2 : Minimize(0)                 
                    
                Case 3 : Quit = 1 : End
            EndSelect 
            
        Case #PB_Event_Gadget
            ; Select GadgetID()
            ; EndSelect
        Case #PB_Event_CloseWindow : Minimize(1)   
    EndSelect
Until Quit = 1
End

Code : Tout sélectionner

    Case #PB_Event_Menu
      Select EventMenu()              ; MenuID(#PopUp)
        
        Case 1 : Minimize(1)                 
        Case 2 : Minimize(0)                 
          
        Case 3 : Quit = 1 : End
      EndSelect

Code : Tout sélectionner

AddSysTrayIcon(#Sytray,hwnd,hIconSysTray)  ; Ajoute l'icône dans le SysTray , Add the icon on the SysTray