Rich4rd

Multipage ToolTips Menu With Hotstrings

Oct 26th, 2022 (edited)
942
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 1.94 KB | Source Code | 0 0
  1. ;=========================================================================================
  2. ;Multipage ToolTips Menu With Hotstrings
  3. ;Author: Sn1p3r53cR373  OOCCvnyYWk7zBzTAVm6ClpeoivWg3zZ3tpxjV/vjm8S3vZJZ7zDCMLjVaBJo91dv
  4. tip(text) {
  5.     ToolTip, % text, A_CaretX-10, A_CaretY-20
  6.     Input, key, L1 I M T3, {Space} ;L means Length limit, I means Ignore SendEvent method,  M means Modified keystrokes such as Ctrl+A through Ctrl+Z are recognized, T3 is timeout seconds - press comma to navigate quicker, V means visible, B means Backspace is ignored, C means Case sensitive, * means Wildcard (find anywhere), E means Handle single-character end keys by character code instead of by keycode.
  7.     if (key=="`;") Or(key=="`ְ") Or (key=="`·") Or (key=="`؛")  ;Hebrew "`ְ" in place of English `; and Greek "`·" and Arabic "`؛" in place of English `;
  8.         SendInput, % text
  9.     if (key=="r") Or(key=="ר") Or (key=="ρ") Or(key=="ռ") Or (key=="р") Or (key=="ر") ;r=restore hotkey
  10.         SendInput, % SubStr(A_ThisHotkey, 6) ;. A_EndChar . key ;(. A_EndChar . key adds a space at the end of the hotkey)
  11.     ToolTip
  12.     if (ErrorLevel = "EndKey:Space")
  13.         Exit
  14. }
  15.  
  16. :Cox:US::tip("United States")
  17. :C*x:USA::tip("United States of America") || tip(" United States")
  18. :Cox:Ita::tip("Italy") || tip("Italian")
  19. :Cox:Ger::tip("Germany")
  20. :C*x:ՀՀ::tip("Հայաստանի Հանրապետություն")
  21. :C*x:косм::tip("космос") || tip("космонавт") || tip("косметика")
  22. :C*x:יהוה::tip("יַהְוֶה") || tip("יַהְוֶה הָאֱלֹהִים") || tip("יַהְוֶה אֱלֹהִים") || tip("יַהְוֶה אֱלֹהֵי")
  23. :C*x:Ελλ::tip("Ἑλλάδα") || tip("Ἕλλην") || tip("Ἑλληνίς") || tip("Ἕλληνές") || tip("Ἑλληνιστί")
  24. :C*x:AAS::Tip("Alisa,`nAnna,`nSusanna.`n") || Tip("Are you ""partisans""?`nand what`nare you`ndoing here?")
  25.  
  26. ;========================================================================================
Advertisement
Add Comment
Please, Sign In to add comment