AutoHotkey Community

HELP = ; Gui, 99
(LTrim0

ALT-TAB REPLACEMENT (WITH ICONS AND WINDOW TITLES IN A LISTVIEW).
      Latest version can be found at: http://www.autohotkey.net/~evl/AltTab/AltTab.ahk
      Forum topic for discussion: http://www.autohotkey.com/forum/viewtopic.php?t=6422

HOTKEYS:
  Default:    Alt+Tab - move forwards in window stack
              Alt+Shift+Tab - move backwards in window stack
              Alt+Esc - cancel switching window
              Mouse wheel over the taskbar scrolls the list - Middle button selects a window in this mode.
  Window Groups can be assigned hotkeys to load the group/cycle through the windows.

EVENTS:
  Double-click a row to select that item and switch to it.

  Type first letter of program's title to cycle through them while still holding Alt

  Columns can be sorted by clicking on their titles.

  Tabs (window groups) can be re-ordered by drag-and-drop.

  Right-Click (context menu):
    Basic hotkey support for switching to specific windows (using window groups and adding window classes)
    Exclude (and un-exclude) specific windows and specific .EXEs - see "Window Groups" below.
    Edge-docking - dock windows to the edges of the screen and have them auto-hide (like the taskbar can).
    Window Groups - define lists of windows to easily switch between only showing certain apps.
    Manage groups of windows and processes (min/max all, close all, etc).

  Close windows:
    Alt+Middle mouse - close window under the mouse pointer in the Alt-Tab listview.
    Alt+\ "hotkey"  - close selected window (while list is displayed)
    Alt+/ "hotkey"  - close ALL windows whose EXE matches that of the selected entry (while list is displayed)
    Process menu entry - end selected process or all instance of the EXE in the list.

SETTINGS:
  See "; USER EDITABLE SETTINGS:" section near top of source code.

TO EXIT:
  Choose Exit from the system tray icon's menu.

NOTE: Stroke-It (and maybe other mouse gesture programs) can cause the context menu to be shown twice/problematic.
        Solution: exclude the program within the gesture recognition program (window title = Alt-Tab Replacement).
)


LATEST_VERSION_CHANGES = ; Gui, 98
(LTrim0

TO DO (maybe):
  settings window
  save other settings between restarts
  include a filter for docked windows to be displayed in alt-tab or not (ie a tab for docked windows) - perhaps alter title? e.g. DOCKED***
  stick items to top or bottom of list
    use listview insert command to place windows at specific locations in list?

LATEST VERSION CHANGES:
since 25-04-06:
  +: Groups of windows are shown in tabs - they can be re-arranged by drag-and-drop.
  +: Settings tab.
  + & FIX: Updates to the listview colour code - much smoother now (thanks to ambi for updating the Listview script).
  + & FIX: Sorting of columns with direction indication ([+] or [-])
  +: Mouse wheel over the TASKBAR scrolls the list - Middle button SELECTS a window in this mode (it normally CLOSES a window!).
  +: Save data on big changes (in addition to program exit) - e.g. new group created, hotkeys changed
  CHANGE: Selections with the mouse are now made with a double click (or just release the Alt key) instead of a single one.
  CHANGE: Adjusted display position to be centered by default.
  CHANGE: Dialog windows only indicated by red higlight (not by title too).
  CHANGE: Not Responding windows indicated in a new column (not by title).
  CHANGE: Many speed optimisations and code improvements (it's almost decipherable now ;-))
  FIX: Handling of "Not Responding" windows with no delays.


> For older changes, see the forum: http://www.autohotkey.com/forum/viewtopic.php?t=6422

)


;========================================================================================================
; USER EDITABLE SETTINGS:

  ; Icons
    Use_Large_Icons =1 ; 0 = small icons, 1 = large icons in listview

  ; Fonts
    Font_Size =12
    Font_Size_Tab =8
    Font_Type_Tab =Courier New
    Font_Type =Arial

  ; Position         ;m00n
    Gui_x =Left
    Gui_y =Center

  ; Max height
    Height_Max_Modifier =0.92 ; multiplier for screen height (e.g. 0.92 = 92% of screen height max )

  ; Width
    Listview_Width := A_ScreenWidth * 0.5
    SB_Width := Listview_Width / 4 ; StatusBar section sizes
    Exe_Width_Max := Listview_Width / 5 ; Exe column max width

  ; Edge-Docking of windows to screen edges
    Edge_Dock_Activation_Delay =750 ;  Delay in milliseconds for hovering over edge-docked window/dismissing window
    Edge_Dock_Border_Visible =5 ; number of pixels of window to remain visible on screen edge

;========================================================================================================
; USER OVERRIDABLE SETTINGS:

  ; Widths
    Col_1 =Auto ; icon column
    Col_2 =0 ; hidden column for row number
    ; col 3 is autosized based on other column sizes
    Col_4 =Auto ; exe
    Col_5 =AutoHdr ; State
    Col_6 =Auto ; OnTop
    Col_7 =Auto ; Status - e.g. Not Responding
    Gui1_Tab__width := Listview_Width - 2

  ; Max height
    Height_Max := A_ScreenHeight * Height_Max_Modifier ; limit height of listview
    Small_to_Large_Ratio =1.6 ; height of small rows compared to large rows

  ; Colours in RGB hex
    Tab_Colour =C4C5FB
    Listview_Colour =E1E2FD ; does not need converting as only used for background
    StatusBar_Background_Colour =C4C5FB
   
  ; convert colours to correct format for listview color functions:
    Listview_Colour_Min_Text :=       RGBtoBGR("0x000000") ; highlight minimised windows
   Listview_Colour_Min_Back :=       RGBtoBGR("0xE1E2FD")
;    Listview_Colour_Min_Back :=       RGBtoBGR("0xC2C6FC");
    Listview_Colour_OnTop_Text :=     RGBtoBGR("0x000000") ; highlight alwaysontop windows
    Listview_Colour_OnTop_Back :=     RGBtoBGR("0x8079FB")
    Listview_Colour_Dialog_Text :=    RGBtoBGR("0x000000")
    Listview_Colour_Dialog_Back :=    RGBtoBGR("0xFB5959")
    Listview_Colour_Selected_Text :=  RGBtoBGR("0xFFFFFF")
    Listview_Colour_Selected_Back :=  RGBtoBGR("0x000071")
    Listview_Colour_Not_Responding_Text := RGBtoBGR("0xFFFFFF")
    Listview_Colour_Not_Responding_Back := RGBtoBGR("0xFF0000")


;========================================================================================================

#NoEnv
#SingleInstance force
#Persistent
#InstallKeybdHook
#InstallMouseHook
;m00n #NoTrayIcon
Process Priority,,High
SetWinDelay, -1
SetBatchLines, -1

IniFile_Data("Read")

OnExit, OnExit_Script_Closing

;m00n OnMessage( 0x06, "WM_ACTIVATE" ) ; alt tab list window lost focus > hide list

LV_ColorInitiate() ; initiate listview color change procedure

Gosub, Initiate_Hotkeys ; initiate Alt-Tab and Alt-Shift-Tab hotkeys and translate some modifier symbols

WS_EX_CONTROLPARENT =0x10000
WS_EX_DLGMODALFRAME =0x1
WS_CLIPCHILDREN =0x2000000
WS_EX_APPWINDOW =0x40000
WS_EX_TOOLWINDOW =0x80
WS_DISABLED =0x8000000
WS_VSCROLL =0x200000
WS_POPUP =0x80000000

SysGet, Scrollbar_Vertical_Thickness, 2 ; 2 is SM_CXVSCROLL, Width of a vertical scroll bar
If A_OSVersion =WIN_2000
  lv_h_win_2000_adj =2 ; adjust height of main listview by +2 pixels to avoid scrollbar in windows 2000
Else
  lv_h_win_2000_adj =0

WinGet, TaskBar_ID, ID, ahk_class Shell_TrayWnd ; for docked windows check

Display_List_Shown =0
Window_Hotkey =0
Use_Large_Icons_Current =%Use_Large_Icons% ; for remembering original user setting but changing on the fly
Gui_Dock_Windows_List = ; keep track of number of docked windows
Time_Since_Last_Alt_Close =0 ; initialise time for repeat rate allowed for closing windows with alt+\
Viewed_Window_List =

Col_Title_List =#| |Window|Exe|View|Top|Status
StringSplit, Col_Title, Col_Title_List,| ; create list of listview header titles

SysGet, SM_CXVSCROLL, 2         ;get width of vertical scrollbar
LVIR_LABEL = 0x0002               ;LVM_GETSUBITEMRECT constant - get label info
LVM_GETITEMCOUNT = 4100         ;gets total number of rows
LVM_SCROLL = 4116                  ;scrolls the listview
LVM_GETTOPINDEX = 4135         ;gets the first displayed row
LVM_GETCOUNTPERPAGE = 4136   ;gets number of displayed rows
LVM_GETSUBITEMRECT = 4152      ;gets cell width,height,x,y

LV_currColHeight := 35

OnMessage(0x5555, "MsgMonitor")
OnMessage(0x5556, "MsgMonitor")

Return

;WM_MOUSEMOVE(wParam, lParam, msg, hwnd)
MouseOver:
{
;   global
   MouseGetPos,LV_mx,LV_my,hWnd
;   ToolTip,%hwndGui% - %hWnd%
   
;   If(hwnd = hw_LV_ColorChange)   ;only if the mouse moved over the listview
If(hWndGui = hWnd)
   {   
;      ToolTip,mousem
      SendMessage, LVM_GETITEMCOUNT, 0, 0, , ahk_id %hw_LV_ColorChange%
      LV_TotalNumOfRows := ErrorLevel   ;get total number of rows
      SendMessage, LVM_GETCOUNTPERPAGE, 0, 0, , ahk_id %hw_LV_ColorChange%
      LV_NumOfRows := ErrorLevel   ;get number of displayed rows
      SendMessage, LVM_GETTOPINDEX, 0, 0, , ahk_id %hw_LV_ColorChange%
      LV_topIndex := ErrorLevel   ;get first displayed row
 
 
;      LV_mx := lParam & 0xFFFF   ;get mouse x,y
;      LV_my := lParam >> 16
     
      VarSetCapacity(LV_XYstruct, 16, 0)   ;create struct
      Loop,% LV_NumOfRows + 1   ;gets the current row and cell Y,H
      {   LV_which := LV_topIndex + A_Index - 1   ;loop through each displayed row
         NumPut(LVIR_LABEL, LV_XYstruct, 0)   ;get label info constant
         NumPut(A_Index - 1, LV_XYstruct, 4)   ;subitem index
         SendMessage, LVM_GETSUBITEMRECT, %LV_which%, &LV_XYstruct, , ahk_id %hw_LV_ColorChange%   ;get cell coords
         LV_RowY := NumGet(LV_XYstruct,4)   ;row upperleft y
         LV_RowY2 := NumGet(LV_XYstruct,12)   ;row bottomright y2
         LV_currColHeight := LV_RowY2 - LV_RowY ;get cell height
         If(LV_my <= LV_RowY + LV_currColHeight)   ;if mouse Y pos less than row pos + height
         {   If(oldLV_which != LV_which)
            {   
;          LV_Modify(LV_currRow,"-Select")

            LV_currRow  := LV_which + 1   ;1-based current row
               LV_currRow0 := LV_which      ;0-based current row, if needed
               LV_GetText(txt1, LV_currRow, 1)
               LV_GetText(txt2, LV_currRow, 2)
;               ToolTip,Name: %txt1%%A_Tab%Size: %txt2%,,,19
            LV_Modify(LV_currRow,"Focus Select Vis")
;            oldrow:=LV_currRow
;               SetTimer, killTip, %tipDuration%
            }
            oldLV_which := LV_which
            Break
            killTip:
;               tooltip,,,, 19
;               SetTimer, killTip, Off
            Return
         }
      }
   }
   Else
   {   oldLV_which=
 ;     tooltip,
   }
}

LV:
;~    If A_GuiEvent in Normal
;~       {
;~          LV_GetText(name,A_EventInfo,1)
;~          LV_GetText(size,A_EventInfo,2)
;~          tooltip, Name: %name%%A_Tab%Size: %size%
;~       }
Return

MsgMonitor(wParam, lParam, msg)
{
global
    ; Since returning quickly is often important, it is better to use a ToolTip than
    ; something like MsgBox that would prevent the function from finishing:
;    ToolTip Message %msg% arrived:`nWPARAM: %wParam%`nLPARAM: %lParam%
bMessageActive := True
Gosub, Single_Key_Show_Alt_Tab
}

/*
~WheelUp::
  Gosub, ~WheelDown
  If (Scroll_Over_wID = TaskBar_ID)
    Loop, 2
      Gosub, Alt_Shift_Tab
Return

~WheelDown::
  MouseGetPos, JUNK, JUNK, Scroll_Over_wID
    If ! (Scroll_Over_wID = TaskBar_ID)
      Return
    Gosub, Single_Key_Show_Alt_Tab
    Hotkey, %Alt_Hotkey%%Use_AND_Symbol%Mbutton, ListView_Destroy, %state% UseErrorLevel ; select the window if launched from the taskbar
Return
*/

;========================================================================================================


Initiate_Hotkeys:

/*
~MButton::

HowLong = 0
Loop
{
   HowLong ++
   Sleep, 10
   GetKeyState, MButton, MButton, P
   IfEqual, MButton, U, Break
   if HowLong =  20
   {
   Single_Key_Show_Alt_Tab_Used =1
     Send, {%Alt_Hotkey2% down}
     Gosub, Alt_Tab
   }
}
if HowLong <  20
Return
else
{
  Hotkey, *%Single_Key_Hide_Alt_Tab%, ListView_Destroy, On
}
;send, !{tab}

;msgbox ssss
;send, {mbutton}
*/

  Use_AND_Symbol = ; initiate
  ; If both Alt and Tab are modifier keys, write Tab as a word not a modifier symbol, else Alt-Tab is invalid hotkey
  If Alt_Hotkey contains #,!,^,+
    {
    If Tab_Hotkey contains #,!,^,+
      Replace_Modifier_Symbol( "Tab_Hotkey" , "Tab_Hotkey" )
    }
  Else If Alt_Hotkey contains XButton1,XButton2
    Use_AND_Symbol :=" & "
  Else If Tab_Hotkey contains WheelUp,WheelDown
    Use_AND_Symbol :=" & "
  Hotkey, %Alt_Hotkey%%Use_AND_Symbol%%Tab_Hotkey%, Alt_Tab, On ; turn on alt-tab hotkey here to be able to turn it off for simple switching of apps in script
  Hotkey, %Alt_Hotkey%%Use_AND_Symbol%%Shift_Tab_Hotkey%, Alt_Shift_Tab, On ; turn on alt-tab hotkey here to be able to turn it off for simple switching of apps in script

  If Single_Key_Show_Alt_Tab !=
    Hotkey, *%Single_Key_Show_Alt_Tab%, Single_Key_Show_Alt_Tab, On

  Replace_Modifier_Symbol( "Alt_Hotkey" , "Alt_Hotkey2" )

  If (! InStr(Tab_Hotkey, "Wheel") and ! InStr(Shift_Tab_Hotkey, "Wheel")) ; wheel isn't used as an alt-tab hotkey so can be used for scrolling list instead
    Use_Wheel_Scroll_List =1
Return


Alt_Tab: ; alt-tab hotkey
  Alt_Tab_Common_Function("Alt_Tab")
Return

Alt_Shift_Tab: ; alt-shift-tab hotkey
  Alt_Tab_Common_Function("Alt_Shift_Tab")
Return

Alt_Tab_Common_Function(Key) ; Key = "Alt_Tab" or "Alt_Shift_Tab"
{
  Global
  If Display_List_Shown =0
    {
    WinGet, Active_ID, ID, A
    Gosub, Custom_Group__make_array_of_contents
    Gosub, Display_List
    Gosub, Alt_Tab_Common__Check_auto_switch_icon_sizes ; limit gui height / auto-switch icon sizes
    Gosub, Alt_Tab_Common__Highlight_Active_Window
    If ( GetKeyState(Alt_Hotkey2, "P") or GetKeyState(Alt_Hotkey2)) ;m00n or GetKeyState("MButton","P")) ; Alt key still pressed, else gui not shown
      {
     if bMessageActive
      Gui_y := Gui_y - (Active_ID_Found * LV_currColHeight)
     else
      Gui_y = Center
    
      Gui, 1: Show, AutoSize x%Gui_x% y%Gui_y%, Alt-Tab Replacement
     ControlGetPos, LV_lx, LV_ly, LV_lw, LV_lh, , ahk_id %hw_LV_ColorChange%   ;get info on listview   m00n
     Gui, +LastFound
     hWndGui := WinExist()
     SetTimer,MouseOver,50
;     OnMessage(0x200, "WM_MOUSEMOVE")   
      Hotkeys_Toggle_Temp_Hotkeys("On") ; (state = "On" or "Off") ; ensure hotkeys are on
      }
    }
   
  Selected_Row := LV_GetNext(0, "F")
  if !bMessageActive
  {
     If Key =Alt_Tab
      {
      Selected_Row += 1
      If (Selected_Row > Window_Found_Count)
        Selected_Row =1
      }
     Else If Key =Alt_Shift_Tab
      {
      Selected_Row -= 1
      If Selected_Row < 1
        Selected_Row := Window_Found_Count
      }
  }
  else
   bMessageActive := False
  LV_Modify(Selected_Row, "Focus Select Vis") ; get selected row and ensure selection is visible
  SetTimer, Check_Alt_Hotkey2_Up, 30

;  GuiControl, Focus, Listview1 ; workaround for gui tab bug - gosub not activated when already activated button clicked on again

;  Gosub, SB_Update__ProcessCPU
;  SetTimer, SB_Update__ProcessCPU, 1000
  Return

  Alt_Tab_Common__Check_auto_switch_icon_sizes: ; limit gui height / auto-switch icon sizes
    If (Listview_NowH > Height_Max AND Use_Large_Icons_Current =1) ; switch to small icons
      {
      Use_Large_Icons_Current =0
      Gosub, Alt_Tab_Common__Switching_Icon_Sizes
      }
    If ((Listview_NowH * Small_to_Large_Ratio) < Height_Max AND Use_Large_Icons_Current =0 AND Use_Large_Icons=1) ; switch to large icons
      {
      Use_Large_Icons_Current =1
      Gosub, Alt_Tab_Common__Switching_Icon_Sizes
      }
  Return

  Alt_Tab_Common__Switching_Icon_Sizes:
    Gui, 1: Destroy
    Display_List_Shown =0
    Gosub, Display_List ; update colours
  Return

  Alt_Tab_Common__Highlight_Active_Window:
    Active_ID_Found =0 ; init
    Loop, %Window_Found_Count% ; select active program in list (not always the top item)
      {
      LV_GetText(RowText, A_Index, 2)  ; Get hidden column numbers
      If (Window%RowText% = Active_ID)
        {
        Active_ID_Found :=A_Index
        Break
        }
      }
    If Active_ID_Found =0 ; active window has an icon in another main window & was excluded from Alt-Tab list
      {
      WinGet, Active_Process, ProcessName, ahk_id %Active_ID%
      WinGetClass, Active_Class, ahk_id %Active_ID%
      ; If desktop/taskbar selected or nothing at all, don't select item in alt-tab list
      If ( !(Active_Class ="Progman" OR Active_Class ="WorkerW" OR Active_Class ="Shell_TrayWnd" OR Active_Class =""))
        Loop, %Window_Found_Count% ; find top item in window list with same exe name as active window
          If (Exe_Name%A_Index% = Active_Process)
            {
            Active_ID := Window%A_Index% ; find this new ID in the listview
            LV_GetText(RowText, A_Index, 2)  ; Get hidden column numbers
            If (Window%RowText% = Active_ID)
              {
              Active_ID_Found :=A_Index
              Break
              }
            }
      }
    If Active_ID_Found !=0
      LV_Modify(Active_ID_Found, "Focus Select Vis")
  Return
}


