- * 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"
* 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"