Global Alpha.l = 50

If OpenWindow(0, 100, 200, 200, 200, "Transparence fenêtre")
  ; Crée la liste de gadgets
  If CreateGadgetList(WindowID(0))
    ButtonGadget(0, 0, 0, 100, 100, "Appliquer la transparence à la fenêtre",#PB_Button_MultiLine)  
    ButtonGadget(1, 100, 100, 100, 100, "Changer la valeur de la transparence",#PB_Button_MultiLine)
  EndIf
  
  Repeat
    EventID = WaitWindowEvent()

    If EventID = #PB_Event_CloseWindow
      Quit = 1
    EndIf
    If EventID = #PB_Event_Gadget
      GadgetID = EventGadget()
      If GadgetID = 0
        SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED)
        SetLayeredWindowAttributes_(WindowID(0), 0, 255 * Alpha / 100, #LWA_ALPHA) 
      EndIf
      If GadgetID = 1
        Alpha = Val(InputRequester("Transparence", "Valeur en % (entre 0 et 100)", "50"))
      EndIf
    EndIf

  Until Quit = 1
  
EndIf

If OpenWindow(0, 100, 200, 200, 200, "Fenêtre au premier plan", #PB_Window_SystemMenu)
  ; Crée la liste de gadgets
  If CreateGadgetList(WindowID(0))
    ButtonGadget(0, 0, 0, 100, 100, "Activer")  
    ButtonGadget(1, 100, 100, 100, 100, "Désactiver")
  EndIf
  
  Repeat
    EventID = WaitWindowEvent()

    If EventID = #PB_Event_CloseWindow
      Quit = 1
    
    ElseIf EventID = #PB_Event_Gadget
      GadgetID = EventGadget()
      
      If GadgetID = 0
        StickyWindow(0, #True)
        SetWindowTitle(0, "Premier plan activé") 
      
      ElseIf GadgetID = 1
        StickyWindow(0, #False)
        SetWindowTitle(0, "Premier plan désactivé") 
      
      EndIf

    EndIf

  Until Quit = 1
  
EndIf

If OpenWindow(0, 100, 200, 300, 200, "Désactive le bouton de fermeture",#PB_Window_SystemMenu)

  ; Retourne l'identifiant du menu système
  hSysMenu = GetSystemMenu_(WindowID(0), #False)
  ; Efface un élément du menu
  RemoveMenu_(hSysMenu, #SC_CLOSE, #MF_BYCOMMAND)
  ;Mise à jour du menu
  DrawMenuBar_(WindowID(0))
    
  Repeat
    EventID = WaitWindowEvent()

    If GetAsyncKeyState_(#VK_ESCAPE)
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf