PureBasic Forums - English

Code: Select all

Global  TT

Procedure.l callback(hwnd, uMsg, wParam, lParam)
  Static text$
  Result = #PB_ProcessPureBasicEvents
  If uMsg = #WM_MOUSEMOVE
    msg.MSG
    msg\hwnd = hwnd
    msg\message = uMsg
    msg\wParam = wParam
    msg\lParam = lParam
    SendMessage_(TT, #TTM_RELAYEVENT, 0,msg)
  EndIf
  If uMsg = #WM_NOTIFY
    *nmh.NMHDR=lParam
    If *nmh\code = #TTN_NEEDTEXT
      *tt.TOOLTIPTEXT=lParam
      text$="From tool "+Str(*tt\hdr\idFrom)
      *tt\lpszText=@text$
    EndIf
  EndIf
  ProcedureReturn Result
EndProcedure

OpenWindow(0, 0, 0, 300, 300, "Tooltips by area",#PB_Window_ScreenCentered|#PB_Window_SystemMenu) 
  CreateGadgetList(WindowID(0)) 
    TT = CreateWindowEx_(0, "Tooltips_Class32", "", #TTS_ALWAYSTIP|#TTS_BALLOON, 0, 0, 0, 0, 0, 0, 0, 0) 
    SendMessage_(TT, #TTM_SETTITLE, 1, "HiYa") 
    SendMessage_(TT, #TTM_SETMAXTIPWIDTH, 0, 250) 
    ;Add two 'tools' by area; one in the top left of the window and one in the bottom right.
      ti.TOOLINFO\cbSize = SizeOf(TOOLINFO) 
      ti\uFlags = #TTF_CENTERTIP 
      ti\hwnd = WindowID(0) 
      ti\lpszText = #LPSTR_TEXTCALLBACK
      ;Top left.
        SetRect_(@ti\rect, 0,0,20,20)
        ;Register tooltip with the control 
          SendMessage_(TT, #TTM_ADDTOOL, 0, ti) 
      ;Bottom right.
        ti\uId = 1
        SetRect_(@ti\rect, 280,280,300,300)
        ;Register tooltip with the control 
          SendMessage_(TT, #TTM_ADDTOOL, 0, ti) 
    ;A callback is needed
    SetWindowCallback(@callback())

Repeat 
Until WaitWindowEvent() = #PB_Event_CloseWindow 

End 

Code: Select all

TT = CreateWindowEx_(0, "Tooltips_Class32", "", #TTS_ALWAYSTIP|#TTS_BALLOON, 0, 0, 0, 0, WindowID(0), 0, 0, 0) 

Code: Select all

Global InfoText.s
Global InfoID
Global InfoMessage.MSG
Global *InfoStruct.NMHDR
Global *InfoText.TOOLTIPTEXT

Global Callback
Global OnTop=#True


Procedure Callback(WindowID,Message,wParam,lParam)

	Select Message

	Case #WM_SYSCOMMAND
		If wParam=#SC_MAXIMIZE
			Callback=1
			ProcedureReturn 0
		EndIf

	Case #WM_MOUSEMOVE
		InfoMessage\hwnd=WindowID
		InfoMessage\message=Message
		InfoMessage\wParam=wParam
		InfoMessage\lParam=lParam
		SendMessage_(InfoID,#TTM_RELAYEVENT,0,InfoMessage)

	Case #WM_NOTIFY
		*InfoStruct=lParam
		If *InfoStruct\code=#TTN_NEEDTEXT
			*InfoText=lParam
			z=*InfoText\hdr\idFrom
			SendMessage_(InfoID,#TTM_SETTITLE,z%4,"Icon")
			InfoText="Text "+Str(z)

			*InfoText\lpszText=@InfoText
		EndIf
	EndSelect

	ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

xsize=300
ysize=200
Anzahl=8

OpenWindow(0,40,40,xsize,ysize," Michael Vogel's Ping Utility ",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget)

InfoID=CreateWindowEx_(0,"Tooltips_Class32","",#TTS_ALWAYSTIP|#WS_EX_TOPMOST,0,0,0,0,WindowID(0),0,0,0);#TTS_BALLOON
;InfoID=CreateWindowEx_(0,"Tooltips_Class32","",#TTS_ALWAYSTIP|#WS_EX_TOPMOST|#TTS_BALLOON,0,0,0,0,0,0,0,0)
SendMessage_(InfoID,#TTM_SETMAXTIPWIDTH,0,200)
SendMessage_(InfoID,#TTM_SETTITLE,1,"SNMP Informationen")

InfoTool.TOOLINFO
InfoTool\cbSize=SizeOf(TOOLINFO)
InfoTool\uFlags=#TTF_CENTERTIP
InfoTool\hwnd=WindowID(0)
InfoTool\lpszText=#LPSTR_TEXTCALLBACK

CreateGadgetList(WindowID(0))
For i=1 To Anzahl
	TextGadget(i,0,20*i,200,18,"Icon "+Str(i%4)+", Text "+Str(i),#PB_Text_Border)
	InfoTool\uId=i
	SetRect_(@InfoTool\rect,0,20*i,200,20*i+18)
	SendMessage_(InfoID,#TTM_ADDTOOL,0,InfoTool)
Next i

StickyWindow(0,OnTop)
;SetWindowPos_(InfoID,#HWND_TOPMOST,0,0,0,0,#SWP_NOREDRAW|#SWP_NOMOVE|#SWP_NOSIZE); ****

SetWindowCallback(@callback(),0)

Define event.l
Repeat

	Event=WaitWindowEvent()

	Select Event

	Case #PB_Event_CloseWindow
		exit=99


	Case #WM_PAINT
		;			WriteAll()

	EndSelect

	If Callback
		Callback=0
		OnTop=1-OnTop
		StickyWindow(0,OnTop); ****
	EndIf

Until exit

Code: Select all

#TTS_NOFADE=$20
#TTS_NOANIMATE=$10

	InfoID=CreateWindowEx_(0,"Tooltips_Class32","",#TTS_ALWAYSTIP|#TTS_NOFADE|#TTS_NOANIMATE|#WS_EX_TOPMOST,0,0,0,0,0,0,0,0);#TTS_BALLOON