130 replies to this topic

[guest3456]

thanks

though now i realize that you cannot change the tooltip colors in vista/win7, bummer

[HotKeyIt]

You can but in Vista/7 you will need to disable theme.

Q - Quench Style/Theme. Use this to disable Theme of ToolTip.

[guest3456]

sweet thanks man

couple of questions.

1. is it possible to adapt the font code from your AHKL TT() lib to this one?

2. the only way i could get it to follow the mouse is to put it in a loop. but the problem is that it flickers/blinks a lot. i had the same problem when i ran your InfoToolTip example

#include Tooltip.ahk
#include RemoteBuf.ahk

Loop
   Tooltip(1, "my text", "my title")

3. i think your docs are wrong for the Edge option, my testing showed Eleft.top.right.bottom

E - Edges for ToolTip, Use this to set margin of ToolTip window (space between text and border)
- Supply Etop.left.bottom.right in pixels, for example: E10.0.10.5

4. i dont see these functions included anywhere?

I - Icon 1-3, e.g. I1. If this option is missing no Icon will be used (same as I0)
- 1 = Info, 2 = Warning, 3 = Error, > 3 is meant to be a hIcon (handle to an Icon)
Use Included MI_ExtractIcon and GetAssociatedIcon functions to get hIcon

5. the second example isn't working for me. all tooltips are empty.

#include Tooltip.ahk
#include RemoteBuf.ahk

OnMessage(0x4e,"WM_NOTIFY")
Gui,Add,Button,,Time
Gui,Add,Button,,Username
Gui,Add,Button,,User is Admin?
Gui,Add,Button,,IP addresses
Loop 4
   ToolTip("Button1"," ","","p1 aButton" . A_Index)
gui,show
Sleep, 3000
ToolTip("Button1","hallo","","G1")
Return

WM_NOTIFY(wParam,lParam){
   If (control:=ToolTip("",lparam)){
      Tool:=ErrorLevel
      MouseGetPos,,,,ClassNN
      If (ClassNN="Button1"){
         FormatTime,text,%A_Now%,HH:mm:ss
         Title:="Time"
      } else if (ClassNN="Button2"){
         text:=A_UserName,title:="UserName"
      } else if (ClassNN="Button3"){
         text:=(A_ISAdmin ? "Yes" : "No"),title:="User is Admin?"
      } else if (ClassNN="Button4"){
         text:= "1: " A_IPAddress1 "`n2: " A_IPAddress2 "`n3: " A_IPAddress3 "`n4: " A_IPAddress4
         title:="IP Addresses"
      }
      ToolTip(control,text,title,"G1 A" . ErrorLevel)
   }
}

GuiClose:
ExitApp

win7, ahk basic

[guest3456]

1. is it possible to adapt the font code from your AHKL TT() lib to this one?

well i went ahead and added this myself
i used the K option since it looked like it was un-used

new font option

| K | Font. Specify the font for the tooltip. Separate options with a period "."
| | Valid options are bold,underline,italic,strikeout,sFONTSIZE,fFONTFACE
| | Limitations: FONTFACE cannot include spaces
| | Examples: Ks12.fArial , Kbold.italic.fVerdana

example

#include Tooltip.ahk
#include RemoteBuf.ahk

Tooltip(1, "my text`nhelloworld", "my title", "Ks16.italic.fArial")

return

<!-- m -->http://diffchecker.com/Vr71hdyD<!-- m -->

