ToolTip Mouse Menu (requires XP/2k/NT) -- by Rajat

This script displays a popup menu in response to briefly holding down the middle mouse button. Select a menu item by left-clicking it. Cancel the menu by left-clicking outside of it. A recent improvement is that the contents of the menu can change depending on which type of window is active (Notepad and Word are used as examples here).

Download This Script  |  Other Sample Scripts  |  Home

; You can set any title here for the menu:
MenuTitle := "-=-=-=-=-=-=-=-"

; This is how long the mouse button must be held to cause the menu to appear:
UMDelay := 20

#SingleInstance


;___________________________________________
;_____Menu Definitions______________________

; Create / Edit Menu Items here.
; You can't use spaces in keys/values/section names.

; Don't worry about the order, the menu will be sorted.

MenuItems := "Notepad/Calculator/Section 3/Section 4/Section 5"


;___________________________________________
;______Dynamic menuitems here_______________

; Syntax:
;     Dyn# = MenuItem|Window title

Dyn1 := "MS Word|- Microsoft Word"
Dyn2 := "Notepad II|- Notepad"

;___________________________________________

Exit


;___________________________________________
;_____Menu Sections_________________________

; Create / Edit Menu Sections here.

Notepad:
Run, Notepad.exe
Return

Calculator:
Run, Calc
Return

Section3:
MsgBox, You selected 3
Return

Section4:
MsgBox, You selected 4
Return

Section5:
MsgBox, You selected 5
Return

MSWord:
msgbox, this is a dynamic entry (word)
Return

NotepadII:
msgbox, this is a dynamic entry (notepad)
Return


;___________________________________________
;_____Hotkey Section________________________

~MButton::
HowLong := 0
Loop
{
    HowLong++
    Sleep, 10
    if !GetKeyState("MButton", "P")
        Break
}
if HowLong < UMDelay, return


;prepares dynamic menu
DynMenu := ""
Loop
{
    if Dyn%a_index% = "", break

    ppos := InStr(dyn%a_index%, "|")
    item := SubStr(dyn%a_index%, 1, ppos)
    ppos += 2
    win := SubStr(dyn%a_index%, ppos, 1000)

    if WinActive(win)
        DynMenu .= "/" item
}


;Joins sorted main menu and dynamic menu
TempMenu := Sort(MenuItems, "D/") DynMenu


;clears earlier entries
Loop
{
    if MenuItem%a_index% = "", break
    MenuItem%a_index% := ""
}

;creates new entries
Loop, Parse, %TempMenu%, /
{
    MenuItem%a_index% := a_loopfield
}

;creates the menu
Menu := MenuTitle
Loop
{
    if MenuItem%a_index% = "", break
    numItems++
    MenuText := MenuItem%a_index%
    Menu .= "`n" MenuText
}

MouseGetPos, mX, mY
HotKey, ~LButton, MenuClick
HotKey, ~LButton, On
ToolTip, %Menu%, %mX%, %mY%
WinActivate, %MenuTitle%
Return


MenuClick:
HotKey, ~LButton, Off
if !WinActive(MenuTitle)
{
    ToolTip
    Return
}

MouseGetPos, mX, mY
ToolTip
mY -= 3        ;space after which first line starts
mY /= 13    ;space taken by each line
if mY < 1, return
if mY > numItems, return
TargetSection := MenuItem%Round(mY)%
StrReplace, TargetSection, %TargetSection%, %a_space%
Gosub, %TargetSection%
Return