Code
#WindowLength=180
#WindowHeight=50
Procedure SetWinOpacity (hwnd.l, Opacity.l) ; Opacity variable: 0-255
SetWindowLong_(hwnd, #GWL_EXSTYLE, $00080000)
SetLayeredWindowAttributes_(hwnd, 0, Opacity, 2)
EndProcedure
Procedure.l CreatePopupMessage(*DeviceName.s)
Define Window.l, rect.RECT, DummyWindow.l, i.l, TextGadget
SystemParametersInfo_(#SPI_GETWORKAREA,0,rect.RECT,0)
DummyWindow.l=OpenWindow(#PB_Any, 0, 0, 0, 0, "", #PB_Window_Invisible)
Window=OpenWindow(#PB_Any, rect\right-#WindowLength, rect\bottom-#WindowHeight, #WindowLength, #WindowHeight, "Audio Device", #WS_POPUPWINDOW|#WS_DISABLED|#PB_Window_Invisible, WindowID(DummyWindow))
If Window
If CreateGadgetList(WindowID(Window))
TextGadget=TextGadget(#PB_Any, 10, 10, 160, 30, "Default Audio Device:"+Chr($0A)+*DeviceName)
EndIf
StickyWindow(Window, 1)
SetWindowColor(Window, RGB(255, 255, 255))
SetWinOpacity(WindowID(Window), 0)
HideWindow(Window, 0)
For i=0 To 255 Step 10
SetWinOpacity(WindowID(Window), i)
While WindowEvent()
Wend
Delay(20)
Next
Delay(1250)
For i=255 To 0 Step -10
SetWinOpacity(WindowID(Window), i)
While WindowEvent()
Wend
Delay(20)
Next
EndIf
CloseWindow(Window)
CloseWindow(DummyWindow)
EndProcedure
CreatePopupMessage(@"Synthblaster")