[5.20] drawtext() transparent et gadget

[blendman]

salut

j'ai cherché comment afficher un texte sur un gadget avec transparence.

Voici le code pour ceux que cela intéresseraient :

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 200, 200, "Drawtext transparent", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  SetWindowColor(0,RGB(120,0,0)); couleur rouge  foncé pour la fenêtre pour voir la transparence
  If CreateImage(0, 200, 200,32,#PB_Image_Transparent) And StartDrawing(ImageOutput(0))
    DrawingMode(#PB_2DDrawing_AlphaBlend|#PB_2DDrawing_Transparent)
    For i = 1 To 30
      DrawText(Random(200), Random(200), "Hello World!", RGBA(Random(255), Random(255), Random(255),255))
    Next i
    StopDrawing() 
    ImageGadget(0, 0, 0, 200, 200, ImageID(0))
  EndIf
  
  Repeat
    Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf

[Micoute]

Bonjour blendman et merci beaucoup pour ce partage