PureBasic

Code : Tout sélectionner

OpenWindow(0, 0, 0, 200, 200, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "Test")

CreateGadgetList(WindowID())

CreateImage(0, 100, 100)

ImageGadget(0, 50, 50, 0, 0, UseImage(0))
Region = CreateRoundRectRgn_(0, 0, 100, 100, 30, 50) ; Création de la région pour faire un rectangle avec les angles arrondis
; CreateRoundRectRgn_(X1, Y1, X2, Y2, R1, R2)
; X1, Y1 : coordonné du point haut gauche de la region
; X2, Y2 : coordonné du point bas droit de la region
; R1, R2 : rayon de l'ellipse qui va servir à arrondir les angles de la region
SetWindowRgn_(GadgetID(0), Region, #True) ; On applique la région

Repeat
  Event = WaitWindowEvent()
Until Event = #WM_CLOSE

DeleteObject_(Region) ; On supprime la région