PureBasic Forums - English

Code: Select all

  If MARCOAGPINTO_tooltip$<>""
    MARCOAGPINTO_tooltip$=ReplaceString(MARCOAGPINTO_tooltip$,". ","."+#LF$+#LF$)
    GadgetToolTip(MARCOAGPINTO_gadget_target,MARCOAGPINTO_tooltip$)
  EndIf

Code: Select all

Procedure TT_CBTHookProc(nCode, wParam, lParam) 
  Shared _Hook, TT_HWND
  Select nCode 
    Case #HCBT_CREATEWND 
      *pcbt.CBT_CREATEWND = lParam 
      *pcs.CREATESTRUCT = *pcbt\lpcs 
      Select PeekS(*pcs\lpszClass)
        Case "tooltips_class32"
          TT_HWND = wParam
      EndSelect
  EndSelect
  ProcedureReturn CallNextHookEx_(_Hook, nCode, wParam, lParam) 
EndProcedure

Procedure GadgetToolTipEx(gadget_number, tooltip_text$)
  Shared _Hook, TT_HWND
  _Hook = SetWindowsHookEx_(#WH_CBT, @TT_CBTHookProc(), #Null, GetCurrentThreadId_()) 
  GadgetToolTip(gadget_number, tooltip_text$)
  UnhookWindowsHookEx_(_Hook)
  ProcedureReturn TT_HWND
EndProcedure

OpenWindow(0,0,0,320,240,"")
StringGadget(1,20,40,200,20,"stuff")
ttid = GadgetToolTipEx(1, "This is a tooltip        with multiple lines  ")
SendMessage_(ttid, #TTM_SETMAXTIPWIDTH, 0, 100)
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow

Code: Select all

EnableExplicit

;Basic ToolTip nonsense... template thing

Structure TOOLTIP_STRUCT
  window.i
  List gadget.i()
EndStructure

Global tt.TOOLTIP_STRUCT

Procedure.i ttCreate(Window.i)
  With tt
    If IsWindow(Window)
      If Not \window
        \window = OpenWindow(#PB_Any,#Null,#Null,320,200,#Null$,#PB_Window_Invisible|#PB_Window_BorderLess,Window)
        If \window
          SetWindowColor(\window,#Red)
        EndIf
      EndIf
    EndIf
    ProcedureReturn Bool(\window <> #Null)
  EndWith
EndProcedure

Procedure.i ttAdd(Gadget.i)
  With tt
    If IsGadget(Gadget)
      If AddElement(\gadget())
        \gadget() = Gadget
        ProcedureReturn #True
      EndIf
    EndIf
    ProcedureReturn #False
  EndWith
EndProcedure

Procedure.i ttEvent(Window.i)
  Protected.i x,y,gx,gy,gw,gh,gf
  With tt
    x = WindowMouseX(Window)
    y = WindowMouseY(Window)
    ForEach \gadget()
      gx = GadgetX(\gadget())
      gy = GadgetY(\gadget())
      gw = gx + GadgetWidth(\gadget())
      gh = gx + GadgetHeight(\gadget())
      If x >= gx And y >= gy And x < gw And y < gh
        gf = #True
        Break
      EndIf
    Next
    If gf
      x + WindowX(Window,#PB_Window_InnerCoordinate)
      y + WindowY(Window,#PB_Window_InnerCoordinate)
      ResizeWindow(\window,x,y,#PB_Ignore,#PB_Ignore)
      HideWindow(\window,#False) 
    Else
      HideWindow(\window,#True)
    EndIf
    ProcedureReturn #Null
  EndWith
EndProcedure

Procedure.i Main()
  If OpenWindow(0,0,0,800,600,"Dummy",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    ButtonGadget(1,10,10,200,30,"Hello World!")
    ttCreate(0)
    ttAdd(1)
    Repeat
    ttEvent(0)
    Until WaitWindowEvent() = #PB_Event_CloseWindow
    CloseWindow(0)  
  EndIf
  ProcedureReturn #Null
EndProcedure

End Main()

Code: Select all

EnableExplicit

Procedure.i ToolTip(Gadget.i,Text.s)
  Protected hwnd.i
  Protected ti.TOOLINFO
  If IsGadget(Gadget)
    ti\cbSize = SizeOf(TOOLINFO)
    ti\uFlags = #TTF_SUBCLASS
    ti\hWnd = GadgetID(Gadget)
    ti\hInst = GetModuleHandle_(#Null)
    ti\lpszText = SysAllocString_(Text) 
    ti\rect\left = GadgetX(Gadget)
    ti\rect\top = GadgetY(Gadget)
    ti\rect\right = ti\rect\left + GadgetWidth(Gadget)
    ti\rect\bottom = ti\rect\top + GadgetHeight(Gadget)
    hwnd = CreateWindowEx_(#Null,#TOOLTIPS_CLASS,#Null,
                                   #WS_POPUP|#TTS_ALWAYSTIP,
                                   #CW_USEDEFAULT,#CW_USEDEFAULT,#CW_USEDEFAULT,
                                   #CW_USEDEFAULT,ti\hWnd,#Null,ti\hInst,#Null)
    If hwnd
      SendMessage_(hwnd,#TTM_ADDTOOL,#Null,@ti)
      SendMessage_(hwnd,#TTM_SETMAXTIPWIDTH,#Null,150)
      ProcedureReturn #True
    EndIf
    If ti\lpszText
      SysFreeString_(ti\lpszText)
    EndIf
  EndIf
  ProcedureReturn #False
EndProcedure

Procedure.i Main()
  If OpenWindow(0,0,0,800,600,"Dummy",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    ButtonGadget(1,10,10,200,30,"Hello World!")
    ToolTip(1,"Hello World!" + #CR$ + "How does this magic work?" + #CR$ + "Black Magic!!!!")
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
    CloseWindow(0)  
  EndIf
  ProcedureReturn #Null
EndProcedure

End Main()

Code: Select all

Structure PB_Globals
  CurrentWindow.i
  FirstOptionGadget.i
  DefaultFont.i
  *PanelStack
  PanelStackIndex.l
  PanelStackSize.l
  ToolTipWindow.i
EndStructure

Import ""
  PB_Object_GetThreadMemory(*Mem)
  PB_Gadget_Globals
EndImport

Procedure ToolTipHandle()
  Protected *PB_G.PB_Globals
  *PB_G = PB_Object_GetThreadMemory(PB_Gadget_Globals)
  ProcedureReturn *PB_G\ToolTipWindow
EndProcedure

If OpenWindow(0, 0, 0, 300, 100, "GadgetTooltip", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ButtonGadget(0, 10, 10, 250, 30, "Button with Tooltip") 
  GadgetToolTip(0, "Tooltip for Button and Now with More Lines")
  
  ButtonGadget(1, 10, 50, 250, 30, "Button with Tooltip") 
  GadgetToolTip(1, "Button #2 Tooltip and Now with More Lines")
  
  ttip = ToolTipHandle() 
  SetWindowLongPtr_(ttip, #GWL_STYLE, GetWindowLongPtr_(ttip, #GWL_STYLE) | #TTS_ALWAYSTIP| #TTS_NOPREFIX| #WS_POPUP)
  
  SendMessage_(ttip,#TTM_SETMAXTIPWIDTH,0,150)
  LoadFont(0, "Tahoma",12,#PB_Font_HighQuality)
  SendMessage_(ttip,#WM_SETFONT,FontID(0),0)
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf