Code: Select all
EnableExplicit
ExamineDesktops()
#MaskColor = 0
Define hWndInv = OpenWindow(0, 0, 0, DesktopWidth(0) / 2, DesktopHeight(0) / 2, "Transparent", #PB_Window_TitleBar | #PB_Window_SystemMenu)
SetWindowColor(0, #MaskColor)
SetWindowLong_(hWndInv, #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)
SetLayeredWindowAttributes_(hWndInv, #MaskColor, 1, #LWA_COLORKEY)
StickyWindow(0, 1)
Repeat
Define event = WaitWindowEvent()
Select event
Case #PB_Event_Menu
Define KeyPressed = EventMenu()
EndSelect
Until event = #PB_Event_CloseWindow
End