Press and release Alt and then type to search all of the active window's menus.
As you type, the list is narrowed down to rows containing what you've typed. There is one row for each menu item, and the row text includes the menu and sub-menu names. For example, typing "enco" with Notepad++ would show all items in the "Encoding" menu and its sub-menus.
Pressing the number indicated in the left column selects that item, and pressing Enter sends the appropriate command to the window.
If no item is selected, pressing Enter sends the command corresponding to item 1.
Limitations:
- Only works with applications that use standard Windows menus.
- It is currently impossible to type a number directly into the search box.
- menu-search.png (63.15 KiB) Viewed 4567 times
Code: Select all
; menu-search v1.0 -- http://ahkscript.org/boards/viewtopic.php?f=6&t=8085
SetBatchLines -1
OnMessage(0x100, "GuiKeyDown")
OnMessage(0x6, "GuiActivate")
return
WinHasMenu(WinTitle:="") {
return !!DllCall("GetMenu", "ptr", WinExist(WinTitle), "ptr")
}
#If WinHasMenu("A") || WinActive("Searching menus of: ahk_class AutoHotkeyGUI")
Alt::
Gui +LastFoundExist
if WinActive()
goto GuiEscape
Gui Destroy
Gui Font, s11
Gui Margin, 0, 0
Gui Add, Edit, x20 w500 vQuery gType
Gui Add, Text, x5 y+2 w15, 1`n2`n3`n4`n5`n6`n7`n8`n9
Gui Add, ListBox, x+0 yp-2 w500 r21 vCommand gSelect AltSubmit
Gui Add, StatusBar
Gui +ToolWindow +Resize +MinSize +MinSize200x +MaxSize +MaxSize%A_ScreenWidth%x
window := WinExist("A")
cmds := MenuGetAll(window)
gosub Type
WinGetTitle title, ahk_id %window%
title := RegExReplace(title, ".* - ")
Gui Show,, Searching menus of: %title%
GuiControl Focus, Query
return
Type:
SetTimer Refresh, -10
return
Refresh:
GuiControlGet Query
r := cmds
if (Query != "")
{
StringSplit q, Query, %A_Space%
Loop % q0
r := Filter(r, q%A_Index%, c)
}
rows := ""
row_id := []
Loop Parse, r, `n
{
RegExMatch(A_LoopField, "(\d+)`t(.*)", m)
row_id[A_Index] := m1
rows .= "|" m2
}
GuiControl,, Command, % rows ? rows : "|"
if (Query = "")
c := row_id.MaxIndex()
Select:
GuiControlGet Command
if !Command
Command := 1
Command := row_id[Command]
SB_SetText("Total " c " results`t`tID: " Command)
if (A_GuiEvent != "DoubleClick")
return
Confirm:
if !GetKeyState("Shift")
{
gosub GuiEscape
WinActivate ahk_id %window%
}
DllCall("SendNotifyMessage", "ptr", window, "uint", 0x111, "ptr", Command, "ptr", 0)
return
GuiEscape:
Gui Destroy
cmds := r := ""
return
GuiSize:
GuiControl Move, Query, % "w" A_GuiWidth-20
GuiControl Move, Command, % "w" A_GuiWidth-20
return
GuiActivate(wParam)
{
if (A_Gui && wParam = 0)
SetTimer GuiEscape, -5
}
GuiKeyDown(wParam, lParam)
{
if !A_Gui
return
if (wParam = GetKeyVK("Enter"))
{
gosub Confirm
return 0
}
if (wParam = GetKeyVK(key := "Down")
|| wParam = GetKeyVK(key := "Up"))
{
GuiControlGet focus, FocusV
if (focus != "Command")
{
GuiControl Focus, Command
if (key = "Up")
Send {End}
else
Send {Home}
return 0
}
return
}
if (wParam >= 49 && wParam <= 57 && !GetKeyState("Shift"))
{
SendMessage 0x18E,,, ListBox1
GuiControl Choose, Command, % wParam-48 + ErrorLevel
GuiControl Focus, Command
gosub Select
return 0
}
if (wParam = GetKeyVK(key := "PgUp")
|| wParam = GetKeyVK(key := "PgDn"))
{
GuiControl Focus, Command
Send {%key%}
return
}
}
Filter(s, q, ByRef count)
{
if (q = "")
{
StringReplace s, s, `n, `n, UseErrorLevel
count := ErrorLevel
return s
}
i := 1
match := ""
result := ""
count := 0
while i := RegExMatch(s, "`ami)^.*\Q" q "\E.*$", match, i + StrLen(match))
{
result .= match "`n"
count += 1
}
return SubStr(result, 1, -1)
}
MenuGetAll(hwnd)
{
if !menu := DllCall("GetMenu", "ptr", hwnd, "ptr")
return ""
MenuGetAll_sub(menu, "", cmds)
return cmds
}
MenuGetAll_sub(menu, prefix, ByRef cmds)
{
Loop % DllCall("GetMenuItemCount", "ptr", menu)
{
VarSetCapacity(itemString, 2000)
if !DllCall("GetMenuString", "ptr", menu, "int", A_Index-1, "str", itemString, "int", 1000, "uint", 0x400)
continue
itemString := StrReplace(itemString, "&")
itemID := DllCall("GetMenuItemID", "ptr", menu, "int", A_Index-1)
if (itemID = -1)
if subMenu := DllCall("GetSubMenu", "ptr", menu, "int", A_Index-1, "ptr")
{
MenuGetAll_sub(subMenu, prefix itemString " > ", cmds)
continue
}
cmds .= itemID "`t" prefix RegExReplace(itemString, "`t.*") "`n"
}
}The ID of the selected menu item is shown in the bottom right-hand corner of the window. This ID can be used with PostMessage to activate the menu item directly. For example, this activates Notepad++'s "Encode in UTF-8 without BOM" option shown in the screenshot above:
Code: Select all
PostMessage 0x111, 45008,,, ahk_class Notepad++
This is really useful. I have this idea in mind after using the Sublime Text's "Command Palette", but can't write it myself.
