Formulaire arrondi

Commenter

Contenu du snippet

Juste une utilisation de l'API Win32 pour créer un formulaire elliptique

Source / Exemple : 




  •  arrondir le form

  •  ce bout de code doit apparaitre dans l'Init du formulaire


Local nhWnd, nWidth, nHeight, hRegion


  •  dans gdi32

Declare Integer CreateEllipticRgn In gdi32 ;
        Integer X1 , Integer Y1 , Integer X2 , Integer Y2
Declare Integer DeleteObject In gdi32 Integer hObject


  •  dans user32

Declare Integer SetWindowRgn In user32 ;
        Integer HWND, Integer hRgn , Integer bRedraw

nhWnd = This.HWnd
nWidth = This.Width && vous pouvez changer le rapport ici (en divisant par 2, 3 ...)
nHeight = This.Height && de même qu'ici
hRegion = CreateEllipticRgn(0, 0, nWidth, nHeight)
SetWindowRgn(nhWnd, hRegion, 1)


  •  on relache

DeleteObject(hRegion)
Clear DLLs "CreateEllipticRgn","SetWindowRgn"

Conclusion :


J'ai testé ce code sur mon exemple précédent (l'écran d'attente style matrix).
Effet ludique garanti.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (FredArmoni)