Collapse Window by Clicking on the Title Bar

In the previous post, I showed a way to check whether the cursor is on the client area of a target window. The method can be applied similarly to detect if the cursor is on the title bar of a window. Once the position of the client top-left corner is retrieved, it is merely a subtraction to get the height of the title bar of the window.

The below script lets you un/fold a window with a middle click on the title bar.

WindowCollapse.ahk

# Noenv
SetWorkingDir %A_ScriptDir%

Hotkey, ~MButton, CollapseWindow	; set the hotkey
oCollapsedWindows := []			; a stack object for collapsed windows
Loop, %A_WinDir%\Media\*.wav	; find the sound file to play when the window gets un/folded
	if InStr(A_LoopFileName, "Information Bar") {
		sSoundFile := A_LoopFileLongPath
		Break
	}
Return

CollapseWindow:
	; This label is called when the user presses the middle button of the mouse
	; If the clicked area is not the title bar, just return
	if !IsCursorOnWindowTopBorder(hWndActive := WinExist("A")) 
		Return
	
	SoundPlay, % sSoundFile
	WinGetPos,,,, nWndActiveH, ahk_id %hWndActive%		; Retrieve the current height of the active window.
	WinGet, nStyle, Style, ahk_id %hWndActive%		
	if !oCollapsedWindows[hWndActive] {
		; Collapse the window
		; Resizable window -> 0 Non-resizablw window -> Top-border height
		WinMove, ahk_id %hWndActive%,,,,, % (nStyle & 0x40000) ? 0 : GetTopBorderHight(hWndActive)	
		oCollapsedWindows[hWndActive] := nWndActiveH		; Store the current height
		SetTimer, WinExistCheck, 60000				; Set a timer to check stored windows still exist
	} else 
		; Unfold the window.
		WinMove, ahk_id %hWndActive%,,,,, % oCollapsedWindows.Remove(hWndActive)		; The remove method returns the stored value
Return
WinExistCheck:
	oRemove := []		; Create an object to store removing keys.
	DHW := A_DetectHiddenWindows
	DetectHiddenWIndows, On
	For hWnd in oCollapsedWindows						
		if !WinExist("ahk_id " hWnd)					; Check if the window still exists
			oRemove.Insert(hWnd)
	Loop, % oRemove.MaxIndex()
		oCollapsedWindows.Remove(oRemove[A_Index])		; Remove the item from the stack object
	DetectHiddenWindows, % DHW
	if !oCollapsedWindows.MaxIndex() 
		SetTimer,, Off								; If the stack object is empty, turn off the timer
Return
GetTopBorderHight(hWnd) {
	;[Descriptions]
	;	Retrieves the top-border height of a specified window.
	;[Parameters]
	;	hWnd:		the subject window handle.
	;[Return Value]
	;	the height of the top-border 

	; AutoHotkey Basic users should uncomment this line.
	;ptr := A_PtrSize ? "ptr" : "uint"    
	
	; Retrieve the window position.
	WinGetPos,, nWndY,,, ahk_id %hWnd%

	; Retrieve the client top-left position in screen coordinate.
	VarSetCapacity(pt, 16), NumPut(0, pt, 0), NumPut(0, pt, 4)
	DllCall("ClientToScreen", ptr, hwnd, ptr, &pt)
	nClientY := NumGet(pt, 4, "int")
	
	Return nClientY - nWndY
	
	; by A_Samurai 2012/2/16 licence: Public Domain	
}
IsCursorOnWindowTopBorder(hWnd) {
	;[Descriptions]
	;	Checks whether the position of the current mouse cursor is within the top-border of a specified window. 
	;[Parameters]
	;	hWnd:		the window handle of the subject window.
	;[Return Value]
	;	If the window is not active, it returns an empty value.
	;	Returns True if the mouse cursor is on the top-border of the specified window; otherwise, it returns False.
	
	; AutoHotkey Basic users should uncomment this line.
	;ptr := A_PtrSize ? "ptr" : "uint" 	
	
	; Check if the window is active.
	if !WinActive("ahk_id " hWnd)
		Return

	; Retrieve the window position and the width.
	WinGetPos, nWndX, nWndY, nWndW,, ahk_id %hWnd%

	; Retrieve the client top-left position in screen coordinate.
    VarSetCapacity(pt, 16), NumPut(0, pt, 0), NumPut(0, pt, 4)
    DllCall("ClientToScreen", ptr, hwnd, ptr, &pt)
    nClientX := NumGet(pt, 0, "int") ,	nClientY := NumGet(pt, 4, "int")		

	; Calculate the top-border height.
	nBorderTopH := nClientY - nWndY

	; Retrieve the mouse cursor position and convert it to be window relative.
	VarSetCapacity(pos, 8), DllCall("GetCursorPos", ptr, &pos)
	nCursorX := NumGet(pos, 0, "int") , nCursorY := NumGet(pos, 4, "int")
	nCursorX := nCursorX - nWndX, nCursorY := nCursorY - nWndY

	; Return True if the cursor is on the top-border of the window. 
	if (nCursorX >= 0) && (nCursorY >= 0) && (nCursorX <= nWndW) && (nCursorY <= nBorderTopH)
		Return True
	Else
		Return False
		
	; by A_Samurai 2012/2/16 licence: Public Domain		
}