Ich benötige mehr Zeichen als SystrayIcontooltip erlaubt.
64 Zeichen sind nur möglich. (Ist ne Limitation von win95)
Ich habe die SystrayEx library versucht. Damit sind 128 Zeichen möglich. (So wie auf 2000 und XP möglich)
Allerdings kommen die Rechtsklick events machmal nicht richtig durch, bzw. klicken durch auf die taskbar.
Hier kann man das testen: http://oppitronic.net/pb/oui!/oinfotool.exe
Für eine Idee bin ich dankbar.
Am besten wäre wenn ich irgendwie die Standard SystraxIcontooltips nutzen könnte, aber mit mehr Zeichen.
Ansonsten wäre es gut wenn mir jemand zeigt was ich bei der SystrayEx lib falsch mache.
Hier ein Auszug: Abfrage genau so wie im SysTrayEx Beispiel
Code: Alles auswählen
Procedure.l MyWindowCallback(WindowID.l, message.l, wParam.l, lParam.l)
ret = #PB_ProcessPureBasicEvents
If IsWindow(#window) And WindowID=WindowID(#window)
EndIf
Select message
Case #WM_NOTIFYICON
Select lParam
Case #WM_CONTEXTMENU :;debug Str(wParam) + ": Context Menu"
Case #WM_MOUSEMOVE :;Debug Str(wParam) + ": Mouse moved"
Case #WM_LBUTTONDOWN :;Debug Str(wParam) + ": Left Mouse Clicked"
If IsWindow(#haiwin)=#False And IsWindow(#ouiwin)=#False
infowin()
EndIf
Case #WM_MBUTTONDOWN :;Debug Str(wParam) + ": Middle Mouse Clicked"
Case #WM_RBUTTONDOWN :Debug Str(wParam) + ": Right Mouse Clicked"
;--menu
SetMenuItemState(#SysTrayMenu,#SysTrayMenuPause,Val(getUnPauseScan())!1 )
DisplayPopupMenu(#SysTrayMenu,WindowID(#window))
;lParam=0
Case #WM_LBUTTONDBLCLK :Debug Str(wParam) + ": Left Mouse DblClicked"
Case #WM_MBUTTONDBLCLK :Debug Str(wParam) + ": Middle Mouse DblClicked"
Case #WM_RBUTTONDBLCLK :Debug Str(wParam) + ": Right Mouse DblClicked"
Case #NIN_SELECT :Debug Str(wParam) + ": Select"
Case #NIN_KEYSELECT :Debug Str(wParam) + ": KeySelect"
Case #NIN_BALLOONSHOW :Debug Str(wParam) + ": Balloon Opened"
Case #NIN_BALLOONTIMEOUT :Debug Str(wParam) + ": Balloon Refused"
Case #NIN_BALLOONUSERCLICK :Debug Str(wParam) + ": Balloon Accepted"
Case #NIN_BALLOONHIDE :Debug Str(wParam) + ": Balloon Closed"
EndSelect
EndSelect