Toolbar + Balloon-Tip
Verfasst: 06.12.2006 12:32
Hallo an alle,
ich benutze die Toolbar-Befehle aus der PBOSL-Lib, was auch einwandfrei funktioniert.
Ist es möglich die Toolbar-Tasten mit Balloon-Tooltips auszustatten ?
Normale Tooltips funktionieren bestens, wenn ich jedoch die Balloon-Tooltips verwenden will, erscheint die Fehlermeldung #Gadget objects not initialized
Weiss vielleicht jemand eine Lösung ?
für die Ballon-Tips benutze ich folgenden Code:
in meinen Programm rufe ich die Prozedur auf mit:
ich benutze die Toolbar-Befehle aus der PBOSL-Lib, was auch einwandfrei funktioniert.
Ist es möglich die Toolbar-Tasten mit Balloon-Tooltips auszustatten ?
Normale Tooltips funktionieren bestens, wenn ich jedoch die Balloon-Tooltips verwenden will, erscheint die Fehlermeldung #Gadget objects not initialized
Weiss vielleicht jemand eine Lösung ?
für die Ballon-Tips benutze ich folgenden Code:
Code: Alles auswählen
Procedure BalloonTip(WindowID,Gadget,Text$,Title$,Icon)
ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,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
Code: Alles auswählen
AddTBbutton(0,19,#TBpro_BUTTON)
SetTBbuttonText(0,"Test")
BalloonTip(GadgetID(0),0, "Dies ist Test",Testzeilen.....", #TOOLTIP_INFO_ICON)