Single_Key_Show_Alt_Tab:
  Single_Key_Show_Alt_Tab_Used =1
  Send, {%Alt_Hotkey2% down}
  Gosub, Alt_Tab
  Hotkey, *%Single_Key_Hide_Alt_Tab%, ListView_Destroy, On
Return


Alt_Esc: ; abort switching
  Alt_Esc =1
  Gosub, ListView_Destroy
Return


Alt_Esc_Check_Alt_State: ; hides alt-tab gui - shows again if alt still pressed
  Gosub, Alt_Esc
  If ( GetKeyState(Alt_Hotkey2, "P") or GetKeyState(Alt_Hotkey2)) ; Alt key still pressed - show alt-tab again
    Gosub, Alt_Tab
Return


Hotkeys_Toggle_Temp_Hotkeys(state) ; (state = "On" or "Off")
{
  Global
; UseErrorLevel in case of exiting script before hotkey created
  Hotkey, %Alt_Hotkey%%Use_AND_Symbol%%Esc_Hotkey%, Alt_Esc, %state% UseErrorLevel ; abort
  If Use_Wheel_Scroll_List =1
    {
    Hotkey, %Alt_Hotkey%%Use_AND_Symbol%WheelUp,    Alt_Shift_Tab, %state% UseErrorLevel ; previous window
    Hotkey, %Alt_Hotkey%%Use_AND_Symbol%WheelDown,  Alt_Tab,     %state% UseErrorLevel ; next window
    }
;m00n  Hotkey, %Alt_Hotkey%%Use_AND_Symbol%Mbutton, MButton_Close, %state% UseErrorLevel ; close the window clicked on
;m00n  Hotkey, *~LButton, LButton_Tab_Check, %state% UseErrorLevel ; check if user clicked/dragged a tab
}


Check_Alt_Hotkey2_Up:
  If ! ( GetKeyState(Alt_Hotkey2, "P") or GetKeyState(Alt_Hotkey2)) ; Alt key released
    Gosub, ListView_Destroy
Return


;========================================================================================================


