[Win32] Bring Trayicon tooltip to front?

' TrayIcon 

Framework Maxgui.Drivers
Import BRL.EventQueue
Import "object.o"         ' <- YOU NEED TO CHANGE THAT TO ANOTHER ICON OBJ FILE OR COMMENT IT OUT (= NO ICON)

SuperStrict 
AppTitle = "TrayIcon Example"

?Win32
' Tray icon related stuff
Const NIM_ADD:Int		= 0
Const NIM_MODIFY:Int	= 1
Const NIM_DELETE:Int	= 2
Const NIM_SETFOCUS:Int	= 3
Const NIM_SETVERSION:Int= 4

Const NIF_MESSAGE:Int	= $1
Const NIF_ICON:Int		= $2
Const NIF_TIP:Int		= $4
Const NIF_STATE:Int		= $8
Const NIF_INFO:Int		= $10
Const NIF_GUID:Int		= $20

Global nid:TNotifyIconData

Type TNotifyIconData 
	Field Size:Int
	Field HWND:Int
	Field id:Int
	Field Flags:Int
	Field CallbackMessage:Int
	Field Icon:Int 				' HICON	
	Field Tip:Long				' array [0..63] of AnsiChar;
	Field Tip2:Long
	Field Tip3:Long
	Field Tip4:Long
	Field Tip5:Long
	Field Tip6:Long
	Field Tip7:Long
	Field Tip8:Long
EndType

Extern "win32"
	Function Shell_NotifyIcon:Int(message:Int, notifyicondata:Byte Ptr) = "Shell_NotifyIconA@8"
End Extern
?

Local FLAGS:Int
FLAGS:| WINDOW_TITLEBAR
FLAGS:| WINDOW_RESIZABLE
FLAGS:| WINDOW_MENU
FLAGS:| WINDOW_CLIENTCOORDS
'FLAGS:| WINDOW_HIDDEN
FLAGS:| WINDOW_ACCEPTFILES

Global MainWindow:TGadget = CreateWindow( AppTitle, 100, 100, 320, 240, Null, FLAGS )
Global TrayIconPanel:TGadget = CreatePanel(0, 0, 0, 0, MainWindow, 0 )

Global win_trayed:Int=0

Repeat
	WaitEvent()
	Print CurrentEvent.ToString()
	Select EventID()
		Case EVENT_AppSuspend
        '   DebugLog "App now suspended!"

		If WindowMinimized(Mainwindow) Then 
?win32
			HideGadget(MainWindow)

			RegisterTrayIcon(TrayIconPanel, "This is premade Tooltip!") 'show station currently on AIR!
?
       EndIf 

	Case EVENT_MOUSEDOWN
		Select EventSource()
		Case TrayIconPanel
			If EventData()=1 Then
				RemoveTrayIcon()
				RedrawGadget(Mainwindow) 
				ShowGadget(MainWindow)
				RedrawGadget (MainWindow)
				RestoreWindow(Mainwindow)
			EndIf 

			If EventData()=2 Then
			    ' Set a new Tooltip when you hit the right mouse button over the trayicon
		   		SetNotifyIconDataTip( nid, "I'm a reborn Tooltip! :)" )
				Shell_NotifyIcon( NIM_MODIFY, nid)
	 		EndIf

		End Select
   
		Case EVENT_APPTERMINATE, EVENT_WINDOWCLOSE
			End
	End Select
Forever

' Tray Icon Functions, Win 32 only! ----------------------------------------------------------
Function RegisterTrayIcon( window:TGadget, toolTip:String )
' Register tray icon

	?Win32
	nid = New TNotifyIconData
	nid.Size = SizeOf(TNotifyIconData)
	nid.hwnd = QueryGadget(window, QUERY_HWND)
	SetWindowLongW(nid.hwnd,GWL_WNDPROC,Int Byte Ptr SysTrayWndProc)
	nid.id = 0
	nid.CallbackMessage = WM_APP
	nid.Icon = LoadIconW(GetModuleHandleW(Null),Short Ptr(101))
	nid.Flags = NIF_MESSAGE | NIF_TIP | NIF_ICON  
	SetNotifyIconDataTip( nid, toolTip )

	Shell_NotifyIcon( NIM_ADD, nid)
	?
	
	Win_trayed:Int=1
