Let's help each other out
https://www.autohotkey.com/boards/
Code: Select all
TT_SetMaxWidth(MaxWidth := -1, hwnd := "") {
; see https://msdn.microsoft.com/library/bb760408
WM_USER := 1024
TTM_SETMAXTIPWIDTH := (WM_USER+24)
SendMessage, %TTM_SETMAXTIPWIDTH%, 0, %MaxWidth%, , ahk_id %hwnd%
return %ErrorLevel%
}Yes, this is after displaying! What about beforehand?I suppose you can simply use WinGetPos to get the dimensions of the tooltip.
I have been using the Fnt library for this. It has functions that return size given the text you want to display. https://autohotkey.com/boards/viewtopic.php?t=4379Yes, this is after displaying! What about beforehand?
Code: Select all
#NoEnv
#Warn
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
#include, TooltipFont.ahk
;~ #include, Fnt.ahk
ToolTipFont("s32", "Magneto")
ToolTipColor("c0ffc0", "800080")
EText := "Madrugada"
Gui, font, s14
Gui, Add, Edit, xm w175
Gui, Add, Button, y+m gBLabel, Show ToolTipFont
Gui, Show, x300, Window
ControlSend,, {Tab}, Window ahk_class AutoHotkeyGUI
Return
GuiEscape:
GuiClose:
ExitApp
return
BLabel:
;gui Submit,NoHide
ControlSetText, Edit1, % "", Window ahk_class AutoHotkeyGUI ;works
ToolTip, Hello ToolTipFont!, -250, 345
;~ ToolTipFnt("s32", "Magneto")
sleep, 1000
Msgbox Cancel_ToolTipFont & Set_Text`nTo Edit_Control !
Clipboard:=""
Clipboard:=EText
ClipWait
;ToolTip
;sleep, 500
;~ SendMessage, 0xC, , "Anochecer", Edit1, Window ahk_class AutoHotkeyGUI ;doesn't work
SendMessage, 0xC, , &EText, Edit1, Window ahk_class AutoHotkeyGUI ;doesn't work
;~ ControlSetText, Edit1, % EText, Window ahk_class AutoHotkeyGUI ;works
Sleep, 500
ToolTip
return
exitapp
3. Dialogs display blank if mouse cursor is off field where they appear or off field of script's Gui if visible (not allways reproducible, see pic.)---------------------------
Limitations 4 TTF.ahk
---------------------------
Error in #include file "TooltipFont 1.005.ahk":
SetClipboardData
059: } Sleep,- 1
---> 060: Return,DllCall("CallNextHookEx", "ptr", 0, "int", nCode, "ptr", _wp, "ptr", _lp, "ptr")
061: }
The current thread will exit.
---------------------------
OK
---------------------------
Code: Select all
#NoEnv
#SingleInstance Force
#Persistent
DetectHiddenWindows, On
DetectHiddenText, On
ToolTipFont("s16")
HookProcAdr := RegisterCallback( "HookProc", "F" )
hWinEventHook := SetWinEventHook( 0x8000, 0x8003, 0, HookProcAdr, 0, 0, 0 ) ; create, destroy, show and hide events
Return
#Include, C:\Users\RRR\My Ahk-s\ToolTipFont.ahk
HookProc( hWinEventHook, Event, hWnd, idObject, idChild, dwEventThread, dwmsEventTime )
{
if Event
{
WinGetClass, class, ahk_id %hWnd%
If (class = "tooltips_class32")
ToolTipFont(,, hwnd)
}
}
SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
DllCall("CoInitialize", Uint, 0)
return DllCall("SetWinEventHook"
, Uint,eventMin
, Uint,eventMax
, Uint,hmodWinEventProc
, Uint,lpfnWinEventProc
, Uint,idProcess
, Uint,idThread
, Uint,dwFlags)
}
UnhookWinEvent()
{
Global
DllCall( "UnhookWinEvent", Uint,hWinEventHook )
DllCall( "GlobalFree", UInt,&HookProcAdr ) ; free up allocated memory for RegisterCallback
}
+Esc::
HandleExit:
UnhookWinEvent()
ExitApp
Return
!F2::
SoundBeep, 800, 300
UnhookWinEvent()
Reload
return
I have a ToolTip class for AHK v2, maybe you're interested, it's in the forum in Spanish but it includes an example. Personally I think it should be implemented natively in the versión 2. I created this class based on GuiControlTips by just me, all credits for him..chegr wrote:I'd expected to see this natively in v2, but nope! I'll try to get it working...
Code: Select all
#SingleInstance force
/*
Error: SetClipboardData
---> 076: Return,DllCall("CallNextHookEx", "ptr", 0, "int", nCode, "ptr", _wp, "ptr", _lp, "ptr")
*/
ToolTipFont("s9 w400", "Tahoma")
ToolTipColor("FAFAEE", "000000")
return
~^g:: Gosub, test
test:
last_clipboard = %clipboard%
last_clipboard:=Trim(last_clipboard)
Send, ^c
clipboard:=Trim(clipboard)
clipboard = %last_clipboard%` %clipboard%
ToolTip, % clipboard
return
ToolTipFont(Options := "", Name := "", hwnd := ""){ ;lexikos https://autohotkey.com/boards/viewtopic.php?t=4777
static hfont := 0
if (hwnd = "")
hfont := Options="Default" ? 0 : _TTG("Font", Options, Name), _TTHook()
else
DllCall("SendMessage", "ptr", hwnd, "uint", 0x30, "ptr", hfont, "ptr", 0)
}
ToolTipColor(Background := "", Text := "", hwnd := ""){
static bc := "", tc := ""
if (hwnd = "") {
if (Background != "")
bc := Background="Default" ? "" : _TTG("Color", Background)
if (Text != "")
tc := Text="Default" ? "" : _TTG("Color", Text)
_TTHook()
}
else {
VarSetCapacity(empty, 2, 0)
DllCall("UxTheme.dll\SetWindowTheme", "ptr", hwnd, "ptr", 0
, "ptr", (bc != "" && tc != "") ? &empty : 0)
if (bc != "")
DllCall("SendMessage", "ptr", hwnd, "uint", 1043, "ptr", bc, "ptr", 0)
if (tc != "")
DllCall("SendMessage", "ptr", hwnd, "uint", 1044, "ptr", tc, "ptr", 0)
}
}
_TTHook(){
static hook := 0
if !hook
hook := DllCall("SetWindowsHookExW", "int", 4
, "ptr", RegisterCallback("_TTWndProc"), "ptr", 0
, "uint", DllCall("GetCurrentThreadId"), "ptr")
}
_TTWndProc(nCode, _wp, _lp) {
; Critical 999
;lParam := NumGet(_lp+0*A_PtrSize)
;wParam := NumGet(_lp+1*A_PtrSize)
uMsg := NumGet(_lp+2*A_PtrSize, "uint")
hwnd := NumGet(_lp+3*A_PtrSize)
if (nCode >= 0 && (uMsg = 1081 || uMsg = 1036)) {
_hack_ = ahk_id %hwnd%
WinGetClass wclass, %_hack_%
if (wclass = "tooltips_class32") {
ToolTipColor(,, hwnd)
ToolTipFont(,, hwnd)
}
}
return DllCall("CallNextHookEx", "ptr", 0, "int", nCode, "ptr", _wp, "ptr", _lp, "ptr")
}
; error SetClipboardData
_TTG(Cmd, Arg1, Arg2 := "") {
static htext := 0, hgui := 0
if !htext {
Gui _TTG: Add, Text, +hwndhtext
Gui _TTG: +hwndhgui +0x40000000
}
Gui _TTG: %Cmd%, %Arg1%, %Arg2%
if (Cmd = "Font") {
GuiControl _TTG: Font, %htext%
SendMessage 0x31, 0, 0,, ahk_id %htext%
return ErrorLevel
}
if (Cmd = "Color") {
hdc := DllCall("GetDC", "ptr", htext, "ptr")
SendMessage 0x138, hdc, htext,, ahk_id %hgui%
clr := DllCall("GetBkColor", "ptr", hdc, "uint")
DllCall("ReleaseDC", "ptr", htext, "ptr", hdc)
return clr
}
}
Close:
Esc::
ExitApp
