AHKv2: Crea ToolTips, personaliza la fuente e icono [23/03/2019]

[Flipeador]

Crea ToolTip's personalizados. Permite modificar el texto, título, ícono y fuente.

---

https://github.com/flipeador/Library-AutoHotkey/tree/master/gui/ToolTip

[Hola plis ayuda]

Hola amigo quería preguntarte como es que funciona las clases.
1. Se debe de estar ejecutando la clase
2. o debe de estar en la misma direccion
3. o debe de estar en la carpeta libs
4. por q me sale error al tratar de ejecutar esta clase:

Spoiler

---------------------------
Class_ToolTip.ahk
---------------------------
Error: Call to nonexistent function.

Specifically: SysGet(78)) ? X - (X + W - VW) : X

Line#
052: if (Text = ""), this.Hide()
053: Else
053: {
054: if (X = "" || Y = "")
054: {
055: VarSetCapacity(POINT, 8, 0), this.GetPos(,, W, H)
056: DllCall("User32.dll\GetCursorPos", "Ptr", &POINT)
---> 058: if (X = ""), X := NumGet(POINT, 0, "Int") + 10, this.X := X := X + (this.W:=W) > (VW:=SysGet(78)) ? X - (X + W - VW) : X
059: if (Y = ""), Y := NumGet(POINT, 4, "Int") + 10, this.Y := Y := Y + (this.H:=H) > SysGet(79) ? Y - H - 10 : Y
060: }
062: this.Move(X, Y)
063: if (!this.Visible) , this.Visible := true
064: if !(this.Text == Text) , this.Text := Text
065: }
066: }

The program will exit.
---------------------------
Aceptar
---------------------------

eso me sale y en el ejemplo:

Spoiler

---------------------------
ejemplo.ahk
---------------------------
Error: Call to nonexistent function.

Specifically: Sleep(50)

Line#
002: TT.SetTitle("ToolTip 1", 1)
003: TT.SetFont("s12 Italic Underline", "Courier New")
005: TT2 := new _ToolTip("ToolTip 2",, 2)
007: Loop
007: {
008: TT.Show("My ToolTip Text")
010: TT2.Show("ToolTip 1: x%TT.X% y%TT.Y% w%TT.W% h%TT.H%", 10, 10)
---> 012: Sleep(50)
013: }
014: Return
016: Return
016: ExitApp
016: Return
017: Exit

The program will exit.
---------------------------
Aceptar
---------------------------

Pues eso es todo espero su ayuda y gracias.

[Flipeador]

Hola,
¿Que versión de AutoHotkey estás utilizando?
Todos mis scripts están escritos para trabajar únicamente con la versión 2 de AutoHotkey (la versión 1 es realmente un asco), Pero debido a que se están haciendo muchos cambios (véase Proposed New GUI API for AutoHotkey v2 y Replacing percent signs) he abandonado de momento todos mis scripts, por lo cual no los voy a actualizar más ni crear nuevos, por lo menos hasta que no esté finalizada la versión 2. Edito* Estoy actualizando mis scripts de a poco, utilizando la nueva clase GUI.

---

Clase reescrita el 23/03/2019.

[iPhilip]

Hi Flipdeador,

I hope you don't mind me posting this in English. My Spanish is not that good. I studied your class carefully as I am trying to learn more about how tooltips are handled and I found a problem with your class, specifically in the GetPos() method. The script below demonstrates the issue:

Code: Select all

F3::
TT := New _ToolTip()
CoordMode("Mouse")
MouseMove(SysGet(78)-50, A_ScreenHeight//2, 0)  ; Move close to the right edge of the virtual screen
TT.Show("My ToolTip Text")
Return

As you can see the tooltip "runs over" the edge of the virtual screen. The code in the Show() method tries to prevent that from happening. The issue seems to be with the TTM_GETBUBBLESIZE message (0x041E). If it's called before the tooltip is activated via the TTM_TRACKACTIVATE message (0x0411), it returns incorrect values for the width (14) and height (6) of the tooltip. This post seems to suggest that it's possible to get the size of the tooltip before it's activated but I wasn't able to figure out how to do it.

I look forward to your ideas on a possible solution.

Cheers!

- iPhilip

[Flipeador]

Hello @iPhilip, thank you for your comment, I have rewritten the class, try again.
I have removed methods that probably nobody would use, and now, first the tooltip is displayed, and then it is repositioned.