/*
ToolTip() by HotKeyIt http://www.autohotkey.com/forum/viewtopic.php?t=40165

Syntax: ToolTip(Number,Text,Title,Options)

Return Value: ToolTip returns hWnd of the ToolTip

|         Options can include any of following parameters separated by space
| Option   |      Meaning
| A      |   Aim ConrolId or ClassNN (Button1, Edit2, ListBox1, SysListView321...)
|         |   - using this, ToolTip will be shown when you point mouse on a control
|         |   - D (delay) can be used to change how long ToolTip is shown
|         |   - W (wait) can wait for specified seconds before ToolTip will be shown
|         |   - Some controls like Static require a subroutine to have a ToolTip!!!
| B + F   |   Specify here the color for ToolTip in 6-digit hexadecimal RGB code
|         |   - B = Background color, F = Foreground color (text color)
|         |   - this can be 0x00FF00 or 00FF00 or Blue, Lime, Black, White...
| C      |   Close button for ToolTip/BalloonTip. See ToolTip actions how to use it
| D      |   Delay. This option will determine how long ToolTip should be shown.30 sec. is maximum
|         |   - this option is also available when assigning the ToolTip to a control.
| E      |   Edges for ToolTip, Use this to set margin of ToolTip window (space between text and border)
|         |   - Supply Etop.left.bottom.right in pixels, for example: E10.0.10.5
| G      |   Execute one or more internal Labels of ToolTip function only.
|         |   For example:
|         |   - Track the position only, use ToolTip(1,"","","Xcaret Ycaret gTTM_TRACKPOSITION")
|         |      - When X+Y are empty (= display near mouse position) you can use TTM_UPDATE
|         |   - Update text only, use ToolTip(1,"text","","G1"). Note specify L1 if links are used.
|         |   - Update title only, use ToolTip(1,"","Title","G1")
|         |   - Hide ToolTip, use ToolTip(1,"","","gTTM_POP")
|         |      - To show ToolTip again use ToolTip(1,"","","gTTM_TRACKPOSITION.TTM_TRACKACTIVATE")
|         |   - Update background color + text color, specify . between gLabels to execute several:
|         |      - ToolTip(1,"","","BBlue FWhite gTTM_SETTIPBKCOLOR.TTM_SETTIPTEXTCOLOR")
|         |   - Following labels can be used: TTM_SETTITLEA + TTM_SETTITLEW (title+I), TTM_POPUP, TTM_POP
|         |     TTM_SETTIPBKCOLOR (B), TTM_SETTIPTEXTCOLOR (F), TTM_TRACKPOSITION (N+X+Y),
|         |     TTM_SETMAXTIPWIDTH (R), TTM_SETMARGIN (E), TT_SETTOOLINFO (text+A+P+N+X+Y+S+L)
|         |     TTM_SETWINDOWTHEME (Q)
| H      |   Hide ToolTip after a link is clicked.See L option
| I      |   Icon 1-3, e.g. I1. If this option is missing no Icon will be used (same as I0)
|         |   - 1 = Info, 2 = Warning, 3 = Error, > 3 is meant to be a hIcon (handle to an Icon)
|         |   Use Included MI_ExtractIcon and GetAssociatedIcon functions to get hIcon
| J      |   Justify ToolTip to center of control
| K      |   Font. Specify the font for the tooltip. Separate options with a period "." 
|        |   Valid options are bold,underline,italic,strikeout,sFONTSIZE,fFONTFACE
|        |   Limitations: FONTFACE cannot include spaces
|        |   Examples: Ks12.fArial , Kbold.italic.fVerdana
|        |   (by guest3456 http://www.autohotkey.com/community/viewtopic.php?p=559224#p559224)
| L      |   Links for ToolTips. See ToolTip actions how Links for ToolTip work.
| M      |   Mouse click-trough. So a click will be forwarded to the window underneath ToolTip
| N      |   Do NOT activate ToolTip (N1), To activate (show) call ToolTip(1,"","","gTTM_TRACKACTIVATE")
| O      |   Oval ToolTip (BalloonTip). Specify O1 to use a BalloonTip instead of ToolTip.
| P      |   Parent window hWnd or GUI number. This will assign a ToolTip to a window.
|         |   - Reqiered to assign ToolTip to controls and actions.
| Q      |   Quench Style/Theme. Use this to disable Theme of ToolTip.
|         |   Using this option you can have for example colored ToolTips in Vista.
| R      |   Restrict width. This will restrict the width of the ToolTip.
|         |   So if Text is to long it will be shown in several lines
| S      |   Show at coordinates regardless of position. Specify S1 to use that feature
|         |   - normally it is fed automaticaly to show on screen
| T      |   Transparency. This option will apply Transparency to a ToolTip.
|         |   - this option is not available to ToolTips assigned to a control.
| V      |   Visible: even when the parent window is not active, a control-ToolTip will be shown
| W      |   Wait time in seconds (max 30) before ToolTip pops up when pointing on one of controls.
| X + Y   |   Coordinates where ToolTip should be displayed, e.g. X100 Y200
|         |   - leave empty to display ToolTip near mouse
|         |   - you can specify Xcaret Ycaret to display at caret coordinates
|
|          To destroy a ToolTip use ToolTip(Number), to destroy all ToolTip()
|
|               ToolTip Actions (NOTE, OPTION P MUST BE PRESENT TO USE THAT FEATURE)
|      Assigning an action to a ToolTip to works using OnMessage(0x4e,"Function") - WM_NOTIFY
|      Parameter/option P must be present so ToolTip will forward messages to script
|      All you need to do inside this OnMessage function is to include:
|         - If wParam=0
|            ToolTip("",lParam[,Label])
|
|      Additionally you need to have one or more of following labels in your script
|      - ToolTip: when clicking a link
|      - ToolTipClose: when closing ToolTip
|         - You can also have a diferent label for one or all ToolTips
|         - Therefore enter the number of ToolTip in front of the label
|            - e.g. 99ToolTip: or 1ToolTipClose:
|
|      - Those labels names can be customized as well
|         - e.g. ToolTip("",lParam,"MyTip") will use MyTip: and MyTipClose:
|         - you can enter the number of ToolTip in front of that label as well.
|
|      - Links have following syntax:
|         - <a>Link</a> or <a link>LinkName</a>
|         - When a Link is clicked, ToolTip() will jump to the label
|            - Variable ErrorLevel will contain clicked link
|
|         - So when only LinkName is given, e.g. <a>AutoHotkey</a> Errorlevel will be AutoHotkey
|         - When using Link is given as well, e.g. <a http://www.autohotkey.com>AutoHotkey</a>
|            - Errorlevel will be set to http://www.autohotkey.com
|
|      Please note some options like Close Button and Links will require Win2000++ (+version 6.0 of comctl32.dll)
|        AutoHotKey Version 1.0.48++ is required due to "assume static mode"
|        If you use 1 ToolTip for several controls, the only difference between those can be the text.
|           - Other options, like Title, color and so on, will be valid globally
*/

ToolTip(ID="",TEXT="",TITLE="",OPTIONS=""){
   static
   local option,a,b,c,d,e,f,g,h,i,k,l,m,n,o,p,q,r,s,t,v,w,x,y,xc,yc,xw,yw,RECT,#_DetectHiddenWindows,OnMessage
   If !Init
      Gosub, TTM_INIT
   OnMessage:=OnMessage(0x4e,"")   ,DetectHiddenWindows:=A_DetectHiddenWindows
   DetectHiddenWindows, On
   If !ID
   {
      If text
         If text is Xdigit
            GoTo, TTN_LINKCLICK
      Loop, Parse, hWndArray, % Chr(2) ;Destroy all ToolTip Windows
      {
         If WinExist("ahk_id " . A_LoopField)
            DllCall("DestroyWindow","Uint",A_LoopField)
         hWndArray%A_LoopField%=
      }
      hWndArray=
      Loop, Parse, idArray, % Chr(2) ;Destroy all ToolTip Structures
      {
         TT_ID:=A_LoopField
         If TT_ALL_%TT_ID%
            Gosub, TT_DESTROY
      }
      idArray=
      Goto, TT_EXITFUNC
   }
   
   TT_ID:=ID
   TT_HWND:=TT_HWND_%TT_ID%
   
   ;___________________  Load Options Variables and Structures ___________________
   
   If (options){
      Loop,Parse,options,%A_Space%
         If (option:= SubStr(A_LoopField,1,1))
            %option%:= SubStr(A_LoopField,2)
   }
   If (G){
      ; If (Title!=""){
      Gosub, TTM_SETTITLE
         Gosub, TTM_UPDATE
      ; }
      ; If (Text!=""){
         If (InStr(text,"<a") and TOOLLINK%TT_ID%){
            TOOLTEXT_%TT_ID%:=text
            text:=RegExReplace(text,"<a\K[^<]*?>",">")
         } else
            TOOLTEXT_%TT_ID%:=
         NumPut(&text,TOOLINFO_%TT_ID%,36)
         Gosub, TTM_UPDATETIPTEXT
      ; }
      Loop, Parse,G,.
         If IsLabel(A_LoopField)
            Gosub, %A_LoopField%
      Sleep,10
    Goto, TT_EXITFUNC
   }
   ;__________________________  Save TOOLINFO Structures _________________________
   
   If P {
      If (p<100 and !WinExist("ahk_id " p)){
         Gui,%p%:+LastFound
         P:=WinExist()
      }
      If !InStr(TT_ALL_%TT_ID%,Chr(2) . Abs(P) . Chr(2))
         TT_ALL_%TT_ID%  .= Chr(2) . Abs(P) . Chr(2)
   } 
   If !InStr(TT_ALL_%TT_ID%,Chr(2) . ID . Chr(2))
      TT_ALL_%TT_ID%  .= Chr(2) . ID . Chr(2)
   If H
      TT_HIDE_%TT_ID%:=1
   ;__________________________  Create ToolTip Window  __________________________
   
   If (!TT_HWND and text)
   {
      TT_HWND := DllCall("CreateWindowEx", "Uint", 0x8, "str", "tooltips_class32", "str", "", "Uint", 0x02 + (v ? 0x1 : 0) + (l ? 0x100 : 0) + (C ? 0x80 : 0)+(O ? 0x40 : 0), "int", 0x80000000, "int", 0x80000000, "int", 0x80000000, "int", 0x80000000, "Uint", P ? P : 0, "Uint", 0, "Uint", 0, "Uint", 0)
      TT_HWND_%TT_ID%:=TT_HWND
      hWndArray .=(hWndArray ? Chr(2) : "") . TT_HWND
      idArray .=(idArray ? Chr(2) : "") . TT_ID
      Gosub, TTM_SETMAXTIPWIDTH
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", 0x403, "Uint", 2, "Uint", (D ? D*1000 : -1)) ;TTDT_AUTOPOP
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", 0x403, "Uint", 3, "Uint", (W ? W*1000 : -1)) ;TTDT_INITIAL
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", 0x403, "Uint", 1, "Uint", (W ? W*1000 : -1)) ;TTDT_RESHOW
   } else if (!text and !options){
      DllCall("DestroyWindow","Uint",TT_HWND)
      Gosub, TT_DESTROY
      GoTo, TT_EXITFUNC
   }
   
   ;______________________  Create TOOLINFO Structure  ______________________
   
   Gosub, TT_SETTOOLINFO

   If (Q!="")
      Gosub, TTM_SETWINDOWTHEME
   If (E!="")
      Gosub, TTM_SETMARGIN
   If (F!="")
      Gosub, TTM_SETTIPTEXTCOLOR
   If (B!="")
      Gosub, TTM_SETTIPBKCOLOR
   If (title!="")
      Gosub, TTM_SETTITLE
   If (K!="")
      Gosub, WM_SETFONT
   
   If (!A){
      Gosub, TTM_UPDATETIPTEXT
      Gosub, TTM_UPDATE
      If D {
         A_Timer := A_TickCount, D *= 1000
         Gosub, TTM_TRACKPOSITION
         Gosub, TTM_TRACKACTIVATE
         Loop
         {
            Gosub, TTM_TRACKPOSITION
            If (A_TickCount - A_Timer > D)
               Break
         }
         Gosub, TT_DESTROY
         DllCall("DestroyWindow","Uint",TT_HWND)
         TT_HWND_%TT_ID%=
      } else {
         Gosub, TTM_TRACKPOSITION
         Gosub, TTM_TRACKACTIVATE
         If T
            WinSet,Transparent,%T%,ahk_id %TT_HWND%
         If M
            WinSet,ExStyle,^0x20,ahk_id %TT_HWND%
      }
   }

   ;________  Return HWND of ToolTip  ________
   
   Gosub, TT_EXITFUNC
   Return TT_HWND
   
   ;________________________  Internal Labels  ________________________
   
   TT_EXITFUNC:
      If OnMessage
         OnMessage(0x4e,OnMessage)
      DetectHiddenWindows, %#_DetectHiddenWindows%
   Return
   TTM_POP:    ;Hide ToolTip
   TTM_POPUP:    ;Causes the ToolTip to display at the coordinates of the last mouse message.
   TTM_UPDATE: ;Forces the current tool to be redrawn.
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", 0, "Uint", 0)
   Return
   TTM_TRACKACTIVATE: ;Activates or deactivates a tracking ToolTip.
   DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", (N ? 0 : 1), "Uint", &TOOLINFO_%ID%)
   Return
   TTM_UPDATETIPTEXT:
   TTM_GETBUBBLESIZE:
   TTM_ADDTOOL:
   TTM_DELTOOL:
   TTM_SETTOOLINFO:
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", 0, "Uint", &TOOLINFO_%ID%)
   Return
   TTM_SETTITLE:
      title := (StrLen(title) < 96) ? title : (Chr(133) SubStr(title, -97))
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", I, "Uint", &Title)
   Return
   TTM_SETWINDOWTHEME:
      If Q
         DllCall("uxtheme\SetWindowTheme", "Uint", TT_HWND, "Uint", 0, "UintP", 0)
      else
         DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", 0, "Uint", &K)
   Return
   TTM_SETMAXTIPWIDTH:
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", 0, "Uint", R ? R : A_ScreenWidth)
   Return
   TTM_TRACKPOSITION:
      VarSetCapacity(xc, 20, 0), xc := Chr(20)
      DllCall("GetCursorInfo", "Uint", &xc)
      yc := NumGet(xc,16), xc := NumGet(xc,12)
      SysGet,xl,76
      SysGet,xr,78
      SysGet,yl,77
      SysGet,yr,79
      xc+=15,yc+=15
      If (x="caret" or y="caret"){
         WinGetPos,xw,yw,,,A
         If x=caret
         {
            xc:=xw+A_CaretX +1
            xc:=(xl>xc ? xl : (xr<xc ? xr : xc))
         }
         If (y="caret"){
            yc:=yw+A_CaretY+15
            yc:=(yl>yc ? yl : (yr<yc ? yr : yc))
         }
   } else if (x="TrayIcon" or y="TrayIcon"){
         Process, Exist
         PID:=ErrorLevel
         hWndTray:=WinExist("ahk_class Shell_TrayWnd")
         ControlGet,hWndToolBar,Hwnd,,ToolbarWindow321,ahk_id %hWndTray%
         RemoteBuf_Open(TrayH,hWndToolBar,20)
         DataH:=NumGet(TrayH,0)
         SendMessage, 0x418,0,0,,ahk_id %hWndToolBar%
         Loop % ErrorLevel
         {
            SendMessage,0x417,A_Index-1,RemoteBuf_Get(TrayH),,ahk_id %hWndToolBar%
            RemoteBuf_Read(TrayH,lpData,20)
            VarSetCapacity(dwExtraData,8)
            pwData:=NumGet(lpData,12)
            DllCall( "ReadProcessMemory", "uint", DataH, "uint", pwData, "uint", &dwExtraData, "uint", 8, "uint", 0 )
            BWID:=NumGet(dwExtraData,0)
            WinGet,BWPID,PID, ahk_id %BWID%
            If (BWPID!=PID and BWPID!=#__MAIN_PID_)
               continue
            SendMessage, 0x41d,A_Index-1,RemoteBuf_Get(TrayH),,ahk_id %hWndToolBar%
            RemoteBuf_Read(TrayH,rcPosition,20)
            If (NumGet(lpData,8)>7){
               ControlGetPos,xc,yc,xw,yw,Button2,ahk_id %hWndTray%
               xc+=xw/2, yc+=yw/4
            } else {
               ControlGetPos,xc,yc,,,ToolbarWindow321,ahk_id %hWndTray%
               halfsize:=NumGet(rcPosition,12)/2
               xc+=NumGet(rcPosition,0)+ halfsize
               yc+=NumGet(rcPosition,4)+ (halfsize/2)
            }
            WinGetPos,xw,yw,,,ahk_id %hWndTray%
            xc+=xw,yc+=yw
            break
         }
         RemoteBuf_close(TrayH)
      }
      If xc not between %xl% and %xr%
         xc=xc<xl ? xl : xr
      If yc not between %yl% and %yr%
         yc=yc<yl ? yl : yr
      If (!x and !y)
         Gosub, TTM_UPDATE
      else if !WinActive("ahk_id " . TT_HWND)
         DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", 0, "Uint", (x<9999999 ? x : xc & 0xFFFF)|(y<9999999 ? y : yc & 0xFFFF)<<16)
   Return
   TTM_SETTIPBKCOLOR:
      If B is alpha
         If (%b%)
            B:=%b%
      B := (StrLen(B) < 8 ? "0x" : "") . B
      B := ((B&255)<<16)+(((B>>8)&255)<<8)+(B>>16) ; rgb -> bgr
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", B, "Uint", 0)
   Return
   TTM_SETTIPTEXTCOLOR:
      If F is alpha
         If (%F%)
            F:=%f%
      F := (StrLen(F) < 8 ? "0x" : "") . F
      F := ((F&255)<<16)+(((F>>8)&255)<<8)+(F>>16) ; rgb -> bgr
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint",F & 0xFFFFFF, "Uint", 0)
   Return
   TTM_SETMARGIN:
      VarSetCapacity(RECT,16)
      Loop,Parse,E,.
         NumPut(A_LoopField,RECT,(A_Index-1)*4)
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", %A_ThisLabel%, "Uint", 0, "Uint", &RECT)
   Return
   TT_SETTOOLINFO:
      If A {
         If A is not Xdigit
            ControlGet,A,Hwnd,,%A%,ahk_id %P%
         ID :=Abs(A)
         If !InStr(TT_ALL_%TT_ID%,Chr(2) . ID . Chr(2))
            TT_ALL_%TT_ID%  .= Chr(2) . ID . Chr(2) . ID+Abs(P) . Chr(2)
         If !TOOLINFO_%ID%
            VarSetCapacity(TOOLINFO_%ID%, 40, 0),TOOLINFO_%ID%:=Chr(40)
         else
            Gosub, TTM_DELTOOL
         Numput((N ? 0 : 1)|(J ? 2 : 0)|(L ? 0x1000 : 0)|16,TOOLINFO_%ID%,4),Numput(P,TOOLINFO_%ID%,8),Numput(ID,TOOLINFO_%ID%,12)
         If (text!="")
            NumPut(&text,TOOLINFO_%ID%,36)
         Gosub, TTM_ADDTOOL
      ID :=ID+Abs(P)
         If !TOOLINFO_%ID%
         {
            VarSetCapacity(TOOLINFO_%ID%, 40, 0),TOOLINFO_%ID%:=Chr(40)
            Numput(0|16,TOOLINFO_%ID%,4), Numput(P,TOOLINFO_%ID%,8), Numput(P,TOOLINFO_%ID%,12)
         }
         Gosub, TTM_ADDTOOL
         ID :=Abs(A)
      } else {
         If !TOOLINFO_%ID%
            VarSetCapacity(TOOLINFO_%ID%, 40, 0),TOOLINFO_%ID%:=Chr(40)
         If (text!=""){
            If InStr(text,"<a"){
               TOOLTEXT_%ID%:=text
               text:=RegExReplace(text,"<a\K[^<]*?>",">")
            } else
               TOOLTEXT_%ID%:=
            NumPut(&text,TOOLINFO_%ID%,36)
         }
      NumPut((J ? 2 : 0)|(!(x . y) ? 0 : 0x20)|(S ? 0x80 : 0)|(L ? 0x1000 : 0),TOOLINFO_%ID%,4), Numput(P,TOOLINFO_%ID%,8), Numput(P,TOOLINFO_%ID%,12)
         Gosub, TTM_ADDTOOL
      }
    TOOLLINK%ID%:=L
  Return
   TTN_LINKCLICK:
      Loop 4
         m += *(text + 8 + A_Index-1) << 8*(A_Index-1)
      If !(TTN_FIRST-2=m or TTN_FIRST-3=m)
         Return, OnMessage ? OnMessage(0x4e,OnMessage) : 0
      Loop 4
         p += *(text + 0 + A_Index-1) << 8*(A_Index-1)
      If (TTN_FIRST-3=m)
         Loop 4
            option += *(text + 16 + A_Index-1) << 8*(A_Index-1)
      Loop,Parse,hWndArray,% Chr(2)
         If (p=A_LoopField and i:=A_Index)
            break
      Loop,Parse,idArray,% Chr(2)
      {
         If (i=A_Index){
            text:=TOOLTEXT_%A_LoopField%
            If (TTN_FIRST-2=m){
               If Title
               {
                  If IsLabel(A_LoopField . title . "Close")
                     Gosub % A_LoopField . title . "Close"
                  else If IsLabel(title . "Close")
                     Gosub % title . "Close"
               } else {
                  If IsLabel(A_LoopField . A_ThisFunc . "Close")
                     Gosub % A_LoopField . A_ThisFunc . "Close"
                  else If IsLabel(A_ThisFunc . "Close")
                     Gosub % A_ThisFunc . "Close"
               }
            } else If (InStr(TOOLTEXT_%A_LoopField%,"<a")){
               Loop % option+1
                  StringTrimLeft,text,text,% InStr(text,"<a")+1
               If TT_HIDE_%A_LoopField%
                  %A_ThisFunc%(A_LoopField,"","","gTTM_POP")
               If ((a:=A_AutoTrim)="Off")
                  AutoTrim, On
               ErrorLevel:=SubStr(text,1,InStr(text,">")-1)
               StringTrimLeft,text,text,% InStr(text,">")
               text:=SubStr(text,1,InStr(text,"</a>")-1)
               If !ErrorLevel
                  ErrorLevel:=text
               ErrorLevel=%ErrorLevel%
               AutoTrim, %a%
               If Title
               {
                  If IsFunc(f:=(A_LoopField . title))
                     %f%(ErrorLevel)
                  else if IsLabel(A_LoopField . title)
                     Gosub % A_LoopField . title
                  else if IsFunc(title)
                     %title%(ErrorLevel)
                  else If IsLabel(title)
                     Gosub, %title%
               } else {
                  if IsFunc(f:=(A_LoopField . A_ThisFunc))
                     %f%(ErrorLevel)
                  else If IsLabel(A_LoopField . A_ThisFunc)
                     Gosub % A_LoopField . A_ThisFunc
                  else If IsLabel(A_ThisFunc)
                     Gosub % A_ThisFunc
               }
            }
            break
         }
      }
      DetectHiddenWindows, %#_DetectHiddenWindows%
   Return OnMessage ? OnMessage(0x4e,OnMessage) : 0
   TT_DESTROY:
      Loop, Parse, TT_ALL_%TT_ID%,% Chr(2)
         If A_LoopField
         {
            ID:=A_LoopField
            Gosub, TTM_DELTOOL
            TOOLINFO_%A_LoopField%:="", TT_HWND_%A_LoopField%:="", TOOLTEXT_%A_LoopField%:="", TT_HIDE_%A_LoopField%:="",TOOLLINK%A_LoopField%:=""
         }
      TT_ALL_%TT_ID%=
   Return
      
   TTM_INIT:
   Init:=1
   ; Messages
   TTM_ACTIVATE := 0x400 + 1,   TTM_ADDTOOL := A_IsUnicode ? 0x432 : 0x404,   TTM_DELTOOL := A_IsUnicode ? 0x433 : 0x405
   ,TTM_POP := 0x41c, TTM_POPUP := 0x422,   TTM_UPDATETIPTEXT := 0x400 + (A_IsUnicode ? 57 : 12)
   ,TTM_UPDATE := 0x400 + 29, TTM_SETTOOLINFO := 0x409,   TTM_SETTITLE := 0x400 + (A_IsUnicode ? 33 : 32)
   ,TTN_FIRST := 0xfffffdf8,   TTM_TRACKACTIVATE := 0x400 + 17,   TTM_TRACKPOSITION := 0x400 + 18
   ,TTM_SETMARGIN:=0x41a, TTM_SETWINDOWTHEME:=0x200b, TTM_SETMAXTIPWIDTH:=0x418,TTM_GETBUBBLESIZE:=0x41e
   ,TTM_SETTIPBKCOLOR:=0x413,   TTM_SETTIPTEXTCOLOR:=0x414
   ;Colors
   ,Black:=0x000000, Green:=0x008000,Silver:=0xC0C0C0
   ,Lime:=0x00FF00, Gray:=0x808080, Olive:=0x808000
   ,White:=0xFFFFFF, Yellow:=0xFFFF00, Maroon:=0x800000
   ,Navy:=0x000080, Red:=0xFF0000, Blue:=0x0000FF
   ,Purple:=0x800080, Teal:=0x008080, Fuchsia:=0xFF00FF
   ,Aqua:=0x00FFFF
   Return
   WM_SETFONT:      
      ;set defaults
      italic := 0, underline := 0, strikeout := 0, weight := 400
      height := 10, fontFace := "MS Sans Serif"
      ;parse font 
      Loop,Parse,K,.
      {
         if (A_LoopField = "italic")
            italic := 1
         else if (A_LoopField = "underline")
            underline := 1
         else if (A_LoopField = "strikeout")
            strikeout := 1
         else if (A_LoopField = "bold")
            weight := 700
         else if (SubStr(A_LoopField, 1, 1) = "s") || (SubStr(A_LoopField, 1, 1) = "S")
            height := SubStr(A_LoopField, 2)
         else if (SubStr(A_LoopField, 1, 1) = "f") || (SubStr(A_LoopField, 1, 1) = "F")
            fontFace := SubStr(A_LoopField, 2)
      }
      ;scale height 
      RegRead, LogPixels, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontDPI, LogPixels 
      height := -DllCall("MulDiv", "int", Height, "int", LogPixels, "int", 72) 
      ;create font 
      If hFont
         DllCall("DeleteObject","uint", hfont)
      hFont   := DllCall("CreateFont", "int",  height, "int",  0, "int",  0, "int", 0 
                         ,"int",  weight,   "Uint", italic,   "Uint", underline 
                         ,"uint", strikeOut, "Uint", 0, "Uint", 0, "Uint", 0, "Uint", 0, "Uint", 0, "str", fontFace,"uint") 
      DllCall("SendMessage", "Uint", TT_HWND, "Uint", WM_SETFONT := 0x30, "Uint", hFont, "Uint", true)
   return
}

[HotKeyIt]

Thank you, I added notes and link in main post

[guest3456]

cool

did you see my other questions above?

[HotKeyIt]

2. Try this

MouseGetPos,x,y
   Tooltip(1, "", "","gTTM_TRACKPOSITION x" x " y" y)

3. Docs updated, thanks.
4. Functions were added.
5. Should be fixed now

[guest3456]

excellent thank you sir

[guest3456]

hey man

any reason for this behavior? it seems using WinClose on the gui doesn't really close out the window when a tooltip has been displayed.

f2 hotkey works as expected, f3 hotkey does not

 

f2::
   Gui, +lastfound
   guihwnd := WinExist()
   Gui, show, x0 y0 w100 h100, hellworld
   msgbox, % "gui exist? = " WinExist("ahk_id " guihwnd)
   WinClose, ahk_id %guihwnd%
   msgbox, % "gui exist? = " WinExist("ahk_id " guihwnd)
   Gui, Destroy
return


f3::
   Gui, +lastfound
   guihwnd := WinExist()
   Gui, show, x0 y0 w100 h100, hellworld
   Tooltip(1, "message", "title", "Q1 B202020 FFAFAFA E10.10.5.10 X200 Y200")
   sleep, 1000
   ToolTip(1)   ;// doesn't seem to matter whether i remove the TT or not
   msgbox, % "gui exist? = " WinExist("ahk_id " guihwnd)
   WinClose, ahk_id %guihwnd%
   msgbox, % "gui exist? = " WinExist("ahk_id " guihwnd)
   Gui, Destroy
return


esc::
   ExitApp
return


#include Tooltip.ahk

[HotKeyIt]

That should be alright now, DetectHiddenWindows was not set back properly.

[guest3456]

ah ok i see the typo. thanks!