AutoHotkey Community

;___________________________________________
;____User Configurable Menu   - Rajat_______
;___________________________________________


;You can set any title here for the menu

MenuTitle = -=-=-=-=-=-=-=-

;Delay after which the menu is shown
UMDelay = 20

SetFormat, float, 0.0
SetBatchLines, 10ms
SetTitleMatchMode, 2


;___________________________________________
;_____Menu Definitions______________________

; Create / Edit Menu Items here.
; You can use spaces in values (MenuItems) but not in
; 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, wow! seems like you're working!
Return

NotepadII:
   msgbox, this is a dynamic entry
Return




;___________________________________________
;_____Hotkey Section________________________


~MButton::
   HowLong = 0
   Loop
   {
      HowLong ++
      Sleep, 10
      GetKeyState, MButton, MButton, P
      IfEqual, MButton, U, Break
   }
   IfLess, HowLong, %UMDelay%, Return
   
   
   ;prepares dynamic menu
   DynMenu =
   Loop
   {
      IfEqual, Dyn%a_index%,, Break
      
      StringGetPos, ppos, dyn%a_index%, |
      StringLeft, item, dyn%a_index%, %ppos%
      ppos += 2
      StringMid, win, dyn%a_index%, %ppos%, 1000
      
      IfWinActive, %win%,
         DynMenu = %DynMenu%/%item%
   }
   
   
   ;Joins sorted main menu and dynamic menu
   Sort, MenuItems, D/
   TempMenu = %MenuItems%%DynMenu%
   
   
   ;clears earlier entries
   Loop
   {
      IfEqual, MenuItem%a_index%,, Break
      MenuItem%a_index% =
   }

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

   ;creates the menu
   Menu = %MenuTitle%
   Loop
   {
      IfEqual, MenuItem%a_index%,, Break
      numItems ++
      StringTrimLeft, MenuText, MenuItem%a_index%, 0
      Menu = %Menu%`n%MenuText%
   }
   
   MouseGetPos, mX, mY
   HotKey, ~LButton, MenuClick
   HotKey, ~LButton, On
   ToolTip, %Menu%, %mX%, %mY%
   WinActivate, %MenuTitle%
Return




MenuClick:
   HotKey, ~LButton, Off
    IfWinNotActive, %MenuTitle%
    {
       ToolTip
       Return
    }
    
    CoordMode, Mouse, Relative
    MouseGetPos, mX, mY
    ToolTip
   mY -= 3      ;space after which first line starts
   mY /= 13   ;space taken by each line
   IfLess, mY, 1, Return
   IfGreater, mY, %numItems%, Return
   StringTrimLeft, TargetSection, MenuItem%mY%, 0
   StringReplace, TargetSection, TargetSection, %a_space%,, A
   Gosub, %TargetSection%
Return

;___________________________________________
;____User Configurable Menu   - Rajat_______
;___________________________________________


;You can set any title here for the menu

MenuTitle = =========

;Delay after which the menu is shown
UMDelay = 20

SetFormat, float, 0.0
SetBatchLines, 10ms


;___________________________________________
;_____Menu Definitions______________________

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

Exit

;___________________________________________
;_____Menu Sections_________________________

;Create / Edit Menu Sections here.

Run:
        Run, %option%
Return


MsgBox:
        MsgBox, %option%
Return


;___________________________________________
;_____Hotkey Section________________________


~MButton::
        Loop
        {
          IniRead, name, ToolTipMenu.ini, MenuItem%a_index%, Name, (blank)
          if name = (blank)
            break
          MenuItem%a_index% = %name%
        }
        HowLong = 0
        Loop
        {
                HowLong ++
                Sleep, 10
                GetKeyState, MButton, MButton, P
                IfEqual, MButton, U, Break
        }
        IfLess, HowLong, %UMDelay%, Return

        Menu = %MenuTitle%
        Loop
        {
                IfEqual, MenuItem%a_index%,, Break
                MenuItems ++
                StringTrimLeft, MenuText, MenuItem%a_index%, 0
                Menu = %Menu%`n%MenuText%
        }

        ToolTip, %Menu%
        WinActivate, %MenuTitle%
Return


~LButton::
         IfWinNotActive, %MenuTitle%
         {
                 ToolTip
                 Return
         }

         MouseGetPos, mX, mY
         ToolTip
        mY -= 3                ;space after which first line starts
        mY /= 13        ;space taken by each line
        IfLess, mY, 1, Return
        IfGreater, mY, %MenuItems%, Return
        IniRead, type, ToolTipMenu.ini, MenuItem%mY%, Type
        IniRead, option, ToolTipMenu.ini, MenuItem%mY%, Option
        Gosub, %type%
Return

[MenuItem1]
Name=Notepad
Type=Run
Option=Notepad.exe

[MenuItem2]
Name=Calculator
Type=Run
Option=Calc.exe

[MenuItem3]
Name=Message 1
Type=MsgBox
Option=Test Message 1

[MenuItem4]
Name=Message 2
Type=MsgBox
Option=Test Message 2

;___________________________________________
;____User Configurable Menu   - Rajat_______
;___________________________________________


;You can set any title here for the menu
;***** MAKE SURE THE MENU TAKES 3 LINES *******

MenuTitle = =============`n%a_space%%a_space%%a_space%%a_space%%a_space%%a_space%%a_space%%a_space%%a_space%Quick Menu%a_space%%a_space%%a_space%%a_space%%a_space%`n=============

;Delay after which the menu is shown
UMDelay = 20

SetFormat, float, 0.0
SetBatchLines, 10ms


;___________________________________________
;_____Menu Definitions______________________

; Create / Edit Menu Items here.
; You can use spaces in section names. When it is given in this format

; MenuItem<num> = Menu Entry||EntrySection
; Eg. MenuItem1 = Fire Notepad||Notepad

; Not necessary to double the Entry name if it does not contain spaces
; Eg. MenuItem1 = Notepad

MenuItem1 = Notepad
MenuItem2 = Calculator
MenuItem3 = Section 3||Section3
MenuItem4 = Section 4||Section4
MenuItem5 = Section 5||Section5

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






;___________________________________________
;_____Hotkey Section________________________
~MButton::
HowLong = 0
Loop
{
   HowLong++
   Sleep, 10
   GetKeyState, MButton, MButton, P
   IfEqual, MButton, U, Break
}
IfLess, HowLong, %UMDelay%, Return
Menu = %MenuTitle%
Loop
{
   IfEqual, MenuItem%a_index%,, Break
   MenuItems++
   StringTrimLeft, MenuText, MenuItem%a_index%, 0
   StringGetPos, Place,MenuText,||
   If Place = -1
   {
      MenuGroup%a_index% = %MenuText%
      MenuText1=%MenuText%
   }
   else
   {
      StringLeft,MenuText1,MenuText,%Place%
      StringReplace, MenuGroup%a_index%,MenuText,%MenuText1%||
      
   
   }
   Menu = %Menu%`n%MenuText1%
}
MouseGetPos, mX, mY
ToolTip, %Menu%, %mX%, %mY%  ; Position it more directly under the cursor.
WinActivate, %MenuTitle%
Return


~LButton::
IfWinNotActive, %MenuTitle%
{
   ToolTip
   Return
}
MouseGetPos, mX, mY
ToolTip
mY -= 29                ;space after which first line starts
mY /= 13        ;space taken by each line
IfLess, mY, 1, Return
IfGreater, mY, %MenuItems%, Return
StringTrimLeft, TargetSection, MenuGroup%mY%, 0
Gosub, %TargetSection%
Return