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
Declare Integer CreateEllipticRgn In gdi32 ;
Integer X1 , Integer Y1 , Integer X2 , Integer Y2
Declare Integer DeleteObject In gdi32 Integer hObject
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)
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.
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.