End Function

Function SysTrayWndProc%(hwnd%,msg%,wp%,lp%) "win32"
'WndProc NotifyIcon -> Blitz Event
	?Win32
	Select msg 
		Case WM_APP
                 Local owner:TGadget = TWindowsGUIDriver.GadgetFromHwnd(hwnd)
			If owner Then
				Select lp
				     Case WM_MOUSELEAVE
						PostGuiEvent( EVENT_MOUSELEAVE, owner )
 				     Case WM_MOUSEMOVE
						PostGuiEvent( EVENT_MOUSEMOVE, owner )
					Case WM_RBUTTONDOWN
						PostGuiEvent( EVENT_MOUSEDOWN, owner, MOUSE_RIGHT )
					Case WM_LBUTTONDOWN
						PostGuiEvent( EVENT_MOUSEDOWN, owner, MOUSE_LEFT )
					Case WM_RBUTTONDOWN	
						PostGuiEvent( EVENT_MOUSEDOWN, owner, MOUSE_RIGHT )
				EndSelect
			EndIf
	EndSelect
	Return TWindowsGUIDriver.ClassWndProc(hwnd,msg,wp,lp)
	?
EndFunction

Function RemoveTrayIcon()    
' Remove tray icon from taskbar
	?Win32
	Shell_NotifyIcon(NIM_DELETE, nid)
    win_trayed=0
	?
End Function

?Win32     
Function SetNotifyIconDataTip( nid:TNotifyIconData, s:String)
	MemClear( Varptr nid.Tip, 64)
	If s.length > 0 Then
		Local p:Byte Ptr = s.ToCString()
		If s.length < 64 Then
			MemCopy( Varptr nid.Tip, p, s.length)
		Else			
			MemCopy( Varptr nid.Tip, p, 63)			
		EndIf
		MemFree(p)
	EndIf
EndFunction
?	

Function RegisterTrayIcon( window:TGadget, toolTip:String="" )
' Register tray icon

	?Win32
	Titlebak:String=""
	Artistbak:String=""
		If Not nid Then

		nid = New TNotifyIconData
		nid.Size = SizeOf(TNotifyIconData)
		nid.hwnd = QueryGadget(window, QUERY_HWND)
		
		SetWindowLongW(nid.hwnd,GWL_WNDPROC,Int Byte Ptr SysTrayWndProc)
		
		nid.CallbackMessage = WM_APP
		nid.Icon = LoadIconW(GetModuleHandleW(Null),Short Ptr(101))

		nid.Flags = NIF_MESSAGE | NIF_TIP | NIF_ICON | NIF_INFO
	EndIf
	
	If toolTip Then _stringCopy( Varptr nid.Tip, toolTip, 128)

        'Print "ini dis ball: "+ini_dis_balloontip
	If ini_dis_balloontip=0 Then 
	 EditInfo(station_genre, station_name)
    	 Showinfo()  
       EndIf

	Shell_NotifyIcon(NIM_ADD, nid)

	?
	
	prp_trayed:Int=1
End Function

Function EditTrayTooltip(toolTip:String="")
?win32
 	If toolTip Then _stringCopy( Varptr nid.Tip, toolTip, 128)
	Shell_NotifyIcon( NIM_ADD, nid)
?
End Function 

Function ShowInfo:Int()
	If nid Then
		nid.flags = NIF_MESSAGE | NIF_TIP | NIF_ICON | NIF_INFO
		Shell_NotifyIcon( NIM_MODIFY, nid)
	EndIf
EndFunction

Function EditTrayTooltip(toolTip:String="")
?win32
 	If toolTip Then _stringCopy( Varptr nid.Tip, toolTip, 128)
	nid.flags = NIF_MESSAGE | NIF_TIP | NIF_ICON
	Shell_NotifyIcon( NIM_MODIFY, nid)
?
End Function