Ich habe grade folgendes Codeschnipsel aus dem Forum kopiert (zum erstellen von BallonTips):
Code: Alles auswählen
ProcedureDLL BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
Static init
Static tooltip
Protected style = #WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON
If init = 0
init = 1
ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",style,0,0,0,0,WindowID(WindowID),0,0,0)
EndIf
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),1)
SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,300)
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
Ich benutze im gesamten Projekt keine Assembler-Schlüsselwörter und hab auch die InlineASM-Unterstützung deaktiviert.
MfG, Mok