Centrer le texte dans une fenêtre
Publié : mer. 03/mars/2004 19:33
Voici un code source pour centrer le texte dans une fenêtre. Rien de difficile, juste des maths 
Si je l'ai fait c'est parceque #PB_Text_Center déconne chez moi 
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