Code updated for 5.20+
hi forum
below you see a little example, how to mask a window with regions.
for more information about using regions see the MSDN online: http://msdn.microsoft.com/library/en-us ... s_7ab7.asp
cu socke
Code: Select all
#Window1 = 1
#W1Btn1 = 1
#W1Btn2 = 2
WinW=500 : WinH=410
hwnd = OpenWindow( #Window1, (GetSystemMetrics_(#SM_CXSCREEN)-WinW)/2, (GetSystemMetrics_(#SM_CYSCREEN)-WinH)/2, WinW, WinH,"Region Mask", 0) ; centred window
If hwnd > 0
ButtonGadget(#W1Btn1,103,330 ,89,25,"Mask Window")
ButtonGadget(#W1Btn2,264,330 ,89,25,"Close")
RectRgn = CreateRoundRectRgn_(0, 0, WinW, WinH, 50, 50) ; rectangle region to give the window rounded edges
EllipRgn = CreateEllipticRgn_(50, 50, 250, 250) ; elliptic region
CombinedRgn = RectRgn ; to combine regions, the target region must exist before calling CombineRgn
CombineRgn_(CombinedRgn, CombinedRgn, EllipRgn, #RGN_XOR) ;the parameter #RGN_XOR creates the union of two combined regions except for any overlapping areas.
Repeat
Delay(1)
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_Event_Gadget
Select EventGadget()
Case #W1Btn1 ;----------Code
SetWindowRgn_(hwnd, RectRgn, #True) ;sets the window region of a window, #TRUE repaints the window
Case #W1Btn2 ;----------Code
EventID = #PB_Event_CloseWindow
EndSelect
EndSelect
Until EventID = #PB_Event_CloseWindow
EndIf
End
