AutoHotkey Community

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance, Force ; Prevent double execution of this script
#Persistent

; Faking what are normally dynamic variables (changing with different calculations)
OverRowNumber := 1
, Qt_1 := 2
, Mt_1 := 100
, RawTs_1 := 4.35
, RawTq_1 := 8.68

; Prepare the values to display in the tooltip 
, Ligne_Quantite	 := Qt_%OverRowNumber%
, Ligne_PrixUnitaire := Mt_%OverRowNumber%
, Ligne_TPSUnitaire  := RawTs_%OverRowNumber%
, Ligne_TVQUnitaire  := RawTq_%OverRowNumber%
, Ligne_TotalHorsTx  := (Ligne_PrixUnitaire - (Ligne_TPSUnitaire + Ligne_TVQUnitaire)) * Ligne_Quantite
, Ligne_TotalTPS     := Ligne_TPSUnitaire	* Ligne_Quantite
, Ligne_TotalTVQ 	 := Ligne_TVQUnitaire	* Ligne_Quantite
, Ligne_TotalAvecTx  := Ligne_PrixUnitaire	* Ligne_Quantite


; Tooltip to format :
, TT_Tip := "Calcul ligne #"OverRowNumber " :"
		 . "`n`n   Sous-total hors taxes  :      " Ligne_TotalHorsTx "  $                    ( $ " Ligne_PrixUnitaire " * Quantité  = $ " Ligne_TotalAvecTx " - Taxes )"
		 . "`n    + TPS                           :      " Ligne_TotalTPS "  $                    ( $ " Ligne_TPSUnitaire " * Quantité )"
		 . "`n    + TVQ                          :      " Ligne_TotalTVQ "  $                    ( $ " Ligne_TVQUnitaire " * Quantité )"
		 . "`n   ________________________________________________________________________________________________________________________"
		 . "`n   Sous-total avec taxes  :      " Ligne_TotalAvecTx "  $"



ToolTip, % TT_Tip, % A_ScreenWidth//3, % A_ScreenHeight // 2.5									; Show the ToolTip
SetTimer, ToolTipOff, -4000						; Set the Timer to automatically turn off tooltip after number of ms ;*[Untitled1]
Return

ToolTipOff:
Tooltip ; Off
ExitApp

Code: Select all

ToolTipFont(Options := "", Name := "", hwnd := "") {
    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")
}
 
_TTG(Cmd, Arg1, Arg2 := "") {
    static htext := 0, hgui := 0, WM_CTLCOLORSTATIC := 0x138, WM_GETFONT := 0x31, WS_CHILD := 0x40000000
    
    if !htext {
        Gui _TTG: +hwndhgui +%WS_CHILD%
        Gui _TTG: Add, Text, hwndhtext
    }
    Gui _TTG: %Cmd%, %Arg1%, %Arg2%
    if (Cmd = "Font") {
        GuiControl _TTG: Font, %htext%
        SendMessage, WM_GETFONT, 0, 0,, ahk_id %htext%
        return ErrorLevel
    }
    if (Cmd = "Color") {
        hdc := DllCall("GetDC", "ptr", htext, "ptr")
        SendMessage, WM_CTLCOLORSTATIC, hdc, htext,, ahk_id %hgui%
        clr := DllCall("GetBkColor", "ptr", hdc, "uint")
        DllCall("ReleaseDC", "ptr", htext, "ptr", hdc)
        return clr
    }
}

Code: Select all

#Persistent
data=
(
"Date","Pupil","Grade"
----,-----,-----
"25 May","Bloggs, Fred","C"
"25 May","Doe, Jane","B"
"15 July","Bloggs, Fred","A"
"15 April","Muniz, Alvin ""Hank""","A"
)
ToolTipFont("s10 q5", "Droid Sans Mono")
ToolTip % st_columnize(data, "csv", 2)

Code: Select all

Data=
(join`n
Date,Pupil,Grade
25 May,Bloggs,Fred,C
25 May,Doe,Jane,B
15 July,Bloggs,Fred,A
15 April,Muniz Alvin Hank,A
)

Loop, parse, data, `n, `r
	{
	Loop, parse, A_LoopField, CSV
		{
		 show .= Format("{:-30}",A_LoopField) A_Tab
		}
	show .= "`n"
	}
ToolTip % Show
Sleep 2000
ExitApp

Code: Select all

Data=
(join`n
Date,Pupil,Grade
25 May,Bloggs,Fred,C
25 May,Here is a very long text: 6666666666666666666666666666666666,Jane,B
15 July,Bloggs,Fred,A
15 April,Muniz Alvin Hank,Here is a very long text: 6666666666666666666666666666666666
)

Loop, parse, data, `n, `r
   {
   Loop, parse, A_LoopField, CSV
      {
       show .= Format("{:-30}",A_LoopField) A_Tab
      }
   show .= "`n"
   }
ToolTip % Show
Sleep 2000
ExitApp