Do you know how to make a rotation of a Text in its center?
I would want that the text remains to center when it turns(shoots)
that it turns(shoots) on itself it its center, how do we make it ?
Code: Select all
Enumeration
#Fenetre
#ButonImageGadget
#Image
EndEnumeration
OpenWindow(#Fenetre, 327, 177, 500, 300, "Exemple Texte Rotation Centré...", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_TitleBar)
TexteBouton.s = "Mon Bouton"
AngleTexte.i = 190
If CreateImage(#Image, 150, 150, 32, #PB_Image_Transparent)
If IsImage(#Image) And StartDrawing(ImageOutput(#Image))
DrawingMode(#PB_2DDrawing_AlphaBlend)
X.i = (ImageWidth(#Image) - TextWidth(TexteBouton.s)) / 2
Y.i = (ImageHeight(#Image) - TextHeight(TexteBouton.s)) / 2
DrawRotatedText(X.i, Y.i, TexteBouton.s, AngleTexte.i, RGBA(150, 75, 200, 255))
StopDrawing()
EndIf
EndIf
ButtonImageGadget(#ButonImageGadget, 10, 10, 150, 150, ImageID(#Image))
Repeat ; Départ des évènements de boucle.
Event = WaitWindowEvent(1) ; Cette ligne attend pendent (Minuteur) qu'un évènement soit recus par la fenêtre.
EventGadget = EventGadget(); Pour savoir sur quel gadget c'est produis l'évènement.
EventType = EventType() ; Le type d'évènement qui c'est produis sur le gadget.
Select Event
Case #PB_Event_Gadget
Select EventGadget
Case #ButonImageGadget
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow ; Fin des évènements de boucle.