PureBasic

Code : Tout sélectionner

;- Constantes
#CCHILDREN_TITLEBAR         = 5

#STATE_SYSTEM_FOCUSABLE     = $00100000
#STATE_SYSTEM_INVISIBLE     = $00008000
#STATE_SYSTEM_OFFSCREEN     = $00010000
#STATE_SYSTEM_UNAVAILABLE   = $00000001
#STATE_SYSTEM_PRESSED       = $00000008

;- Structures
Structure TITLEBARINFO
  cbSize.l
  rcTitleBar.RECT
  rgstate.l[#CCHILDREN_TITLEBAR+1]
EndStructure

pti.TITLEBARINFO
pti\cbSize = SizeOf(TITLEBARINFO)

;- On va récupérer des infos sur la barre du Bloc-Notes à Billou
If RunProgram("Notepad.exe")
  Delay(100)                            ; Pour lui laisser le temps de s'ouvrir
  Handle = FindWindow_("Notepad",#Null)

  If GetTitleBarInfo_(Handle,@pti)<> 0
    Debug "J'la tiens !!!"
  Else
    Debug " Merde!! Loupé !!!"
  EndIf
  CloseWindow_(Handle)
  Debug"---------------------------------------"
  Debug"---------------------------------------"
EndIf


;- Affichage des résultats
Debug "Gauche = "+Str(pti\rcTitleBar\left)
Debug "Haut   = "+Str(pti\rcTitleBar\top)
Debug "Droite = "+Str(pti\rcTitleBar\right)
Debug "Bas    = "+Str(pti\rcTitleBar\bottom)
Debug ""

;- Bon, là, je comprends pas trop ce que ça représente, ni comment ça fonctionne,
;- alors j'essaye d'isoler les constantes avec un "ET" logique (&)
For i = 0 To 5
  If i = 0 : T$ = "TitleBar " : EndIf
  If i = 1 : T$ = "Reserved " : EndIf
  If i = 2 : T$ = "Minimize " : EndIf
  If i = 3 : T$ = "Maximize " : EndIf
  If i = 4 : T$ = "Help "     : EndIf
  If i = 5 : T$ = "Close "    : EndIf

  If pti\rgstate[i] & #STATE_SYSTEM_FOCUSABLE   : Debug T$+"Focusable : Oui" : Else : Debug T$+"Focusable : Non" : EndIf
  If pti\rgstate[i] & #STATE_SYSTEM_INVISIBLE   : Debug T$+"Invisible : Oui" : Else : Debug T$+"Invisible : Non" : EndIf
  If pti\rgstate[i] & #STATE_SYSTEM_OFFSCREEN   : Debug T$+"OffScreen : Oui" : Else : Debug T$+"OffScreen : Non" : EndIf
  If pti\rgstate[i] & #STATE_SYSTEM_UNAVAILABLE : Debug T$+"Unavailable : Oui" : Else : Debug T$+"Unavailable : Non" : EndIf
  If pti\rgstate[i] & #STATE_SYSTEM_PRESSED     : Debug T$+"Pressed : Oui" : Else : Debug T$+"Pressed : Non" : EndIf
  Debug"---------------------------------------"
Next
;-   J'ai tenté avec "&", ça donne des résultats, mais est-ce qu'ils sont corrects ?

;- Voilà ce que dit la doc sur RgState
;/ rgstate
;/ Pointer to an array that receives a DWORD value for each element of the title bar.
;/ the following are the title bar elements represented by the array.
;/
;/ Index   title bar element
;/   0     the title bar itself.
;/   1     Reserved.
;/   2     Minimize button.
;/   3     Maximize button.
;/   4     Help button.
;/   5     Close button.
;/
;/   each array element is a combination of one or more of the following values.
;/
;/   value                      Meaning
;/   STATE_SYSTEM_FOCUSABLE     the element can accept the focus.
;/   STATE_SYSTEM_INVISIBLE     the element is invisible.
;/   STATE_SYSTEM_OFFSCREEN     the element has no visible representation.
;/   STATE_SYSTEM_UNAVAILABLE   the element is unavailable.
;/   STATE_SYSTEM_PRESSED       the element is in the pressed state.
;-

;- Dimensions des boutons
Debug "Largeur des boutons : "+ Str(GetSystemMetrics_(#SM_CXSMSIZE ))
Debug "Hauteur des boutons : "+ Str(GetSystemMetrics_(#SM_CYSMSIZE ))
;- Il y a aussi #SM_CXSIZE et #SM_CYSIZE, mais qui m'annoncent 25 x 25

Code : Tout sélectionner

 ;/Constantes Window
Enumeration
  #Window_0
EndEnumeration

;/Constantes Gadget
Enumeration
  #Btn_Quit
EndEnumeration

;- Selon le type de construction, on trouvera un résultat différent:

;/ Type 1 : #PB_Window_TitleBar tout seul: pas de boutons
;/ Type 2 : #PB_Window_SystemMenu tout seul : La barre à au moins un bouton : "Fermer"
;/ Type 3 : #PB_Window_TitleBar ou #PB_Window_SystemMenu, + 1 bouton
;/ Les trois boutons son présents sur la barre, le bouton qui n'est pas nommé
;/ est désactivé

;- Sous PureBasic, quand une fenêtre est construite avec l'attribut #PB_Window_TitleBar,
;- et qu'on lui ajoute un bouton, par exemple #PB_Window_MinimizeGadget, elle prend
;- automatiquement l'attribut #PB_Window_SystemMenu. 
;- On peut utiliser cette propriété pour savoir quels sont les boutons présents
;- sur la barre de titre, en utilisant les constantes de windows selon les 
;- equivalences ci dessous.
;-
;- Equivalences Microsoft - PureBasic (Rien à voir avec la valeur des constantes)

;/ #PB_Window_SystemMenu = #WS_SYSMENU : La barre contient au moins le bouton "Fermer"
;/ #PB_Window_TitleBar   = #WS_CAPTION : La barre ne contient aucun bouton

;- Décommenter une des quatres lignes qui suivent, et commenter les trois autres
;If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_TitleBar|#PB_Window_ScreenCentered, "Fenêtre 1",0)
If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_SystemMenu|#PB_Window_ScreenCentered, "Fenêtre 1",0)  
;If OpenWindow(#Window_0, 300, 500, 300, 200, #PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered, "Fenêtre 1",0)
;If OpenWindow(#Window_0, 300, 500, 300, 200, #PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered, "Fenêtre 1",0)
    
  hWnd = WindowID(#Window_0)
  
  ;- On recupère d'abord le style de la fenêtre
  Style = GetWindowLong_(hWnd, #GWL_STYLE)
  
  ;- Si la barre de titre possède l'attribut #WS_SYSMENU, (soit #PB_Window_SystemMenu) 
  ;- elle a obligatoirement au moins un bouton: le bouton "Quitter"
  ;- Reste à déterminer si elle a les autre boutons, et si ils sont activés
  StartDrawing(WindowOutput())
  DrawingMode(1) 
  
  If Style & #WS_SYSMENU And Style & #WS_MINIMIZEBOX = 0 And Style & #WS_MAXIMIZEBOX = 0
    Locate(10,20):DrawText("Barre de titre type "+Chr(34)+"SystemMenu"+Chr(34))
    Locate(10,40) : DrawText("Pas de bouton auxiliaire")
    
  ElseIf Style & #WS_SYSMENU 
    Locate(10,20):DrawText("Barre de titre type "+Chr(34)+"SystemMenu"+Chr(34))
    
    If Style & #WS_MINIMIZEBOX
      Locate(10,40):DrawText("Bouton "+Chr(34)+"Minimize"+Chr(34)+" : Activé")
    Else
      Locate(10,40):DrawText("Bouton "+Chr(34)+"Minimize"+Chr(34)+" : Désactivé")
    EndIf
    
    If Style & #WS_MAXIMIZEBOX
      Locate(10,60):DrawText("Bouton "+Chr(34)+"Maximise"+Chr(34)+" : Activé")
    Else
      Locate(10,60):DrawText("Bouton "+Chr(34)+"Maximise"+Chr(34)+" : Désactivé")
    EndIf
    
  ElseIf Style & #WS_SYSMENU =0
    Locate(10,20):DrawText("Barre de titre type "+Chr(34)+"TitleBar"+Chr(34))
  EndIf
  
  StopDrawing()
  UpdateWindow_(hWnd)
  
  If CreateGadgetList(WindowID(#Window_0))
    ButtonGadget(#Btn_Quit, 100, 170, 100, 25, "Quitter")
  EndIf
  
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_EventGadget
        Select EventGadgetID()
          Case #Btn_Quit : quit = 1
        EndSelect
      Case #PB_EventCloseWindow : quit = 1
    EndSelect
  Until quit = 1
  End
EndIf