Display_List:
CoordMode, Mouse, Screen
MouseGetPos, Gui_x, Gui_y      ;m00n
if bMessageActive
 {
   Gui_x := Gui_x - (Listview_Width / 2)
   if Gui_x < 0
      Gui_x := 0
   if Gui_x > A_ScreenWidth - (Listview_Width / 2)
      Gui_x := A_ScreenWidth - (Listview_Width / 2)
}
else
{
   xy := A_ScreenWidth / 2
;   tooltip, Guix: %Gui_x% - %xy%
   if( Gui_x > xy - (Listview_Width // 2) && Gui_x < xy + (Listview_Width // 2))
   {
;      tooltip, Guix: %Gui_x% - (%xy% - (%Listview_Width% // 2))
      if(Gui_x > xy)
         Gui_x := Gui_x - Listview_Width - 2
      else
         Gui_x := Gui_x + 2
   }
   else
       Gui_x := xy - (Listview_Width // 2)
;    Gui_x = Center
}
   
  LV_ColorChange() ; clear all highlighting
  If Display_List_Shown =1 ; empty listview and image list if only updating - e.g. when closing a window (mbutton)
    LV_Delete()
  Else ; not shown - need to create gui for updating listview
    {
    ; Create the ListView gui
    Gui, 1: +AlwaysOnTop +ToolWindow -Caption
    Gui, 1: Color, %Tab_Colour% ; i.e. border/background (default = 404040) ; barely visible - right and bottom sides only
    Gui, 1: Margin, 0, 0
    ; Tab stuff
    Gui, 1: Font, s%Font_Size_Tab%, %Font_Type_Tab%
;m00n    Gui, 1: Add, Tab2, vGui1_Tab HWNDhw_Gui1_Tab Background w%Gui1_Tab__width% -0x200, %Group_List% ; -0x200 = ! TCS_MULTILINE
;m00n    Gui, 1: Tab, %Group_Active%,, Exact ; Future controls are owned by this tab
    Gui, 1: Add, StatusBar, Background%StatusBar_Background_Colour% ; add before changing font
    Gui, 1: Font, s%Font_Size%, %Font_Type%
    Gui, 1: Add, ListView, x-1 y+-4 r%Window_Found_Count% w%Listview_Width% AltSubmit -Multi NoSort Background%Listview_Colour% Count10 gListView_Event vListView1 HWNDhw_LV_ColorChange,%Col_Title_List%
    LV_ModifyCol(2, "Integer") ; sort hidden column 2 as numbers
    SB_SetParts(SB_Width, SB_Width, SB_Width)
   /*
   ;m00n
   VarSetCapacity(LV_XYstruct, 16, 0)   ;create struct
   SendMessage, LVM_GETTOPINDEX, 0, 0, , ahk_id %hw_LV_ColorChange%
    LV_topIndex := ErrorLevel   ;get first displayed row
   SendMessage, LVM_GETSUBITEMRECT, %LV_topIndex%, &LV_XYstruct, , ahk_id %hw_LV_ColorChange%   ;get cell coords
   LV_RowY := NumGet(LV_XYstruct,4)   ;row upperleft y
   LV_RowY2 := NumGet(LV_XYstruct,12)   ;row bottomright y2
   LV_currColHeight := LV_RowY2 - LV_RowY ;get cell height
   ;-------------------------------------------------------
   */
    Gosub, SB_Update__CPU
    SetTimer, SB_Update__CPU, 1000
    }
  GuiControl,, Gui1_Tab, |%Group_List% ; update in case of changes
  GuiControl, ChooseString, Gui1_Tab, %Group_Active%

  ImageListID1 := IL_Create(10,5,Use_Large_Icons_Current) ; Create an ImageList so that the ListView can display some icons
  LV_SetImageList(ImageListID1, 1) ; Attach the ImageLists to the ListView so that it can later display the icons

  Gosub, Display_List__Find_windows_and_icons
  If Window_Found_Count =0
    {
    Window_Found_Count =1
    LV_Add("","","","","","","") ; No Windows Found! - avoids an error on selection if nothing is added
    }

  ColumnClickSort(Sort_By_Column, 1) ; Col = column clicked on, Update = 1 if true else blank (apply only, not change order)

  Gosub, Gui_Resize_and_Position
  If Display_List_Shown =1 ; resize gui for updating listview
    {
    Gui, 1: Show, AutoSize x%Gui_x% y%Gui_y%, Alt-Tab Replacement
    If Selected_Row >%Window_Found_Count% ; less windows now - select last one instead of default 1st row
      Selected_Row =%Window_Found_Count%
    LV_Modify(Selected_Row, "Focus Select Vis") ; select 1st entry since nothing selected
    }
  Display_List_Shown =1 ; Gui 1 is shown back in Alt_Tab_Common_Function() for initial creation
Return


Display_List__Find_windows_and_icons:
  WinGet, Window_List, List ; Gather a list of running programs

  Window_Found_Count =0
  Loop, %Window_List%
    {
    wid := Window_List%A_Index%
    WinGetTitle, wid_Title, ahk_id %wid%
    WinGet, Style, Style, ahk_id %wid%

    If ((Style & WS_DISABLED) or ! (wid_Title)) ; skip unimportant windows ; ! wid_Title or
        Continue

    WinGet, es, ExStyle, ahk_id %wid%
    Parent := Decimal_to_Hex( DllCall( "GetParent", "uint", wid ) )
    WinGet, Style_parent, Style, ahk_id %Parent%
    Owner := Decimal_to_Hex( DllCall( "GetWindow", "uint", wid , "uint", "4" ) ) ; GW_OWNER = 4
    WinGet, Style_Owner, Style, ahk_id %Owner%

    If (((es & WS_EX_TOOLWINDOW)  and !(Parent)) ; filters out program manager, etc
        or ( !(es & WS_EX_APPWINDOW)
          and (((Parent) and ((Style_parent & WS_DISABLED) =0)) ; These 2 lines filter out windows that have a parent or owner window that is NOT disabled -
            or ((Owner) and ((Style_Owner & WS_DISABLED) =0))))) ; NOTE - some windows result in blank value so must test for zero instead of using NOT operator!
      continue

    WinGet, Exe_Name, ProcessName, ahk_id %wid%
    WinGetClass, Win_Class, ahk_id %wid%
    hw_popup := Decimal_to_Hex(DllCall("GetLastActivePopup", "uint", wid))

    ; CUSTOM GROUP FILTERING
    If (Group_Active != "Settings" AND Group_Active != "ALL") ; i.e. list is filtered, check filter contents to include
      {
      Custom_Group_Include_wid_temp = ; initialise/reset

      Loop, %Group_Active_0% ; check current window id against the list to filter
        {
        Loop_Item := Group_Active_%A_Index%
        StringLeft, Exclude_Item, Loop_Item, 1
        If Exclude_Item =! ; remove ! for matching strings
          StringTrimLeft, Loop_Item, Loop_Item, 1
        If ((Loop_Item = Exe_Name) or InStr(wid_Title, Loop_Item)) ; match exe name, title
          {
          Custom_Group_Include_wid_temp =1 ; include this window
          Break
          }
        }

      If  (((Custom_Group_Include_wid_temp =1) and (Exclude_Item ="!"))
          or ((Custom_Group_Include_wid_temp !=1) and (Exclude_Not_In_List =1)))
        Continue
      }

    Dialog =0 ; init/reset
    If (Parent and ! Style_parent)
      CPA_file_name := GetCPA_file_name( wid ) ; check if it's a control panel window
    Else
      CPA_file_name =
    If (CPA_file_name or (Win_Class ="#32770") or ((style & WS_POPUP) and (es & WS_EX_DLGMODALFRAME)))
      Dialog =1 ; found a Dialog window
    If (CPA_file_name)
      {
      Window_Found_Count += 1
      Gui_Icon_Number := IL_Add( ImageListID1, CPA_file_name, 1 )
      }
    Else
      Get_Window_Icon(wid, Use_Large_Icons_Current) ; (window id, whether to get large icons)
    Window__Store_attributes(Window_Found_Count, wid, "") ; Index, wid, parent (or blank if none)
    LV_Add("Icon" . Window_Found_Count,"", Window_Found_Count, Title%Window_Found_Count%, Exe_Name%Window_Found_Count%, State%Window_Found_Count%, OnTop%Window_Found_Count%, Status%Window_Found_Count%)
    }
Return


Window__Store_attributes(Index, wid, ID_Parent) ; Index = Window_Found_Count, wid = window id, ID_Parent = parent or blank if none
{
  Local State_temp
  Window%Index% =%wid%                    ; store ahk_id's to a list
  Window_Parent%Index% =%ID_Parent%       ; store Parent ahk_id's to a list to later see if window is owned
  Title%Index% := wid_Title               ; store titles to a list
  hw_popup%Index% := hw_popup             ; store the active popup window to a list (eg the find window in notepad)
  WinGet, Exe_Name%Index%, ProcessName, ahk_id %wid% ; store processes to a list
  WinGet, PID%Index%, PID, ahk_id %wid% ; store pid's to a list
  Dialog%Index% := Dialog  ; 1 if found a Dialog window, else 0
  WinGet, State_temp, MinMax, ahk_id %wid%
    If State_temp =1
      State%Index% =Max
    Else If State_temp =-1
      State%Index% =Min
    Else If State_temp =0
      State%Index% =
    WinGet, es_hw_popup, ExStyle, ahk_id %hw_popup% ; eg to detect on top status of zoomplayer window
    If ((es & 0x8) or (es_hw_popup & 0x8))  ; 0x8 is WS_EX_TOPMOST.
      {
      OnTop%Index% =Top
      OnTop_Found =1
      }
    Else
      OnTop%Index% =
  If Responding
    Status%Index% =
  Else
    {
    Status%Index% =Not Responding
    Status_Found =1
    }
  ; Listview Higlighting Colours
    If Status%Index% =Not Responding
      LV_ColorChange(Index, Listview_Colour_Not_Responding_Text, Listview_Colour_Not_Responding_Back)
    Else If Dialog%Index%
      LV_ColorChange(Index, Listview_Colour_Dialog_Text, Listview_Colour_Dialog_Back)
    Else If OnTop%Index% =Top
      LV_ColorChange(Index, Listview_Colour_OnTop_Text, Listview_Colour_OnTop_Back)
    Else If State%Index% =Min
      LV_ColorChange(Index, Listview_Colour_Min_Text, Listview_Colour_Min_Back)
}

/*
LButton_Tab_Check:
  Tab_Button_Clicked := TCM_HITTEST()
  If Tab_Button_Clicked
    {
    Tab_Button_Clicked_Text := Tab_Button_Get_Text(Tab_Button_Clicked)
    SetTimer, Tab__Drag_and_Drop, 60 ; check status of drag operation
    }
Return

Tab__Drag_and_Drop:
  If ! GetKeyState("LButton")
    {
    SetTimer, Tab__Drag_and_Drop, Off
    Group_Active := Tab_Button_Clicked_Text
    Gosub, Gui_Window_Group_Load__part2
    Return
    }
  If TCM_HITTEST()
    Tab_Button_Over := TCM_HITTEST()
  Tab_Button_Over_Text := Tab_Button_Get_Text(Tab_Button_Over)
  If (Tab_Button_Over < Tab_Button_Clicked)
    Tab_Swap(Group_List, Tab_Button_Clicked_Text, Tab_Button_Over_Text)
  Else If (Tab_Button_Over > Tab_Button_Clicked)
    Tab_Swap(Group_List, Tab_Button_Over_Text, Tab_Button_Clicked_Text)
Return

Tab_Swap(ByRef Tab_List, ByRef Text1, ByRef Text2)
{
  Global
  StringReplace, Tab_List, Tab_List, %Text1% , %Text2%
  StringReplace, Tab_List, Tab_List, %Text2% , %Text1%
  Tab_Button_Clicked := Tab_Button_Over ; update
  GuiControl,, Gui1_Tab, |%Group_List%
  GuiControl, ChooseString, Gui1_Tab, %Tab_Button_Clicked_Text%
}

TCM_HITTEST() ; returns 1-based index of clicked tab
{
  Global hw_Gui1_Tab
  MouseGetPos, mX, mY, hWnd, Control, 2
  If (Control != hw_Gui1_Tab) ; not clicked on tab control
    Return, False
  ControlGetPos, cX, cY,,,, ahk_id %Control%
  x:=mX-cX, y:=mY-cY ; co-ordinatess relative to tab control
  VarSetCapacity(lparam, 12, 0)
  NumPut(x, lparam, 0, "Int")
  NumPut(y, lparam, 4, "Int")
  SendMessage, 0x130D, 0, &lparam,, ahk_id %Control% ; TCM_HITTEST
  result := ErrorLevel ; 0-based index, FAIL, or 0xFFFFFFFF (in a tab but not the button)
  If (result = "FAIL" or result = 0xFFFFFFFF)
    Return, False
  Else
    Return, result + 1 ; change to 1-based index
}

Tab_Button_Get_Text(Tab_Index)
{
  Global
  If Tab_Index
    Loop, Parse, Group_List,|
      If (A_Index = Tab_Index)
        Return,  A_LoopField
}


Gui_Settings_Tab:
   
Return
*/

Gui_Resize_and_Position:
  DetectHiddenWindows, On ; retrieving column widths to enable calculation of col 3 width
  Gui, +LastFound
  Gui_ID := WinExist() ; for auto-sizing columns later
  If Display_List_Shown =0 ; resize listview columns - no need to resize columns for updating listview
    {
    LV_ModifyCol(1, Col_1) ; icon column
    LV_ModifyCol(2, Col_2) ; hidden column for row number
    ; col 3 - see below
    LV_ModifyCol(4, Col_4) ; exe
    SendMessage, 0x1000+29, 3, 0,, ahk_id %hw_LV_ColorChange% ; LVM_GETCOLUMNWIDTH is 0x1000+29
      Width_Column_4 := ErrorLevel
      If Width_Column_4 > %Exe_Width_Max%
        LV_ModifyCol(4, Exe_Width_Max) ; resize title column
    LV_ModifyCol(5, Col_5) ; State
    If OnTop_Found
      LV_ModifyCol(6, Col_6) ; OnTop
    Else
      LV_ModifyCol(6, 0) ; OnTop
    If Status_Found
      LV_ModifyCol(7, Col_7) ; Status
    Else
      LV_ModifyCol(7, 0) ; Status
    Loop, 7
      {
      SendMessage, 0x1000+29, A_Index -1, 0,, ahk_id %hw_LV_ColorChange% ; LVM_GETCOLUMNWIDTH is 0x1000+29
        Width_Column_%A_Index% := ErrorLevel
      }
    Col_3_w := Listview_Width - Width_Column_1 - Width_Column_2 - Width_Column_4 - Width_Column_5 - Width_Column_6 - Width_Column_7 - 4 ; total width of columns - 4 for border
    LV_ModifyCol(3, Col_3_w) ; resize title column
    }
  ListView_Resize_Vertically(Gui_ID) ; Automatically resize listview vertically - pass the gui id value
  GuiControlGet, Listview_Now, Pos, ListView1 ; retrieve listview dimensions/position ; for auto-sizing (elsewhere)
  ; resize listview according to scrollbar presence
  If (Listview_NowH > Height_Max AND Use_Large_Icons_Current =0) ; already using small icons so limit height
    {
    Col_3_w -= Scrollbar_Vertical_Thickness ; allow for vertical scrollbar being visible
    LV_ModifyCol(3, Col_3_w) ; resize title column
    GuiControl, Move, ListView1, h%Height_Max%
    }
  DetectHiddenWindows, Off
Return


SB_Update__CPU:
  Format_Float := A_FormatFloat
  SetFormat, Float, 4.1
  SB_SetText( "CPU (%): " GetSystemTimes(), 1)
  SetFormat, Float, %Format_Float%
Return
SB_Update__ProcessCPU:
  Format_Float := A_FormatFloat
  SetFormat, Float, 4.1
  Get__Selected_Row_and_RowText()
  SB_SetText( "Proc. (%): " GetProcessTimes(PID%RowText%), 2)
  SetFormat, Float, %Format_Float%
Return


Get__Selected_Row_and_RowText()
{
  Global
  If ListView1__Disabled = 1 ; don't update - for statusbar (timer)
    Return
  Selected_Row := LV_GetNext(0, "F")
  LV_GetText(RowText, Selected_Row, 2)  ; Get the row's 2nd column's text for real order number (hidden column).
}

;========================================================================================================


ListView_Event:
;m00n  If MButton_Clicked =1 ; closing a window so don't process events
;m00n    Return
  If A_GuiEvent =DoubleClick ; activate clicked window
    Gosub, ListView_Destroy
  If A_GuiEvent =K ; letter was pressed, select next window name starting with that letter
    Gosub, Key_Pressed_1st_Letter
  If A_GuiEvent =ColClick ; column was clicked - do custom sort to allow for sorting hidden column + remembering state
    ColumnClickSort(A_EventInfo) ; A_EventInfo = column clicked on
Return


GuiContextMenu:  ; right-click or press of the Apps key -> displays the menu only for clicks inside the ListView
  If Menu__Gui_1 ; destroy previously generated menus
  Get__Selected_Row_and_RowText()
  Gui_wid := Window%RowText%
  Gui_wid_Title :=Title%RowText%
  StringLeft, Gui_wid_Title, Gui_wid_Title, 40

  Menu, Tray, UseErrorLevel
  ; Clear previous entries
  Menu, ContextMenu1, DeleteAll
  Menu, Gui_MinMax_Windows, DeleteAll
  Menu, Gui_Dock_Windows, DeleteAll
  Menu, Gui_Un_Exclude_Windows, DeleteAll
  Menu, Gui_Window_Group_Load, DeleteAll
  Menu, Gui_Window_Group_Delete, DeleteAll
  Menu, Gui_Processes, DeleteAll
  Menu, Gui_Settings_Help, DeleteAll

  ; Min/Max windows
  Menu, Gui_MinMax_Windows, Add, % "Maximize all:  " Exe_Name%RowText%, Gui_MinMax_Windows
  Menu, Gui_MinMax_Windows, Add, % "Minimize all:   " Exe_Name%RowText%, Gui_MinMax_Windows
  Menu, Gui_MinMax_Windows, Add
  Menu, Gui_MinMax_Windows, Add, % "Normal all:     " Exe_Name%RowText%, Gui_MinMax_Windows
  Menu, ContextMenu1, Add, &Min / Max, :Gui_MinMax_Windows

  ; Dock to Screen Edge entries
  Menu, Gui_Dock_Windows, Add, Left, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add, Right, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add, Top, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add, Bottom, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add
  Menu, Gui_Dock_Windows, Add, Corner - Top Left, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add, Corner - Top Right, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add, Corner - Bottom Left, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add, Corner - Bottom Right, Gui_Dock_Windows
  Menu, Gui_Dock_Windows, Add
  Menu, Gui_Dock_Windows, Add, Un-Dock, Gui_Un_Dock_Window
  Menu, Gui_Dock_Windows, Add, Un-Dock All, Gui_Un_Dock_Windows_All
  IfNotInString, Gui_Dock_Windows_List,%Gui_wid%
    Menu, Gui_Dock_Windows, Disable, Un-Dock
  Else
    {
    Menu, Gui_Dock_Windows, Disable, Left
    Menu, Gui_Dock_Windows, Disable, Right
    Menu, Gui_Dock_Windows, Disable, Top
    Menu, Gui_Dock_Windows, Disable, Bottom
    Menu, Gui_Dock_Windows, Disable, Corner - Top Left
    Menu, Gui_Dock_Windows, Disable, Corner - Top Right
    Menu, Gui_Dock_Windows, Disable, Corner - Bottom Left
    Menu, Gui_Dock_Windows, Disable, Corner - Bottom Right
    If (Edge_Dock_Position_%Gui_wid% !="") ; produces error if doesn't exist
      Menu, Gui_Dock_Windows, Check, % Edge_Dock_Position_%Gui_wid%
    }
  If Gui_Dock_Windows_List =
    Menu, Gui_Dock_Windows, Disable, Un-Dock All
  Menu, ContextMenu1, Add, &Dock to Edge, :Gui_Dock_Windows

  ; Window Group sub-menu entry
  Menu, ContextMenu1, Add ; spacer
  Menu, ContextMenu1, Add, Group - &No Filter, Gui_Window_Group_No_Filter
  If (Group_Active != "Settings" AND Group_Active != "ALL")
    Menu, ContextMenu1, Disable, Group - &No Filter

  Loop, Parse, Group_List,|
    If (A_LoopField != "Settings")
      Menu, Gui_Window_Group_Load, Add,%A_LoopField%, Gui_Window_Group_Load
  Menu, Gui_Window_Group_Load, Check, %Group_Active%
  Menu, ContextMenu1, Add, Group - &Load, :Gui_Window_Group_Load
  Menu, ContextMenu1, Add, Group - &Save/Edit, Gui_Window_Group_Save_Edit
  Menu, ContextMenu1, Add, Group - Global &Include, Gui_Window_Group_Global_Include
  Menu, ContextMenu1, Add, Group - Global &Exclude, Gui_Window_Group_Global_Exclude

  Loop, Parse, Group_List,|
    If (A_LoopField != "Settings" AND A_LoopField != "ALL")
      Menu, Gui_Window_Group_Delete, Add,%A_LoopField%, Gui_Window_Group_Delete
  Menu, Gui_Window_Group_Delete, Check, %Group_Active%
  Menu, Gui_Window_Group_Delete, Color, E10000, Single ; warning colour
  Menu, ContextMenu1, Add, Group - &Delete, :Gui_Window_Group_Delete

  ; Hotkeys entry
  Menu, ContextMenu1, Add ; spacer
  Menu, ContextMenu1, Add, &Hotkeys, Gui_Hotkeys

  ; Processes entry
  Menu, ContextMenu1, Add ; spacer
  Menu, Gui_Processes, Add, % "End:      " Gui_wid_Title, End_Process_Single
  Menu, Gui_Processes, Add ; spacer
  Menu, Gui_Processes, Add, % "End All:  " Exe_Name%RowText%, End_Process_All_Instances
  Menu, Gui_Processes, Color, E10000, Single ; warning colour
  Menu, ContextMenu1, Add, &Processes, :Gui_Processes

  ; Help + Latest changes
  Menu, ContextMenu1, Add ; spacer
  Menu, Gui_Settings_Help, Add, Delete Settings (.ini) && Reload, Delete_Ini_File_Settings
  Menu, Gui_Settings_Help, Add, ; spacer
  Menu, Gui_Settings_Help, Add, Help, HELP_and_LATEST_VERSION_CHANGES
  Menu, Gui_Settings_Help, Add, Latest Changes, HELP_and_LATEST_VERSION_CHANGES
  Menu, ContextMenu1, Add, Settings && Help, :Gui_Settings_Help

 Menu, ContextMenu1, Show, %A_GuiX%, %A_GuiY%
Return


Gui_MinMax_Windows:
  Gosub, GuiControl_Disable_ListView1
  List_of_Process_To_MinMax = ; need to store list now as re-drawing the listview over-writes necessary variables
  Loop, %Window_Found_Count%
    {
    If ( Exe_Name%A_Index% = Exe_Name%RowText% and ! Dialog%A_Index% ) ; don't try to act on dialog windows (e.g. save prompts)
        List_of_Process_To_MinMax .= "|" . Window%A_Index%
    }
  StringTrimLeft, List_of_Process_To_MinMax, List_of_Process_To_MinMax, 1 ; remove 1st | character (empty reference otherwise)
  If A_ThisMenuItem contains Maximize
    MinMax_Message =0xF030 ; SC_MAXIMIZE
  Else If A_ThisMenuItem contains Minimize
    MinMax_Message =0xF020 ; SC_MINIMIZE
  Else If A_ThisMenuItem contains Normal
    MinMax_Message =0xF120 ; SC_RESTORE
  Loop, Parse, List_of_Process_To_MinMax,|
    PostMessage, 0x112, %MinMax_Message%,,, ahk_id %A_LoopField% ; 0x112 = WM_SYSCOMMAND
  Sleep, 50 ; wait for min/max state to change otherwise updated listview will be wrong
  Gosub, Display_List
  Gosub, GuiControl_Enable_ListView1
Return

GuiControl_Disable_ListView1:
  OnMessage( 0x06, "" ) ; turn off: no alt tab list window lost focus -> hide list
  ListView1__Disabled = 1
  GuiControl, Disable, ListView1
Return

GuiControl_Enable_ListView1:
  GuiControl, Enable, ListView1
  GuiControl, Focus, ListView1
  ListView1__Disabled = 0
  OnMessage( 0x06, "WM_ACTIVATE" ) ; turn on again - alt tab list window lost focus > hide list
Return


; DOCKED WINDOWS MENU SECTION:
;============================================================================================================================

Gui_Dock_Windows:
  Edge_Dock_%Gui_wid% =%Gui_wid% ; write window ID to a unique variable
  Edge_Dock_Position_%Gui_wid% :=A_ThisMenuItem ; store Left, Right, etc
  WinGet, Edge_Dock_State_%Gui_wid%, MinMax, ahk_id %Gui_wid%
  If Edge_Dock_State_%Gui_wid% =-1 ; if window is mimised, un-minimise
    WinRestore, ahk_id %Gui_wid%
  WinGetPos, Edge_Dock_X_%Gui_wid%, Edge_Dock_Y_%Gui_wid%, Edge_Dock_Width_%Gui_wid%, Edge_Dock_Height_%Gui_wid%, ahk_id %Gui_wid%
  Edge_Dock_X_Initial_%Gui_wid% := Edge_Dock_X_%Gui_wid%
  Edge_Dock_Y_Initial_%Gui_wid% := Edge_Dock_Y_%Gui_wid%
  Edge_Dock_Width_Initial_%Gui_wid% := Edge_Dock_Width_%Gui_wid%
  Edge_Dock_Height_Initial_%Gui_wid% := Edge_Dock_Height_%Gui_wid%
  WinGet, Edge_Dock_AlwaysOnTop_%Gui_wid%, ExStyle, ahk_id %Gui_wid% ; store AlwaysOnTop original status
  If Gui_Dock_Windows_List =
    Gui_Dock_Windows_List =%Gui_wid% ; keep track of number of docked windows
  Else
    Gui_Dock_Windows_List .="|" Gui_wid
  WinSet, AlwaysOnTop, On, ahk_id %Gui_wid%
  Gosub, Alt_Esc_Check_Alt_State ; hides alt-tab gui - shows again if alt still pressed
Gui_Dock_Windows_ReDock:
  Edge_Dock_X =
  Edge_Dock_Y =
  ; leave just 5 pixels (Edge_Dock_Border_Visible) of side visible
  If Edge_Dock_Position_%Gui_wid% contains Left
    Edge_Dock_X := - ( Edge_Dock_Width_%Gui_wid% - Edge_Dock_Border_Visible )
  Else If Edge_Dock_Position_%Gui_wid% contains Right
    Edge_Dock_X := A_ScreenWidth - Edge_Dock_Border_Visible
  If Edge_Dock_Position_%Gui_wid% contains Top
    Edge_Dock_Y := - ( Edge_Dock_Height_%Gui_wid% - Edge_Dock_Border_Visible )
  Else If Edge_Dock_Position_%Gui_wid% contains Bottom
    Edge_Dock_Y := A_ScreenHeight - Edge_Dock_Border_Visible
  WinMove, ahk_id %Gui_wid%,, %Edge_Dock_X%, %Edge_Dock_Y%

  SetTimer, Check_Mouse_Position, %Edge_Dock_Activation_Delay% ; change to affect response time to having mouse over edge-docked window
Return


Check_Mouse_Position:
  Gosub, Check_Docked_Windows_Exist
  WinGet, Previously_Active_Window_Before_Using_Docked, ID, A
  Edge_Dock_Active_Window =
  If ( Edge_Dock_%Previously_Active_Window_Before_Using_Docked% != "" ) ; check keyboard focus
    {
    CoordMode, Mouse, Screen
    MouseGetPos,Check_Mouse_Position_X, Check_Mouse_Position_Y
    Edge_Dock_Active_Window := Previously_Active_Window_Before_Using_Docked
    }
  MouseGetPos,,, Mouse_Over_Window
  If ( Edge_Dock_%Mouse_Over_Window% != "" ) ; over-ride keyboard with mouse "focus" if necessary
    {
    Edge_Dock_Active_Window := Mouse_Over_Window
    WinActivate, ahk_id %Mouse_Over_Window%
    }
  If Edge_Dock_Active_Window != ; i.e. window is already docked
    {
    SetTimer, Check_Mouse_Position, Off
    WinGet, PID_Edge_Dock_Active_Window, PID, ahk_id %Edge_Dock_Active_Window%
    Edge_Dock_X =
    Edge_Dock_Y =
    ; move window onto screen
    If Edge_Dock_Position_%Edge_Dock_Active_Window% contains Left
      Edge_Dock_X =0
    Else If Edge_Dock_Position_%Edge_Dock_Active_Window% contains Right
      Edge_Dock_X := A_ScreenWidth - Edge_Dock_Width_%Edge_Dock_Active_Window%
    If Edge_Dock_Position_%Edge_Dock_Active_Window% contains Top
      Edge_Dock_Y =0
    Else If Edge_Dock_Position_%Edge_Dock_Active_Window% contains Bottom
      Edge_Dock_Y := A_ScreenHeight - Edge_Dock_Height_%Edge_Dock_Active_Window%
    WinSet, AlwaysOnTop, Off, ahk_id %Edge_Dock_Active_Window%
    WinMove, ahk_id %Edge_Dock_Active_Window%,, %Edge_Dock_X%, %Edge_Dock_Y%
    SetTimer, Check_Mouse_Position_Deactivate, %Edge_Dock_Activation_Delay%
    }
Return

Check_Docked_Windows_Exist:
  If Gui_Dock_Windows_List = ; keep track of number of docked windows
    {
    SetTimer, Check_Mouse_Position, Off
    SetTimer, Check_Mouse_Position_Deactivate, Off
    Return
    }
  Loop, Parse, Gui_Dock_Windows_List,| ; check if windows in docked list have been closed before un-docking
    {
    IfWinNotExist, ahk_id %A_LoopField%
      {
      Gui_wid =%A_LoopField%
      Gui_Un_Dock_Window_No_Alt_Esc =1
      Gosub, Gui_Un_Dock_Window
      }
    }
Return


Check_Mouse_Position_Deactivate: ; check if not over an edge-docked window any more
  Gosub, Check_Docked_Windows_Exist

  WinGet, Style, Style, ahk_id %Edge_Dock_Active_Window%
  If ( Style & WS_DISABLED ) ; don't allow disabled windows to be re-docked (e.g., showing save box)
    Return

  ; retrieve active window focus and mouse over window - active window has priority
  WinGet, PID_Active_Window_Now, PID, A
  WinGet, Active_Window_Now_ID, ID, A
  WinGetTitle, Active_Window_Now_Title, A ; use titles to check if in same program title but over a problematic control such as xplorer2 dropdownbox (different id and pid)
  WinGetTitle, Edge_Dock_Active_Window_Title, ahk_id %Edge_Dock_Active_Window%
  WinGetTitle, Active_Window_Now_Mouse_Title, ahk_id %Active_Window_Now_Mouse%

  CoordMode, Mouse, Screen
  MouseGetPos,Active_Window_Now_Mouse_X, Active_Window_Now_Mouse_Y, Active_Window_Now_Mouse
  If ((Check_Mouse_Position_X >= Active_Window_Now_Mouse_X -10 and Check_Mouse_Position_X <= Active_Window_Now_Mouse_X +10) ; ; mouse not moved - e.g. clicked taskbar
    and (Check_Mouse_Position_Y >= Active_Window_Now_Mouse_Y -10 and Check_Mouse_Position_Y <= Active_Window_Now_Mouse_Y +10)
    and (Active_Window_Now_Title = Edge_Dock_Active_Window_Title))
      Return

  If (Active_Window_Now_Title = Edge_Dock_Active_Window_Title and Active_Window_Now_Mouse_Title = ""
        and (Active_Window_Now_ID != TaskBar_ID and Active_Window_Now_Mouse != TaskBar_ID))
      Return
  If (PID_Active_Window_Now != PID_Edge_Dock_Active_Window) ; compare pid to check that a child window is not created/active
    Gosub, Gui_Dock_Windows_ReDock_Initiate
  Else
    {
    WinGet, PID_Active_Window_Now_Mouse, PID, ahk_id %Active_Window_Now_Mouse%
    If (PID_Active_Window_Now_Mouse != PID_Edge_Dock_Active_Window)
      {
      Gosub, Gui_Dock_Windows_ReDock_Initiate
      If Gui_Dock_Windows_List contains %Previously_Active_Window_Before_Using_Docked% ; activate window under mouse to prevent looping
        WinActivate, ahk_id %Active_Window_Now_Mouse%
      Else
        WinActivate, ahk_id %Previously_Active_Window_Before_Using_Docked%
      }
    }
Return


Gui_Dock_Windows_ReDock_Initiate:
  SetTimer, Check_Mouse_Position_Deactivate, Off
  WinSet, AlwaysOnTop, On, ahk_id %Edge_Dock_Active_Window%
  WinGetPos, Edge_Dock_X_%Edge_Dock_Active_Window%, Edge_Dock_Y_%Edge_Dock_Active_Window%, Edge_Dock_Width_%Edge_Dock_Active_Window%
    , Edge_Dock_Height_%Edge_Dock_Active_Window%, ahk_id %Edge_Dock_Active_Window%
  Gui_wid =%Edge_Dock_Active_Window%
  Gosub, Gui_Dock_Windows_ReDock
Return


Gui_Un_Dock_Window:
  If Gui_Un_Dock_Window_No_Alt_Esc !=1
    Gosub, Alt_Esc_Check_Alt_State ; hides alt-tab gui - shows again if alt still pressed
  Gui_Un_Dock_Window_No_Alt_Esc = ; reset
  If ! ( Edge_Dock_AlwaysOnTop_%Gui_wid% & 0x8 ) ; 0x8 is WS_EX_TOPMOST - keep AlwaysOnTop if originally on top
    WinSet, AlwaysOnTop, Off, ahk_id %Gui_wid%
  WinMove, ahk_id %Gui_wid%,, % Edge_Dock_X_Initial_%Gui_wid%, % Edge_Dock_Y_Initial_%Gui_wid%, % Edge_Dock_Width_Initial_%Gui_wid%
    , % Edge_Dock_Height_Initial_%Gui_wid% ; original position

  ; erase variables
  Edge_Dock_%Gui_wid% =
  Edge_Dock_X_Initial_%Gui_wid% =
  Edge_Dock_Y_Initial_%Gui_wid% =
  Edge_Dock_Width_Initial_%Gui_wid% =
  Edge_Dock_Height_Initial_%Gui_wid% =
  Edge_Dock_State_%Gui_wid% =
  Edge_Dock_X_%Gui_wid% =
  Edge_Dock_Y_%Gui_wid% =
  Edge_Dock_Width_%Gui_wid% =
  Edge_Dock_Height_%Gui_wid% =
  Edge_Dock_Position_%Gui_wid% =
  Edge_Dock_AlwaysOnTop_%Gui_wid% =

  StringReplace, Gui_Dock_Windows_List, Gui_Dock_Windows_List,%Gui_wid%| ; remove entry
  If ErrorLevel =1
    StringReplace, Gui_Dock_Windows_List, Gui_Dock_Windows_List,%Gui_wid% ; last window so no delimiter to replace too
Return


Gui_Un_Dock_Windows_All:
  Loop, Parse, Gui_Dock_Windows_List,| ; check if windows in docked list have been closed before un-docking
    {
    Gui_wid := A_LoopField
    Gui_Un_Dock_Window_No_Alt_Esc =1
    Gosub, Gui_Un_Dock_Window
    }
Return


; HOTKEYS MENU SECTION:
;============================================================================================================================

Gui_Hotkeys:
  Gosub, Alt_Esc
  Gui, 2: Default ; for listview operations
  Gui, 2: Font, s10
  Gui, 2: Add, Text, xm y+15, Main hotkeys:
  Gui, 2: Font
  Gui, 2: Add, Text, x+5 yp+2, (Note that "Alt" must be either Alt, Ctrl, Shift, Win or mouse XButton1 / 2 - but using XButton requires "Shift+Tab" is a single key!)
  ; Gui_Add_Hotkey(Gui number, Text, Comment, variable name)
  Gui_Add_Hotkey(2, "Alt","(key in Alt+Tab)", "Alt_Hotkey")
    GuiControl, 2: Disable, Alt_Hotkey_Tab
    GuiControl, 2: Disable, Alt_Hotkey_Esc
    GuiControl, 2: Disable, Alt_Hotkey_Enter
    GuiControl, 2: Disable, Alt_Hotkey_WheelUp
    GuiControl, 2: Disable, Alt_Hotkey_WheelDown
    GuiControl, 2: Disable, Alt_Hotkey_Hotkey
  Gui_Add_Hotkey(2, "Tab","(key in Alt+Tab)", "Tab_Hotkey")
  Gui_Add_Hotkey(2, "Shift+Tab","(Key(s) in Alt+Shift+Tab)", "Shift_Tab_Hotkey")
  Gui_Add_Hotkey(2, "Esc","(key in Alt+Esc)", "Esc_Hotkey")
    Gui, 2: Font, s10
  Gui, 2: Add, Text,xm y+15, Single keys:
    Gui, 2: Font
  Gui, 2: Add, Text, x+5 yp+2, (Alternative way to show the Alt+Tab list by 1 key (blank for no hotkey) and another for selection)
  Gui_Add_Hotkey(2, "Alt+Tab list", "", "Single_Key_Show_Alt_Tab")
  Gui_Add_Hotkey(2, "Alt+Tab selection", "", "Single_Key_Hide_Alt_Tab")
    Gui, 2: Font, s10
  Gui, 2: Add, Text,xm y+30, Group hotkeys:
    Gui, 2: Font
  GuiControl, 2: Focus, Static1

  Gui, 2: Add, ListView, section xm r15 w470 -Multi, Group name|Assigned hotkey
  Loop, Parse, Group_List, |
    If (A_LoopField != "Settings")
        LV_Add("", A_LoopField, %A_LoopField%_Group_Hotkey)
  Gui, 2: Add, Button, x+10 yp+40 gGui_2_Group_Hotkey_Assign w170, Assign hotkey to selected group:
  Gui, 2: Add, Hotkey, vGui_2_Group_Hotkey xp y+5, %Hotkey%
  Gui, 2: Add, Button, xp y+30 gGui_2_Group_Hotkey_Clear w170, Clear hotkey of selected group
  Gui, 2: Add, Text, xp y+30, ( Key: !=Alt, ^=Ctrl, +=Shift, #=Win )
  Gui, 2: Add, Text, xm+250, WARNING! No error checking for hotkeys - be careful what you choose! (Delete the .ini file to reset settings)
  Gui, 2: Add, Button, xm+430 g2GuiClose w100, &Cancel
  Gui, 2: Add, Button, x+20 gGui_2_OK wp Default, &OK
  Gui, 2: Show,, Hotkeys
Return


Gui_2_Group_Hotkey_Assign:
  Gui, 2: Submit, NoHide
  Selected_Row := LV_GetNext(0, "F")
  If (! Selected_Row or ! Gui_2_Group_Hotkey)
    Return
  Loop, Parse, Group_List,|
    If %A_LoopField%_Group_Hotkey =%Gui_2_Group_Hotkey%
      {
      Msgbox, Hotkey already exists! Please clear the duplicate hotkey first.
      Return
      }
  LV_GetText(Gui_2_Group_Selected, Selected_Row)
  %Gui_2_Group_Selected%_Group_Hotkey := Gui_2_Group_Hotkey
  LV_Modify(Selected_Row, "Col2", Gui_2_Group_Hotkey)
Return


Gui_2_Group_Hotkey_Clear:
  Selected_Row := LV_GetNext(0, "F")
  If not Selected_Row
    Return
  LV_Modify(Selected_Row, "Col2", "")
Return


Gui_2_OK:
  Loop, % LV_GetCount() ; process group hotkeys from listview
    {
    LV_GetText(Group_Name, A_Index, 1)
    LV_GetText(Group_Hotkey, A_Index, 2)
    %Group_Name%_Group_Hotkey =%Group_Hotkey%
    }
  Gui, 2: Submit
  Gui, 2: Destroy
  Gui_Read_Hotkey(2, "Alt_Hotkey") ; Gui_Read_Hotkey(Gui number, associated variable)
  Gui_Read_Hotkey(2, "Tab_Hotkey")
  Gui_Read_Hotkey(2, "Shift_Tab_Hotkey")
  Gui_Read_Hotkey(2, "Esc_Hotkey")
  Gui_Read_Hotkey(2, "Single_Key_Show_Alt_Tab")
  Gui_Read_Hotkey(2, "Single_Key_Hide_Alt_Tab")
  IniFile_Data("Write")
  Reload
Return


Gui_Read_Hotkey(Gui, var_name)
{
  Global
  %var_name% =
  If %var_name%_Alt =1
    %var_name% = % %var_name% "!"
  If %var_name%_Ctrl =1
    %var_name% = % %var_name% "^"
  If %var_name%_Shift =1
    %var_name% = % %var_name% "+"
  If %var_name%_Win =1
    %var_name% = % %var_name% "#"
  If %var_name%_Tab =1
    %var_name% = % %var_name% "Tab"
  If %var_name%_Esc =1
    %var_name% = % %var_name% "Esc"
  If %var_name%_Enter =1
    %var_name% = % %var_name% "Enter"
  If %var_name%_XButton1 =1
    %var_name% = % %var_name% "XButton1"
  If %var_name%_XButton2 =1
    %var_name% = % %var_name% "XButton2"
  If %var_name%_WheelUp =1
    %var_name% = % %var_name% "WheelUp"
  If %var_name%_WheelDown =1
    %var_name% = % %var_name% "WheelDown"
  If (%var_name%_Hotkey != "None" and %var_name% = "")
    %var_name% = % %var_name% %var_name%_Hotkey
}


Gui_Add_Hotkey(Gui, Text, Comment, var_name)
{
  Local Alt, Ctrl, Shift, Win, Tab, Esc, Enter, XButton1, XButton2, WheelUp, WheelDown, Hotkey, hotkey_temp, hotkey_list__symbols, hotkey_list__symbols0, hotkey_list__vars, hotkey_list__vars0, symbol_temp, var_temp
  hotkey_temp := %var_name%

  hotkey_list__symbols =!|^|+|#|Tab|Esc|Enter|XButton1|XButton2|WheelUp|WheelDown
  hotkey_list__vars =Alt|Ctrl|Shift|Win|Tab|Esc|Enter|XButton1|XButton2|WheelUp|WheelDown
  StringSplit, hotkey_list__symbols, hotkey_list__symbols ,|
  StringSplit, hotkey_list__vars, hotkey_list__vars ,|
  Loop, %hotkey_list__symbols0%
    {
    symbol_temp := hotkey_list__symbols%A_Index%
    var_temp    := hotkey_list__vars%A_Index%
    If hotkey_temp contains %symbol_temp%
      {
      %var_temp% =1
      StringReplace, hotkey_temp, hotkey_temp, %symbol_temp%, ; remove it from list
      }
    Else
      %var_temp% =0
    }
  Hotkey=%hotkey_temp% ; remainder

  Gui, %Gui%: Font, bold
  Gui, %Gui%: Add, Text, xm, %Text%
  Gui, %Gui%: Font
  If Comment !=
    Gui, %Gui%: Add, Text, x80 yp, %Comment%
  Gui, %Gui%: Add, Checkbox, v%var_name%_Alt Checked%Alt% x200 yp, Alt
  Gui, %Gui%: Add, Checkbox, v%var_name%_Ctrl Checked%Ctrl% x+10, Ctrl
  Gui, %Gui%: Add, Checkbox, v%var_name%_Shift Checked%Shift% x+10, Shift
  Gui, %Gui%: Add, Checkbox, v%var_name%_Win Checked%Win% x+10, Win
  Gui, %Gui%: Add, Checkbox, v%var_name%_Tab Checked%Tab% x+10, Tab
  Gui, %Gui%: Add, Checkbox, v%var_name%_Esc Checked%Esc% x+10, Esc
  Gui, %Gui%: Add, Checkbox, v%var_name%_Enter Checked%Enter% x+10, Enter
  Gui, %Gui%: Add, Text, x+10, XButton:
  Gui, %Gui%: Add, Checkbox, v%var_name%_XButton1 Checked%XButton1% x+2, 1
  Gui, %Gui%: Add, Checkbox, v%var_name%_XButton2 Checked%XButton2% x+2, 2
  Gui, %Gui%: Add, Text, x+10, Wheel:
  Gui, %Gui%: Add, Checkbox, v%var_name%_WheelUp Checked%WheelUp% x+2, Up
  Gui, %Gui%: Add, Checkbox, v%var_name%_WheelDown Checked%WheelDown% x+2, Down
  Gui, %Gui%: Add, Hotkey, v%var_name%_Hotkey x+10 yp-3, %Hotkey%
}


; GROUPS MENU SECTION:
;============================================================================================================================

Gui_Window_Group_No_Filter:
  Group_Active =ALL
  Gosub, Alt_Esc_Check_Alt_State
Return


Gui_Window_Group_Load:
  Group_Active =%A_ThisMenuItem%
Gui_Window_Group_Load__part2:
  Gosub, Custom_Group__make_array_of_contents
  Gosub, Alt_Esc_Check_Alt_State ; hides alt-tab gui - shows again if alt still pressed
Return

Custom_Group__make_array_of_contents:
  Exclude_Not_In_List =
  If (Group_Active != "Settings" AND Group_Active != "ALL")
    {
    Group_Active_Contents := %Group_Active%
    If Group_Active_Contents contains Exclude_Not_In_List
      {
      Exclude_Not_In_List =1
      StringReplace, Group_Active_Contents, Group_Active_Contents, Exclude_Not_In_List|, ; remove text
      }
    StringSplit, Group_Active_, Group_Active_Contents,|
    }
Return

Gui_Window_Group_Save_Edit:
  Gosub, Alt_Esc
  Gui, 3: Default ; for listview operations
  Gui, 3: Add, Text, y+15,
(
Choose window titles/exes to include/exclude when LOADING a list:

  - Double-click / F2 to rename an entry.
  - Titles match anywhere within a target window's title or parent's title (exe is ignored).
  - Delete the title completely to match the EXE instead.
  - To EXCLUDE a window, prefix title or EXE with an exclamation: e.g. !notepad.exe, or only ! in title column.
  - "Exclude all windows not in list?" ignores new windows that do not match the list.
  - Only ticked items are added to the list. Unticked are removed.
  - Priority of rules is top (highest) to bottom (lowest).
  - Not case sensitive.
)

  Gui, 3: Add, ListView, xm y+15 r15 w500 Checked -ReadOnly -Multi NoSortHdr AltSubmit gListView3_Event, (Partial) Window Title|EXE
    Gui_3_ImageList:= IL_Create(15,5,0)
    LV_SetImageList(Gui_3_ImageList, 1)
    IL_Add( Gui_3_ImageList, "shell32.dll" , 110) ; not included icon

  Gui, 3: Add, Picture, icon48 x+10 yp+100 gGui_3_ListView_Swap_Rows_Up, C:\WINDOWS\system32\progman.exe ; up arrow
  Gui, 3: Add, Picture, icon45 gGui_3_ListView_Swap_Rows_Down, C:\WINDOWS\system32\progman.exe ; down arrow
  Gui, 3: Add, Text, xm+20, Manual add:
  Gui_3_Manual_Allow_Blank =1
  Gui, 3: Add, Edit, x+5 w200 gGui_3_Manual_Exe_Blank vGui_3_Manual_Title, [window title]
  Gui, 3: Add, Edit, x+5 w100 gGui_3_Manual_Title_Blank vGui_3_Manual_Exe, [program.exe]
  Gui, 3: Add, Button, x+10 w80 gGui3_Manual_Add, A&dd
  Gui, 3: Add, Text, xm+20 y+30, Group name:

  Gui, 3: Add, ComboBox, x+5 w200 vCustom_Name, %Group_List%
    GuiControl, ChooseString, Custom_Name, %Group_Active%
  Gui, 3: Add, Checkbox, x+20 vExclude_Not_In_List Checked, Exclude all windows not in list?
  If %Group_Active% not contains Exclude_Not_In_List
    GuiControl,, Exclude_Not_In_List, 0 ; check box

  Gui, 3: Add, Button, xm+10 y+20 w80 gGui3_RESET, &Reset List
  Gui, 3: Add, Button, x+20 wp gGui3_SelectALL, Select &All
  Gui, 3: Add, Button, x+20 wp gGui3_SelectNONE, Select &None
  Gui, 3: Add, Button, x+20 wp g3GuiClose, &Cancel
  Gui, 3: Add, Button, x+20 wp Default gGui3_OK, &OK

  If (Global_Include_Edit or Global_Exclude_Edit)
    {
    GuiControl, 3: Disable, Exclude_Not_In_List
    GuiControl, 3: Disable, Custom_Name
    }

  If Global_Include_Edit =1
    Gui_3_Listview_Populate("Global_Include")
  Else If Global_Exclude_Edit =1
    Gui_3_Listview_Populate("Global_Exclude")

  Else If (Group_Active = "Settings" OR Group_Active = "ALL")
    Loop, %Window_Found_Count% ; populate listview
      LV_Add("Check Icon2", Title%A_Index%, Exe_Name%A_Index%) ; Icon 1 = not included icon, Icon 2 = blank
  Else
    Gui_3_Listview_Populate(Group_Active)
  Gosub, Gui_3_Update_Icons

  DetectHiddenWindows, On
  Gui, 3: +LastFound
  Gui_3_ID := WinExist() ; for auto-sizing columns later
  LV_ModifyCol(1, 350)
  ControlGet, Gui_3_Listview_Style, Style,, SysListView321, ahk_id %Gui_3_ID%
  If ( Gui_3_Listview_Style & WS_VSCROLL ) ; has a vertical scrollbar - reduced width for listview
    Gui_3_Col_2_w := 500 - 350 - Scrollbar_Vertical_Thickness - 4
  Else
    Gui_3_Col_2_w := 500 - 350 - 4
  LV_ModifyCol(2, Gui_3_Col_2_w)
  Gui, 3: Show,, Group - Save/Edit
Return

Gui_3_Listview_Populate(list)
{
  Global
  Loop, Parse, %list%,|
    {
    If A_LoopField =Exclude_Not_In_List
      Continue
    If A_LoopField contains .exe
      LV_Add("Check Icon2" ,"", A_LoopField) ; Icon 1 = not included icon, Icon 2 = blank
    Else
      LV_Add("Check Icon2" ,A_LoopField,"") ; Icon 1 = not included icon, Icon 2 = blank
    }
}


Gui_3_ListView_Swap_Rows_Up:
  ListView_Swap_Rows("Up") ; "move" selected row up 1 - higher priority
Return


Gui_3_ListView_Swap_Rows_Down:
  ListView_Swap_Rows("Down") ; "move" selected row down 1 - lower priority
Return


ListView_Swap_Rows(Direction) ; Direction=Up/Down -swaps all text in each column of 2 adjacent rows and their checked states
{
  Row_Selected := LV_GetNext("Focused")
  If Row_Selected =0 ; no row selected
    {
    LV_Modify(1, "Select Focus")
    Return
    }
  If Direction =Up
    {
    Row_Swap_With := Row_Selected -1
    If Row_Swap_With =0 ; reached top of listview
      Return
    }
  Else
    {
    Row_Swap_With := Row_Selected +1
    If ( Row_Swap_With > LV_GetCount() ) ; reached end of listview
      Return
    }
  Loop, % LV_GetCount("Col")
    {
    LV_GetText(Row_Text_%Row_Selected%_%A_Index%, Row_Selected, A_Index)
    LV_GetText(Row_Text_%Row_Swap_With%_%A_Index%, Row_Swap_With, A_Index)
    }
  If ( LV_GetNext(Row_Selected - 1, "C") = Row_Selected ) ; save box checked states
    Row_Selected_Checked =Check
  Else
    Row_Selected_Checked =-Check
  If ( LV_GetNext(Row_Swap_With - 1, "C") = Row_Swap_With )
    Row_Swap_With_Checked =Check
  Else
    Row_Swap_With_Checked =-Check
  Loop, % LV_GetCount("Col")
    {
    LV_Modify(Row_Selected, Row_Swap_With_Checked . " -Focus -Select Col" . A_Index, Row_Text_%Row_Swap_With%_%A_Index%)
    LV_Modify(Row_Swap_With, Row_Selected_Checked . " Focus Select Vis Col" . A_Index, Row_Text_%Row_Selected%_%A_Index%)
    }
  Gosub, Gui_3_Update_Icons
}


Gui3_OK:
  Gui, 3: Submit

  If Global_Include_Edit
    {
    Custom_Name =Global_Include
    Exclude_Not_In_List =
    }
  Else If Global_Exclude_Edit
    {
    Custom_Name =Global_Exclude
    Exclude_Not_In_List =
    }

  If (Custom_Name = "" OR Custom_Name = "Settings" OR Custom_Name = "ALL")
    {
    MsgBox, 48, ERROR, Enter a valid name for the group!
    Gui, 3: Show
    Return
    }
  StringReplace, Custom_Name, Custom_Name,%A_Space%,_,All

  If Exclude_Not_In_List =1 ; checked - add suffix to variable name to filter
    %Custom_Name% = |Exclude_Not_In_List ; add first entry - will parse and process when filtering alt-tab listview
  Else
    %Custom_Name% = ; make sure it is empty in case it previously existed (over-writing)
  RowNumber = 0 ; init
  Loop
    {
     RowNumber := LV_GetNext(RowNumber, "C")  ; Resume the search at the row after that found by the previous iteration.
     If not RowNumber  ; The above returned zero, so there are no more checked rows.
        Break
     LV_GetText(Title_temp, RowNumber)
     If Title_temp = ; blank therefore set the exe name instead
       LV_GetText(Title_temp, RowNumber, 2)
     If Title_temp =! ; exclude exe name instead
      {
       LV_GetText(Title_temp, RowNumber, 2)
       If Title_temp not contains !
         Title_temp =!%Title_temp%
       }
    %Custom_Name% .= "|" . Title_temp
    }
  StringTrimLeft, %Custom_Name%, %Custom_Name%, 1 ; trim initial |
  If ! (Global_Include_Edit or Global_Exclude_Edit)
    {
    If Group_List not contains %Custom_Name%
      Group_List .= "|" Custom_Name ; store name to a list for finding later
    Group_Active := Custom_Name ; automatically apply the saved group filter
    }
  Gosub, 3GuiClose
  IniFile_Data("Write")
  Global_Include_Edit = ; reset
  Global_Exclude_Edit =
  Gosub, Alt_Esc_Check_Alt_State ; hides alt-tab gui - shows again if alt still pressed
Return


ListView3_Event:
  If A_GuiEvent = E ; edited a row
    Gosub, Gui_3_Update_Icons
  If A_GuiEvent = DoubleClick
     SendMessage, 0x1017, LV_GetNext(0, "Focused") - 1, 0, SysListView321  ; 0x1017 is LVM_EDITLABEL
Return


Gui_3_Update_Icons:
  Loop, % LV_GetCount()
    {
    Gui_3_Row_To_Modify := A_Index
    Gui_3_Icon =2 ; blank icon as default
    Loop, 2 ; check column 1 and 2
      {
      LV_GetText(Title_temp, Gui_3_Row_To_Modify, A_Index)
      If Title_temp contains !
        Gui_3_Icon =1 ; not included icon
      }
    LV_Modify(Gui_3_Row_To_Modify, "Icon" . Gui_3_Icon)
    }
Return


Gui3_Manual_Add:
  Gui, 3: Submit, NoHide
  Gui_3_Manual_Allow_Blank =1
  Gosub, Gui_3_Manual_Title_Blank
  Gui_3_Manual_Allow_Blank =1
  Gosub, Gui_3_Manual_Exe_Blank
  Gui_3_Icon =2 ; blank icon
  If Gui_3_Manual_Title contains !
    Gui_3_Icon =1 ; not included icon
  If Gui_3_Manual_Exe contains !
    Gui_3_Icon =1
  LV_Add("Check Icon" . Gui_3_Icon,Gui_3_Manual_Title,Gui_3_Manual_Exe)
  GuiControl, Focus, &OK
  Sleep, 50
  GuiControl, +Default, &OK
Return


Gui3_RESET:
  Gui, 3: Destroy
  Gosub, Gui_Window_Group_Save_Edit
Return


Gui3_SelectALL:
  Loop, %Window_Found_Count%
    LV_Modify(A_Index, "Check")
Return


Gui3_SelectNONE:
  Loop, %Window_Found_Count%
    LV_Modify(A_Index, "-Check")
Return


Gui_3_Manual_Title_Blank:
  If Gui_3_Manual_Allow_Blank =1
    GuiControl,, Gui_3_Manual_Title, ; blank
  Gui_3_Manual_Allow_Blank =0
  GuiControl, +Default, A&dd
Return


Gui_3_Manual_Exe_Blank:
  If Gui_3_Manual_Allow_Blank =1
    GuiControl,, Gui_3_Manual_Exe, ; blank
  Gui_3_Manual_Allow_Blank =0
  GuiControl, +Default, A&dd
Return



Gui_Window_Group_Global_Include:
  Global_Include_Edit =1
  Gosub, Gui_Window_Group_Save_Edit
  Return
Gui_Window_Group_Global_Exclude:
  Global_Exclude_Edit =1
  Gosub, Gui_Window_Group_Save_Edit
Return


Gui_Window_Group_Delete:
  If Group_Active =%A_ThisMenuItem%
    Group_Active = ALL

  StringReplace, temp_List, Group_List, %A_ThisMenuItem% ; remove item from list
  Group_List =
  Loop, Parse, temp_List,|
    If A_LoopField
      Group_List .= "|" A_LoopField
  StringTrimLeft, Group_List, Group_List, 1 ; remove leading |

  Hotkey, % %A_ThisMenuItem%_Group_Hotkey, Off, UseErrorLevel
  IniDelete, Alt_Tab_Settings.ini, Groups, %A_ThisMenuItem%
  IniDelete, Alt_Tab_Settings.ini, Groups, %A_ThisMenuItem%_Group_Hotkey
  Gosub, Alt_Esc_Check_Alt_State ; hides alt-tab gui - shows again if alt still pressed
Return


Group_Hotkey: ; from loading ini file - determine hotkey behaviour based on current hotkey
  Group_Active_Before := Group_Active
  Loop, Parse, Group_List,|
    {
    If %A_LoopField%_Group_Hotkey =%A_ThisHotkey% ; find which group to activate
      {
      If Group_Active !=%A_LoopField%
        {
        Group_Active=%A_LoopField% ; load custom group
        Gosub, Custom_Group__make_array_of_contents
        }
      ; check if currently active window is in the newly loaded group, else switch to 1st
      Gosub, Single_Key_Show_Alt_Tab ; show list to generate updated variables to check
      Viewed_Window_List .="|" Active_ID
      Loop, %Window_Found_Count% ; abort switching and start to cycle through windows in list next
        {
        If (! InStr(Viewed_Window_List, Window%A_Index%) or Window_Found_Count <=1)
          {
          Gosub, ListView_Destroy
          WinActivate, % "ahk_id" Window%A_Index%
          If A_Index =%Window_Found_Count%
            Viewed_Window_List = ; viewed all windows so reset list
          Break
          }
        }
      Break
      }
    }
  Group_Active := Group_Active_Before
Return

/*
MButton_Close:
  MButton_Clicked =1
  MouseGetPos,,, Mouse_Over_Gui
  If Mouse_Over_Gui =%Gui_ID% ; check to be safe
    {
    SetTimer, MButton_Close_Cont, 50
    Click, Left
    ; weird pause after left click - hence using timers - continues after moving mouse
    }
  MButton_Clicked =
Return

MButton_Close_Cont:
  SetTimer, MButton_Close_Cont, Off
  Get__Selected_Row_and_RowText()
  Gui_wid =% Window%RowText%
  If Gui_wid ; prevent error if nothing was selected due to delay in program
    Gosub, End_Process_Single
Return
*/

End_Process_Single:
  Gosub, GuiControl_Disable_ListView1
  Selected_Row ++ ; find window after window to close for positioning focus in listview afterwards
  LV_GetText(RowText, Selected_Row, 2)  ; Get the row's hidden text
  Window_After_1st_Ending_Window_ID := Window%RowText%
  Gosub, End_Process_Subroutine
  Gosub, End_Process_Update_Listview
Return


End_Process_Subroutine:
  Loop, Parse, Gui_Dock_Windows_List,| ; un-dock docked window first (might remember off-screen position)
    If A_LoopField =%Gui_wid%
      {
      Gui_Un_Dock_Window_No_Alt_Esc =1
      Gosub, Gui_Un_Dock_Window
      }
  PostMessage, 0x112, 0xF060,,, ahk_id %Gui_wid% ; 0x112 = WM_SYSCOMMAND, 0xF060 = SC_CLOSE
  WinWaitClose, ahk_id %Gui_wid%,, 1
Return


End_Process_All_Instances:
  Gosub, GuiControl_Disable_ListView1
  List_of_Process_To_End = ; need to store list now as re-drawing the listview over-writes necessary variables
  Loop, %Window_Found_Count%
    {
    If Dialog%A_Index% ; don't try to close dialog windows (e.g. save prompts)
      Continue
    If Exe_Name%RowText% = % Exe_Name%A_Index%
      List_of_Process_To_End .= "|" . Window%A_Index%
    }
  StringTrimLeft, List_of_Process_To_End, List_of_Process_To_End, 1 ; remove 1st | character (empty reference otherwise)

  Window_After_1st_Ending_Window_ID := Selected_Row + 1 ; find window after window to close for positioning focus in listview afterwards
  LV_GetText(RowText, Window_After_1st_Ending_Window_ID, 2)  ; Get the row's hidden text
  Window_After_1st_Ending_Window_ID =% Window%RowText% ; over-ridden below if necessary
  If Exe_Name%RowText% = % Exe_Name%Selected_Row% ; find an earlier window which won't be closed
    {
    Loop, %Window_Found_Count%
      {
      Window_After_1st_Ending_Window_ID := Selected_Row + 1 + A_Index
      If Window_After_1st_Ending_Window_ID =% Window_Found_Count
        {
        LV_GetText(RowText, %Window_Found_Count%, 2)  ; Get the row's hidden text
        If RowText not between 1 and %Window_Found_Count% ; avoid an error when closing all windows
          Break
        Window_After_1st_Ending_Window_ID =% Window%RowText%
        Break
        }
      LV_GetText(RowText, Window_After_1st_Ending_Window_ID, 2)  ; Get the row's hidden text
      If Exe_Name%RowText% != % Exe_Name%Selected_Row% ; find an earlier window which won't be closed
        {
        Window_After_1st_Ending_Window_ID =% Window%RowText%
        Break
        }
      }
    }
  Loop, Parse, List_of_Process_To_End,|
    {
    Gui_wid := A_LoopField
    Gosub, End_Process_Subroutine
    }
  List_of_Process_To_End = ; reset
  Gosub, End_Process_Update_Listview
Return


End_Process_Update_Listview:
  Gosub, Display_List
  Loop, %Window_Found_Count%
    {
    If Window%A_Index% =%Window_After_1st_Ending_Window_ID%
      {
      LV_GetText(RowText, A_Index, 2)  ; Get the row's hidden text
      LV_Modify(RowText, "Focus Select Vis")
      }
    }
  Gosub, GuiControl_Enable_ListView1
Return


Key_Pressed_1st_Letter:
  Key_Pressed_ASCII =%A_EventInfo%
  Get__Selected_Row_and_RowText()

  If Key_Pressed_ASCII =93 ; Alt+Apps key - context menu
    {
    Gosub, GuiContextMenu
    Return
    }

  If (Key_Pressed_ASCII =40) ; Down arrow
    {
    GoSub Alt_Tab
    Return
    }
  If (Key_Pressed_ASCII =38) ; Up arrow
    {
    GoSub Alt_Shift_Tab
    Return
    }

  ; \ key - close window
  If (Key_Pressed_ASCII =92 or Key_Pressed_ASCII =220) ; \ or Alt+\
    {
    If ( A_TickCount - Time_Since_Last_Alt_Close < 200 ) ; prevention of accidentally closing too many windows
      Return
    Time_Since_Last_Alt_Close := A_TickCount
    Gui_wid := Window%RowText%
    Gosub, End_Process_Single
    Return
    }

  ; / key - close all instances of exe
  If (Key_Pressed_ASCII =47 or Key_Pressed_ASCII =191) ; / or Alt+/
    {
    If ( A_TickCount - Time_Since_Last_Alt_Close < 200 ) ; prevention of accidentally closing too many windows
      Return
    Time_Since_Last_Alt_Close := A_TickCount
    Gui_wid := Window%RowText%
    Gosub, End_Process_All_Instances
    Return
    }

  Loop, %Window_Found_Count%
    {
    Selected_Row +=1
    If Selected_Row > %Window_Found_Count% ; wrap around to start
      Selected_Row =1
    LV_GetText(List_Title_Text, Selected_Row, 2) ; hidden number column

    ; Check for parent's title for typing first letter
    If Window_Parent%List_Title_Text% !=
      WinGetTitle, List_Title_Text, % "ahk_id " Window_Parent%List_Title_Text%
    Else
      WinGetTitle, List_Title_Text, % "ahk_id " Window%List_Title_Text%
    StringUpper, List_Title_Text, List_Title_Text ; need to match against upper case when alt is held down
    List_Title_Text:=Asc(List_Title_Text) ; convert to ASCII key code

    If Key_Pressed_ASCII =%List_Title_Text%
      {
      LV_Modify(Selected_Row, "Focus Select Vis")
      Break
      }
    }
Return


ColumnClickSort(Col, Update="") ; Col = column clicked on, Update = 1 if true else blank (apply only, not change order)
{
  Global
  If Update=
    {
    If ((Sort_By_Direction = "Sort") and (Col = Sort_By_Column)) ; opposite sort direction - unless choosing a new column
      {
      Sort_By_Direction =SortDesc
      Sort_Direction_Symbol =[-]
      }
    Else
      {
      Sort_By_Direction =Sort
      Sort_Direction_Symbol =[+]
      }
    }
  Loop, %Col_Title0% ; reset column titles to remove [+] or [-] suffix
    {
    Col_Title_temp := Col_Title%A_Index%
    LV_ModifyCol(A_Index,"", Col_Title_temp)
    }
  If (Col ="1" or Col ="2") ; Col 1 sorts using Col 2 (hidden)
    {
    LV_ModifyCol(2, Sort_By_Direction)
    LV_ModifyCol(1,"", Col_Title1 " " Sort_Direction_Symbol)
    }
  Else
    LV_ModifyCol(Col, Sort_By_Direction, Col_Title%Col% " " Sort_Direction_Symbol)
  If Update=1
    Return
  Sort_By_Column := Col ; store
  Display_List_Shown =0 ; set to execute update of listview widths
  Gosub, Gui_Resize_and_Position
  Display_List_Shown =1
}


ListView_Destroy:
  SetTimer,MouseOver,Off   ;m00n
  SetTimer, Check_Alt_Hotkey2_Up, Off
  SetTimer, SB_Update__CPU, Off
  SetTimer, SB_Update__ProcessCPU, Off
  If Single_Key_Show_Alt_Tab_Used =1
    {
    Send, {%Alt_Hotkey2% up}
    Hotkey, *%Single_Key_Hide_Alt_Tab%, Off
    Single_Key_Show_Alt_Tab_Used = ; reset
    }
  Hotkeys_Toggle_Temp_Hotkeys("Off") ; (state = "On" or "Off")
  Gui, 1: Default
  If Alt_Esc != 1 ; i.e. not called from Alt_Esc
    Get__Selected_Row_and_RowText()
  Display_List_Shown =0
  If Status%RowText% =Not Responding ; do not activate a Not Responding window (O/S unstable)
    Alt_Esc =1
  If Alt_Esc != 1 ; i.e. not called from Alt_Esc
    {
    wid := Window%RowText%
    hw_popup := hw_popup%RowText%
    WinGet, wid_MinMax, MinMax, ahk_id %wid%
    If wid_MinMax =-1 ;minimised
      WinRestore, ahk_id %wid%
    If hw_popup
      WinActivate, ahk_id %hw_popup%
    Else
      WinActivate, ahk_id %wid%
    }
  Else If Alt_Esc =1 ; WM_ACTIVATE - clicked outside alt-tab gui 1
    WinActivate, ahk_id %Active_ID%
  Gui, 1: Destroy ; destroy after switching to avoid re-activation of some windows
  LV_ColorChange() ; clear all highlighting
  OnTop_Found = ; reset
  Status_Found = ; reset
  Alt_Esc = ; reset
 
;  OnMessage(0x200, "")   
Return


Get_Window_Icon(wid, Use_Large_Icons_Current) ; (window id, whether to get large icons)
{
  Local NR_temp, h_icon
  Window_Found_Count += 1
  ; check status of window - if window is responding or "Not Responding"
  NR_temp =0 ; init
  h_icon =
  Responding := DllCall("SendMessageTimeout", "UInt", wid, "UInt", 0x0, "Int", 0, "Int", 0, "UInt", 0x2, "UInt", 150, "UInt *", NR_temp) ; 150 = timeout in millisecs
  If (Responding)
    {
    ; WM_GETICON values -    ICON_SMALL =0,   ICON_BIG =1,   ICON_SMALL2 =2
    If Use_Large_Icons_Current =1
      {
      SendMessage, 0x7F, 1, 0,, ahk_id %wid%
      h_icon := ErrorLevel
      }
    If ( ! h_icon )
      {
      SendMessage, 0x7F, 2, 0,, ahk_id %wid%
      h_icon := ErrorLevel
        If ( ! h_icon )
          {
          SendMessage, 0x7F, 0, 0,, ahk_id %wid%
          h_icon := ErrorLevel
          If ( ! h_icon )
            {
            If Use_Large_Icons_Current =1
              h_icon := DllCall( "GetClassLong", "uint", wid, "int", -14 ) ; GCL_HICON is -14
            If ( ! h_icon )
              {
              h_icon := DllCall( "GetClassLong", "uint", wid, "int", -34 ) ; GCL_HICONSM is -34
              If ( ! h_icon )
                h_icon := DllCall( "LoadIcon", "uint", 0, "uint", 32512 ) ; IDI_APPLICATION is 32512
              }
            }
          }
        }
      }
  If ! ( h_icon = "" or h_icon = "FAIL") ; Add the HICON directly to the icon list
     Gui_Icon_Number := DllCall("ImageList_ReplaceIcon", UInt, ImageListID1, Int, -1, UInt, h_icon)
  Else   ; use a generic icon
     Gui_Icon_Number := IL_Add(ImageListID1, "shell32.dll" , 3)
}


2GuiClose:
2GuiEscape:
  Gui, 2: Destroy
  Gui, 1: Default
Return

3GuiClose:
3GuiEscape:
  Gui, 3: Destroy
  Gui, 1: Default
Return


IniFile_Data(Read_or_Write)
{
  Global
  IniFile_Read_or_Write := Read_or_Write ; store
; Hotkeys
  IniFile("Alt_Hotkey",               "Hotkeys", "!")
  IniFile("Tab_Hotkey",               "Hotkeys", "Tab")
  IniFile("Shift_Tab_Hotkey",         "Hotkeys", "+Tab")
  IniFile("Esc_Hotkey",               "Hotkeys", "Esc")
  IniFile("Single_Key_Show_Alt_Tab",  "Hotkeys", "")
  IniFile("Single_Key_Hide_Alt_Tab",  "Hotkeys", "Enter")

; Sort_Order
  IniFile("Sort_By_Column",           "Sort_Order", "2") ; initial column to sort (2 is a hidden column)
  IniFile("Sort_By_Direction",        "Sort_Order", "Sort") ; initial sort direction
  IniFile("Sort_Direction_Symbol",    "Sort_Order", "[+]") ; initial sort direction

; Groups + Group_Hotkey - remember lists of windows
  IniFile("Group_List",               "Groups", "Settings|ALL")
  If ! (Global_Include_Edit or Global_Exclude_Edit)
  IniFile("Global_Include",           "Groups", "")
  IniFile("Global_Include",           "Groups", "")
  IniFile("Group_Active",             "Groups", "ALL")
  Loop, Parse, Group_List,|
    {
    IniFile(A_LoopField,                  "Groups", "")
    IniFile(A_LoopField . "_Group_Hotkey","Groups", "")
    If %A_LoopField%_Group_Hotkey
      {
      Hotkey_temp := A_LoopField . "_Group_Hotkey"
      Hotkey, % %Hotkey_temp%, Group_Hotkey, On
      }
    }
}
Return

IniFile(Var, Section, Default="")
{
  Global
  If IniFile_Read_or_Write =Read
    {
    IniRead, %Var%, Alt_Tab_Settings.ini, %Section%, %Var%, %Default%
    If %Var% =ERROR
      %Var% = ; set to blank value instead of "error"
    }
  Else If IniFile_Read_or_Write =Write
    IniWrite, % %Var%, Alt_Tab_Settings.ini, %Section%, %Var%
}


;============================================================================================================================


Replace_Modifier_Symbol( Variable_Name , New_Variable_Name )
{
  ; replace 1st modifier symbol in Alt_Hotkey,etc with its equivalent text (for hotkey up event compatability)
  Global
  %New_Variable_Name% :=%Variable_Name%
  StringReplace, %New_Variable_Name%, %New_Variable_Name%,#,LWin
  StringReplace, %New_Variable_Name%, %New_Variable_Name%,!,Alt
  StringReplace, %New_Variable_Name%, %New_Variable_Name%,^,Control
  StringReplace, %New_Variable_Name%, %New_Variable_Name%,+,Shift
  StringReplace, %New_Variable_Name%, %New_Variable_Name%,%A_Space%&%A_Space%, ; remove & for hotkeys like XButton1
}


ListView_Resize_Vertically(Gui_ID) ; Automatically resize listview vertically
{
  Global Window_Found_Count, lv_h_win_2000_adj
  SendMessage, 0x1000+31, 0, 0, SysListView321, ahk_id %Gui_ID% ; LVM_GETHEADER
  WinGetPos,,,, lv_header_h, ahk_id %ErrorLevel%
  VarSetCapacity( rect, 16, 0 )
  SendMessage, 0x1000+14, 0, &rect, SysListView321, ahk_id %Gui_ID% ; LVM_GETITEMRECT ; LVIR_BOUNDS
  y1 := 0
  y2 := 0
  Loop, 4
    {
    y1 += *( &rect + 3 + A_Index )
    y2 += *( &rect + 11 + A_Index )
    }
  lv_row_h := y2 - y1
  lv_h := 4 + lv_header_h + ( lv_row_h * Window_Found_Count ) + lv_h_win_2000_adj
  GuiControl, Move, SysListView321, h%lv_h%
}


GetCPA_file_name( p_hw_target ) ; retrives Control Panel applet icon
{
   WinGet, pid_target, PID, ahk_id %p_hw_target%
   hp_target := DllCall( "OpenProcess", "uint", 0x18, "int", false, "uint", pid_target )
   hm_kernel32 := DllCall( "GetModuleHandle", "str", "kernel32.dll" )
   pGetCommandLineA := DllCall( "GetProcAddress", "uint", hm_kernel32, "str", "GetCommandLineA" )
   buffer_size = 6
   VarSetCapacity( buffer, buffer_size )
   DllCall( "ReadProcessMemory", "uint", hp_target, "uint", pGetCommandLineA, "uint", &buffer, "uint", buffer_size, "uint", 0 )
   loop, 4
      ppCommandLine += ( ( *( &buffer+A_Index ) ) << ( 8*( A_Index-1 ) ) )
   buffer_size = 4
   VarSetCapacity( buffer, buffer_size, 0 )
   DllCall( "ReadProcessMemory", "uint", hp_target, "uint", ppCommandLine, "uint", &buffer, "uint", buffer_size, "uint", 0 )
   loop, 4
      pCommandLine += ( ( *( &buffer+A_Index-1 ) ) << ( 8*( A_Index-1 ) ) )
   buffer_size = 260
   VarSetCapacity( buffer, buffer_size, 1 )
   DllCall( "ReadProcessMemory", "uint", hp_target, "uint", pCommandLine, "uint", &buffer, "uint", buffer_size, "uint", 0 )
   DllCall( "CloseHandle", "uint", hp_target )
   IfInString, buffer, desk.cpl ; exception to usual string format
     return, "C:\WINDOWS\system32\desk.cpl"

   ix_b := InStr( buffer, "Control_RunDLL" )+16
   ix_e := InStr( buffer, ".cpl", false, ix_b )+3
   StringMid, CPA_file_name, buffer, ix_b, ix_e-ix_b+1
   if ( ix_e )
      return, CPA_file_name
   else
      return, false
}


;============================================================================================================================
/* m00n
WM_ACTIVATE(wParam)
{
  Global
  If ( wParam =0 and A_Gui =1 and Display_List_Shown =1) ; i.e. don't trigger when submitting gui
    {
    Alt_Esc =1
    Gosub, Alt_Esc ; hides alt-tab gui
    }
}
*/

OnExit_Script_Closing:
  IniFile_Data("Write")
  Gui_Un_Dock_Windows_All_No_Alt_Esc = 1
  Gosub, Gui_Un_Dock_Windows_All
  ExitApp
Return


;============================================================================================================================
; Listview color highlighting functions
;============================================================================================================================

LV_ColorInitiate() ; initiate listview color change procedure
{
  global
  ; MUST include HWNDhw_LV_ColorChange when creating listview (Gui, Add, ListView, ... HWNDhw_LV_ColorChange)
  VarSetCapacity(LvItem, 36, 0)
  OnMessage( 0x4E, "WM_NOTIFY" )
}


LV_ColorChange(Index="", TextColor="", BackColor="") ; change specific line's color or reset all lines
{
  global
  If Index =
    Loop, %Window_Found_Count% ; or use another count if listview not visible
      LV_ColorChange(A_Index)

  Else
    {
    Line_Color_%Index%_Text := TextColor
    Line_Color_%Index%_Back := BackColor
    WinSet, Redraw,, ahk_id %hw_LV_ColorChange%
    }
}


WM_NOTIFY( p_w, p_l, p_m )
{
  local draw_stage, Current_Line, Index, IsSelected=0
  Critical
  if ( DecodeInteger( "uint4", p_l, 0 ) = hw_LV_ColorChange ) {      ; NMHDR->hwndFrom
     if ( DecodeInteger( "int4", p_l, 8 ) = -12 ) {                ; NMHDR->code ; NM_CUSTOMDRAW
       draw_stage := DecodeInteger( "uint4", p_l, 12 )                     ; NMCUSTOMDRAW->dwDrawStage
      Current_Line := DecodeInteger( "uint4", p_l, 36 )+1               ; NMCUSTOMDRAW->dwItemSpec
      if ( draw_stage = 1 )                                       ; CDDS_PREPAINT
        return, 0x20                                              ; CDRF_NOTIFYITEMDRAW
      else if ( draw_stage = 0x10000|1 ) {                        ; CDDS_ITEMPREPAINT
           If ( DllCall("GetFocus") = hw_LV_ColorChange ) {                ; Control has Keyboard Focus?
               SendMessage, 4140, Current_Line-1, 2, , ahk_id %hw_LV_ColorChange% ; LVM_GETITEMSTATE
               IsSelected := ErrorLevel
               If ( IsSelected = 2 ) {                                                 ; LVIS_SELECTED
; custom selected color highlighting
                  EncodeInteger( Listview_Colour_Selected_Text, 4, p_l, 48 )           ; NMCUSTOMDRAW->clrText ; foreground
                  EncodeInteger( Listview_Colour_Selected_Back, 4, p_l, 52 )           ; NMCUSTOMDRAW->clrTextBk ; background
                   EncodeInteger(0x0, 4, &LvItem, 12)                            ; LVITEM->state
                  EncodeInteger(0x2, 4, &LvItem, 16)                            ; LVITEM->stateMask ; LVIS_SELECTED
                SendMessage, 4139, Current_Line-1, &LvItem, , ahk_id %hw_LV_ColorChange% ; Disable Highlighting
                ; We want item post-paint notifications
                Return, 0x00000010                                                    ; CDRF_NOTIFYPOSTPAINT
              }
            ; change the 3rd parameter in the line below if the line number isn't in the 2nd column!
              LV_GetText(Index, Current_Line, 2)
              If (Line_Color_%Index%_Text != "") {
              EncodeInteger( Line_Color_%Index%_Text, 4, p_l, 48 ) ; NMLVCUSTOMDRAW->clrText ; foreground
              EncodeInteger( Line_Color_%Index%_Back, 4, p_l, 52 ) ; NMLVCUSTOMDRAW->clrTextBk ; background
           }
           }
        }
        else if ( draw_stage = 0x10000|2 )                  ; CDDS_ITEMPOSTPAINT
            If ( IsSelected ) {
               EncodeInteger(0x02, 4, &LvItem, 12)            ; LVITEM->state
               EncodeInteger(0x02, 4, &LvItem, 16)            ; LVITEM->stateMask ; LVIS_SELECTED
               SendMessage, 4139, Current_Line-1, &LvItem, , ahk_id %hw_LV_ColorChange% ; LVM_SETITEMSTATE
            }
    }
  }
}


;============================================================================================================================
; MISC
;============================================================================================================================

Decimal_to_Hex(var)
{
  SetFormat, integer, hex
  var += 0
  SetFormat, integer, d
  return var
}


DecodeInteger( p_type, p_address, p_offset, p_hex=true )
{
  old_FormatInteger := A_FormatInteger
  ifEqual, p_hex, 1, SetFormat, Integer, hex
  else, SetFormat, Integer, dec
  StringRight, size, p_type, 1
  loop, %size%
      value += *( ( p_address+p_offset )+( A_Index-1 ) ) << ( 8*( A_Index-1 ) )
  if ( size <= 4 and InStr( p_type, "u" ) != 1 and *( p_address+p_offset+( size-1 ) ) & 0x80 )
      value := -( ( ~value+1 ) & ( ( 2**( 8*size ) )-1 ) )
  SetFormat, Integer, %old_FormatInteger%
  return, value
}

EncodeInteger( p_value, p_size, p_address, p_offset )
{
  loop, %p_size%
    DllCall( "RtlFillMemory", "uint", p_address+p_offset+A_Index-1, "uint", 1, "uchar", p_value >> ( 8*( A_Index-1 ) ) )
}


RGBtoBGR(oldValue)
{
  return (oldValue & 0x00ff00) + ((oldValue & 0xff0000) >> 16) + ((oldValue & 0x0000ff) << 16)
}


GetProcessTimes(pid)    ; Individual CPU Load of the process with pid
{
  Static oldKrnlTime, oldUserTime
  Static newKrnlTime, newUserTime
  Static PreviousPID

  oldKrnlTime := newKrnlTime
  oldUserTime := newUserTime

  hProc := DllCall("OpenProcess", "Uint", 0x400, "int", 0, "Uint", pid)
  DllCall("GetProcessTimes", "Uint", hProc, "int64P", CreationTime, "int64P", ExitTime, "int64P", newKrnlTime, "int64P", newUserTime)
  DllCall("CloseHandle", "Uint", hProc)
  If (PreviousPID != pid)
    {
    PreviousPID := pid
    Return 0 +0.0
    }
  Return (newKrnlTime-oldKrnlTime + newUserTime-oldUserTime)/10000000 * 100   ; 1sec: 10**7
}

GetSystemTimes()    ; Total CPU Load
{
  Static oldIdleTime, oldKrnlTime, oldUserTime
  Static newIdleTime, newKrnlTime, newUserTime

  oldIdleTime := newIdleTime
  oldKrnlTime := newKrnlTime
  oldUserTime := newUserTime

  DllCall("GetSystemTimes", "int64P", newIdleTime, "int64P", newKrnlTime, "int64P", newUserTime)
  Return (1 - (newIdleTime-oldIdleTime)/(newKrnlTime-oldKrnlTime + newUserTime-oldUserTime)) * 100
}


;============================================================================================================================

Delete_Ini_File_Settings:
  MsgBox, 1, ALT-TAB REPLACEMENT, Delete Settings (.ini) and load defaults?
  IfMsgbox, Cancel
    Return
  FileDelete, Alt_Tab_Settings.ini
  IniFile_Data("Read") ; load defaults
Return


HELP_and_LATEST_VERSION_CHANGES:
  Gosub, Alt_Esc ; hides alt-tab gui
  Gui, 99: Font, s9, Courier New
  Gui, 99: Default
  If A_ThisMenuItem =Help
    Gui, 99: Add, Edit, vGui_99_Edit ReadOnly, %HELP%
  If A_ThisMenuItem =Latest Changes
    Gui, 99: Add, Edit, vGui_99_Edit ReadOnly, %LATEST_VERSION_CHANGES%
  Gui, 99: Show,, %A_ThisMenuItem%
  WinWaitActive, %A_ThisMenuItem%
  ControlSend, Edit1, ^{Home}, %A_ThisMenuItem%
Return

99GuiClose:
99GuiEscape:
  Gui, 99: Destroy
Return

#SingleInstance, force
SysGet, MonitorWorkArea, MonitorWorkArea,"1"
;MsgBox, (%MonitorWorkAreaLeft% work)(%MonitorWorkAreaTop% work)(%MonitorWorkAreaRight% work)(%MonitorWorkAreaBottom% work)
msgbox Running taskMenager press Alt to try
return

Alt::
   DetectHiddenWindows off
   Task0 = 0
   Tasks =
   Titles =
   ; msgbox pressed alt
   menu,main,add                      ;Create the menu so no error comes when deleting it
   menu,main,delete                   ;Delete the menu so we can start fresh
   WinGet, id, list,,, Program Manager      ;
   Loop, %id%
      {
      Task0 += 1
       this_id := id%A_Index%
       WinGetTitle, this_title, ahk_id %this_id%
      if not this_title                ;If there is no title continue loop
         {
         Task0 -= 1
         continue
         }
      if this_title in %titles%         ;If this is a doubble title continue loop
         {
         Task0 -= 1
         continue
         }
      if Titles
         Titles = % Titles "," this_title
      else Titles = % this_title
        SendMessage, 0x7F, 2, 0,, ahk_id %this_id%
        h_icon := ErrorLevel
        If ( ! h_icon )
            {
            SendMessage, 0x7F, 0, 0,, ahk_id %this_id%
            h_icon := ErrorLevel
            If ( ! h_icon )
                {
                h_icon := DllCall( "GetClassLong", "uint", this_id, "int", -34 ) ; GCL_HICONSM is -34
                If ( ! h_icon )
                    h_icon := DllCall( "LoadIcon", "uint", 0, "uint", 32512 ) ; IDI_APPLICATION is 32512
                }
            }
      Task%Task0%Id := id%A_Index%
      Task%Task0%Title := this_title
      Tasks = % tasks "nr: " Task0 " Taskid= " Task%Task0%Id " TaskTitle= " Task%Task0%Title "`n"
      menu,main,add,%this_title%,ActivateTask
      h_menu_Main := GetMenuHandle("Main")      ; get the hande for the menu
      SetMenuStyle(h_menu_Main, 0x04000000)          ; MNS_CHECKORBMP to get space for the icon
      SetMenuItemOwnerDrawnIcon(h_menu_Main, A_Index, h_icon) ;and load the icon
      }
   ShowOwnerDrawnMenu(h_menu_main,0,MonitorWorkAreaBottom)         ;   show the menu
   DetectHiddenWindows on
   return


ActivateTask:
   wid = % Task%A_ThisMenuItemPos%Id   
   ; msgbox % tasks "`n `n" Task%A_ThisMenuItemPos%Id Task%A_ThisMenuItemPos%Title A_ThisMenuItemPos
   WinActivate, ahk_id %wid%
   return

;-----------------------------------------------------------------------------------------------------------
; Assigns an icon to a menu item. The icon will not be drawn unless the
; menu is shown using ShowOwnerDrawnMenu().
;
;   h_menu:     A menu handle. Use GetMenuHandle() to get the handle of a named menu.
;   item_pos:   One-based position of the menu item.
;   h_icon:     The icon to assign.
SetMenuItemOwnerDrawnIcon(h_menu, item_pos, h_icon)
{
    ; Note that if you have other data associated with the item, this will overwrite it.
    VarSetCapacity(mii, 48, 0)  ; MENUITEMINFO mii
    NumPut(48       , mii,  0)  ; mii.cbSize    := sizeof(MENUITEMINFO)
    NumPut(0x20|0x80, mii,  4)  ; mii.fMask     := MIIM_DATA | MIIM_BITMAP
    NumPut(h_icon   , mii, 32)  ; mii.dwItemData:= h_icon
    NumPut(-1       , mii, 44)  ; mii.hbmpItem  := HBMMENU_CALLBACK
    return DllCall("SetMenuItemInfo", "UInt", h_menu, "UInt", item_pos-1, "UInt", 1, "UInt", &mii)
}

; Shows a menu, allowing owner-drawn icons to be drawn.
ShowOwnerDrawnMenu(h_menu, x="", y="")
{
    static hInstance, hwnd, ClassName := "OwnerDrawnMenuMsgWin"
   
    if !hwnd
    {   ; Create a message window to receive owner-draw messages from the menu.
        ; Only one window is created per instance of the script.
   
        if !hInstance
            hInstance := DllCall("GetModuleHandle", "UInt", 0)

        ;
        ; Register a window class to associate OwnerDrawnMenuItemWndProc()
        ; with the window we will create.
        ;
        wndProc := RegisterCallback("OwnerDrawnMenuItemWndProc")
        if (!wndProc) {
            ErrorLevel = RegisterCallback
            return false
        }
   
        ; Create a new window class.
        VarSetCapacity(wc, 40, 0)   ; WNDCLASS wc
        NumPut(wndProc,   wc,  4)   ; lpfnWndProc
        NumPut(hInstance, wc, 16)   ; hInstance
        NumPut(&ClassName,wc, 36)   ; lpszClassname

        ; Register the class.       
        if (!DllCall("RegisterClass", "UInt", &wc))
        {
            ; failed, free the callback.
            DllCall("GlobalFree", "UInt", wndProc)
           
            ErrorLevel = RegisterClass
            return false
        }
       
        ;
        ; Create the message window.
        ;
        if A_OSVersion in WIN_XP,WIN_VISTA ; WINVER >= 0x0500
            hwndParent = -3 ; HWND_MESSAGE (message-only window)
        else
            hwndParent = 0  ; un-owned
       
        hwnd := DllCall("CreateWindowExA"
            , "UInt", 0 ; dwExStyle
            , "Str" , ClassName ; lpClassName
            , "Str" , ClassName ; lpWindowName
            , "UInt", 0 ; dwStyle
            , "Int" , 0 ; x
            , "Int" , 0 ; y
            , "Int" , 0 ; w
            , "Int" , 0 ; h
            , "UInt", hwndParent
            , "UInt", 0 ; hMenu
            , "UInt", hInstance
            , "UInt", 0)
       
        if (!hwnd) {
            ErrorLevel = CreateWindowEx
            return false
        }
    }

    ; Required for the menu to initially have focus.
    DllCall("SetForegroundWindow", "UInt", hwnd)
   
    if (x="" or y="")
        MouseGetPos, x, y

    ; returns non-zero on success.
    ret := DllCall("TrackPopupMenu"
        , "UInt", h_menu
        , "UInt", 0
        , "Int" , x
        , "Int" , y
        , "Int" , 0
        , "UInt", hwnd
        , "UInt", 0)
   
    ; Required to let AutoHotkey process WM_COMMAND messages we may have
    ; sent as a result of clicking a menu item. (Without this, the item-click
    ; won't register if there is an 'ExitApp' after ShowOwnerDrawnMenu returns.)
    Sleep, 1
   
    return ret
}


OwnerDrawnMenuItemWndProc(hwnd, Msg, wParam, lParam)
{
    static WM_DRAWITEM = 0x002B, WM_MEASUREITEM = 0x002C
   
    if (Msg = WM_MEASUREITEM) ; && wParam = 0)
    {   ; MSDN: wParam - If the value is zero, the message was sent by a menu.
        h_icon := NumGet(lParam+20)
        if (!h_icon)
            return false

        GetIconSize(h_icon, itemWidth, itemHeight)

        NumPut(itemWidth+2, lParam+12)
        NumPut(itemHeight , lParam+16)
        return true
    }
    else if (Msg = WM_DRAWITEM) ; && wParam = 0)
    {
        hdcDest := NumGet(lParam+24)
        x       := NumGet(lParam+28)
        y       := NumGet(lParam+32)
        h_icon  := NumGet(lParam+44)
        if (!h_icon)
            return false

        return DllCall("DrawIconEx"
            , "UInt", hdcDest
            , "Int" , x
            , "Int" , y
            , "UInt", h_icon
            , "UInt", 0 ; width (0 = use actual size)
            , "UInt", 0 ; height
            , "UInt", 0
            , "UInt", 0
            , "UInt", 3)
    }
    else if (Msg = 0x111) ; WM_COMMAND (clicked a menu item)
    {
        ; Forward this message to the AutoHotkey main window.
        DetectHiddenWindows, On
        Process, Exist
        SendMessage, Msg, wParam, lParam,, ahk_class AutoHotkey ahk_pid %ErrorLevel%
        return ErrorLevel
    }

    ; Let the default window procedure handle all other messages.
    return DllCall("DefWindowProc", "UInt", hwnd, "UInt", Msg, "UInt", wParam, "UInt", lParam)
}
; If anyone knows a way to measure an icon without generating the temporary
; bitmaps, please let me know.
; (If you already have an icon's bitmap, use GetBitmapSize instead of this.)
GetIconSize(h_icon, ByRef width, ByRef height)
{
    VarSetCapacity(ii, 20, 0)
   
    if (DllCall("GetIconInfo", "UInt", h_icon, "UInt", &ii))
    {
        hbmColor := NumGet(ii, 16)
        hbmMask  := NumGet(ii, 12)
       
        ret := GetBitmapSize(hbmColor, width, height)
       
        DllCall("DeleteObject", "UInt", hbmColor)
        DllCall("DeleteObject", "UInt", hbmMask)
       
        return ret
    }
    return false
}
; Gets the width and height of a bitmap.
GetBitmapSize(h_bitmap, ByRef width, ByRef height, ByRef bpp="")
{
    VarSetCapacity(bm, 24, 0) ; BITMAP
    if (!DllCall("GetObject", "UInt", h_bitmap, "Int", 24, "UInt", &bm))
        return false
    width  := NumGet(bm, 4, "int")
    height := NumGet(bm, 8, "int")
    bpp    := NumGet(bm,18, "ushort")
    return true
}
;   MNS_NOCHECK      0x80000000  No space is reserved to the left of an item for a check mark.
SetMenuStyle(h_menu, style)
{
    VarSetCapacity(mi, 28, 0)
    NumPut(28, mi, 0) ; cbSize
    NumPut(0x10, mi, 4) ; fMask=MIM_STYLE
    NumPut(style, mi, 8)
    DllCall("SetMenuInfo", "uint", h_menu, "uint", &mi)
}

; Adapted from Shimanov's Menu_AssignBitmap() : http://www.autohotkey.com/forum/topic7526.html
GetMenuHandle(menu_name)
{
    static   h_menuDummy
    If h_menuDummy=
    {
        Menu, menuDummy, Add
        Menu, menuDummy, DeleteAll

        Gui, 99:Menu, menuDummy
        Gui, 99:Show, Hide, guiDummy

        old_DetectHiddenWindows := A_DetectHiddenWindows
        DetectHiddenWindows, on

        Process, Exist
        h_menuDummy := DllCall( "GetMenu", "uint", WinExist( "guiDummy ahk_class AutoHotkeyGUI ahk_pid " ErrorLevel ) )
        If ErrorLevel or h_menuDummy=0
            return 0

        DetectHiddenWindows, %old_DetectHiddenWindows%

        Gui, 99:Menu
        Gui, 99:Destroy
    }

    Menu, menuDummy, Add, :%menu_name%
    h_menu := DllCall( "GetSubMenu", "uint", h_menuDummy, "int", 0 )
    DllCall( "RemoveMenu", "uint", h_menuDummy, "uint", 0, "uint", 0x400 )
    Menu, menuDummy, Delete, :%menu_name%
   
    return h_menu
}
LoadImage(filename, type=0, width=0, height=0, flags=0x10)
{
    return DllCall("LoadImage"
        , "UInt", 0      ; hinst (for loading resources from a dll or exe)
        , "Str" , filename
        , "UInt", type
        , "Int" , width  ; desired width (0 = actual size)
        , "Int" , height ; desired height
        , "UInt", flags)
}

  If (Key_Pressed_ASCII =92 or Key_Pressed_ASCII =220 or Key_Pressed_ASCII =222) ; \ or Alt+\

;2 new hotkeys (line 368,369 in Hotkeys_Toggle_Temp_Hotkeys)
; this must be in Hotkeys_Toggle_Temp_Hotkeys
  Hotkey, *~!Left, LeftArrow, %state% UseErrorLevel ; check if user clicked/dragged a tab
  Hotkey, *~!Right, RightArrow, %state% UseErrorLevel ; check if user clicked/dragged a tab

LeftArrow:
    Group:=Tab_Button_Get_Pos(Group_Active)-1
    if group=0
   group:=1
    Tab_Button_Clicked_Text := Tab_Button_Get_Text(Group)
    Group_Active := Tab_Button_Clicked_Text
    Gosub, Gui_Window_Group_Load__part2
Return

RightArrow:
    Group:=Tab_Button_Get_Pos(Group_Active)+1
    total:=Tab_Button_Get_Total()
    if group>%total%
   group:=total
    Tab_Button_Clicked_Text := Tab_Button_Get_Text(Group)
    Group_Active := Tab_Button_Clicked_Text
    Gosub, Gui_Window_Group_Load__part2
Return

Tab_Button_Get_Pos(Tab_Text)
{
  Global
  If Tab_Text
    Loop, Parse, Group_List,|
      If (A_LoopField = Tab_Text)
        Return,  A_Index
}

Tab_Button_Get_Total()
{
  Global
count:=0
  Loop, Parse, Group_List,|
count:=count+1
  Return,  count
}