Page 1 of 1
WinXP pop up balloons
Posted: Fri Apr 02, 2004 4:24 pm
by MrCoder
Does anyone know how to use the pop up balloons in Windows like the one that is shown when you connect to the internet and it shows your connection speed. Any help appreciated.
PB Rocks!!
Posted: Fri Apr 02, 2004 5:44 pm
by Fred
Look in the VisualDesigner, it generate such ballon tips
Posted: Fri Apr 02, 2004 7:14 pm
by MrCoder
Thanks Fred that was helpful. Here is the code just incase anyone else needs it.
Code: Select all
Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID(WindowID),0,GetModuleHandle_(0),0)
SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
Balloon\hWnd=GadgetID(Gadget)
Balloon\uId=GadgetID(Gadget)
Balloon\lpszText=@Text$
SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
If Title$ > ""
SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
EndIf
EndProcedure
Posted: Sat Apr 03, 2004 7:30 pm
by MrCoder
Sorry to post about this again but does anybody know how to get them to go with an icon in the SYS TRAY like the automatic updates etc use.
There is this
MSDN Page about tool tips with a bit about balloon tool tips for tray icons but I have no idea how to get them to work in PB.
IF anyone knows a way it would be great.
Thanks.
Posted: Mon Apr 05, 2004 3:45 pm
by MrCoder
Bit of a bump here. hehe
I've been trying to get this to work but have had no luck so if anyone does know it would be quite helpful.
Thanks :roll: