Comparar texto

Encuentra la diferencia entre dos archivos de texto

Real-time diff

Unified diff

Collapse lines

Highlight change

Syntax highlighting

Herramientas

Diffchecker Desktop The most secure way to run Diffchecker. Get the Diffchecker Desktop app: your diffs never leave your computer!Get Desktop

Untitled diff

Created 10 years agoDiff never expires

Lines
Total
Removed

Words
Total
Removed

To continue using this feature, upgrade to Diffchecker Pro View Pricing

491 lines

Lines
Total
Added

Words
Total
Added

To continue using this feature, upgrade to Diffchecker Pro View Pricing

529 lines

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

}

Diffs guardadas

Texto original

Abrir archivo

/*
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
| 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 (!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
}

Texto modificado

Abrir archivo

/*
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
*/

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%
      }
   }