Centrer le texte dans une fenêtre

[Heis Spiter]

Voici un code source pour centrer le texte dans une fenêtre. Rien de difficile, juste des maths

Code : Tout sélectionner

Procedure CenterTextGadget(Gadget, Largeur, Hauteur, Texte$)
  ; Récupère la largeur de la fenêtre
  WinLargeur = WindowWidth()
  ; Récupère la hauteur de la fenêtre
  WinHauteur = WindowHeight()
  ; Calcul la moitié de la largeur de la fenêtre moins la largeur du texte
  LarRes = (WinLargeur - Largeur)/2
  ; Calcul la moitié de la hauteur de la fenêtre moins la hauteur du texte
  HauRes = (WinHauteur - Hauteur)/2
  ; Imprime le texte dans la fenêtre
  TextGadget(Gadget, LarRes, HauRes, Largeur, Hauteur, Texte$) 
EndProcedure
If OpenWindow(fenetre, 0, 0, 100, 100, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "Test")
  If CreateGadgetList(WindowID(fenetre))
    CenterTextGadget(texte, 20, 15, "Test")
  EndIf
EndIf
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Si je l'ai fait c'est parceque #PB_Text_Center déconne chez moi