Code: Select all
#Include libWindows.ahk
Menu, File, Add, File
Gui, Parent:Menu, File
Gui, Parent:Color, Gray
Gui, Parent:+Resize +0x300000 ; WS_VSCROLL | WS_HSCROLL
Gui, Parent:Add, Edit, x50 y50 w300, Edit
Gui, Parent:Add, StatusBar,, Status bar text
Gui, Child:+ParentParent -Resize +AlwaysOnTop -Caption
Gui, Child:Color, White
Gui, Child:Add, Text,, Child window
Gui, Child:Show, x100 y100 w200 h100
Gui, Parent:Show, h300 w400
return
File:
return
ParentGuiClose:
ExitApp
ParentGuiSize: ; called when Parent GUI is resized
UpdateScrollBars(A_Gui, A_GuiWidth, A_GuiHeight)
return
Code: Select all
OnMessage(0x115, "OnScroll") ; WM_VSCROLL
OnMessage(0x114, "OnScroll") ; WM_HSCROLL
UpdateScrollBars(GuiNum, GuiWidth, GuiHeight)
{
static SIF_RANGE=0x1, SIF_PAGE=0x2, SIF_DISABLENOSCROLL=0x8, SB_HORZ=0, SB_VERT=1
Gui, %GuiNum%:Default
Gui, +LastFound
; Calculate scrolling area.
Left := Top := 99999
Right := Bottom := 0
WinGet, ControlList , ControlList
Loop, Parse, ControlList , `n
{
If (A_LoopField == "msctls_statusbar321")
continue
ControlGet, hControl, Hwnd,, %A_LoopField%
ControlGetPos, cX, cY, cW, cH,, ahk_id %hControl%
if (cX < Left)
Left := cX
if (cY < Top)
Top := cY
if (cX + cW > Right)
Right := cX + cW
if (cY + cH > Bottom)
Bottom := cY + cH
}
WinGetPos, wX, wY, wW, wH
VarSetCapacity(point, 8, 0)
DllCall("ClientToScreen", "Ptr", WinExist(), "Ptr", &point)
clientX := NumGet(point, 0, "Int")
clientY := NumGet(point, 4, "Int")
Left -= clientX - wX
Top -= clientY - wY
Right -= clientX - wX
Bottom -= clientY - wY
ScrollWidth := Right-Left
ScrollHeight := Bottom-Top
; Initialize SCROLLINFO.
VarSetCapacity(si, 28, 0)
NumPut(28, si) ; cbSize
NumPut(SIF_RANGE | SIF_PAGE, si, 4) ; fMask
; Update horizontal scroll bar.
NumPut(ScrollWidth, si, 12) ; nMax
NumPut(GuiWidth, si, 16) ; nPage
DllCall("SetScrollInfo", "uint", WinExist(), "uint", SB_HORZ, "uint", &si, "int", 1)
; Update vertical scroll bar.
; NumPut(SIF_RANGE | SIF_PAGE | SIF_DISABLENOSCROLL, si, 4) ; fMask
NumPut(ScrollHeight, si, 12) ; nMax
NumPut(GuiHeight, si, 16) ; nPage
DllCall("SetScrollInfo", "uint", WinExist(), "uint", SB_VERT, "uint", &si, "int", 1)
if (Left < 0 && Right < GuiWidth)
x := Abs(Left) > GuiWidth-Right ? GuiWidth-Right : Abs(Left)
if (Top < 0 && Bottom < GuiHeight)
y := Abs(Top) > GuiHeight-Bottom ? GuiHeight-Bottom : Abs(Top)
If (Left >= 0)
x := GuiWidth > ScrollWidth ? (GuiWidth - ScrollWidth)/2 - Left : -Left
If (Top >= 0)
y := GuiHeight > ScrollHeight ? (GuiHeight - ScrollHeight)/2 - Top : -Top
if (x || y)
DllCall("ScrollWindow", "uint", WinExist(), "int", x, "int", y, "uint", 0, "uint", 0)
}
OnScroll(wParam, lParam, msg, hwnd)
{
static SIF_ALL=0x17, SCROLL_STEP=10
bar := msg=0x115 ; SB_HORZ=0, SB_VERT=1
VarSetCapacity(si, 28, 0)
NumPut(28, si) ; cbSize
NumPut(SIF_ALL, si, 4) ; fMask
if !DllCall("GetScrollInfo", "uint", hwnd, "int", bar, "uint", &si)
return
VarSetCapacity(rect, 16)
DllCall("GetClientRect", "uint", hwnd, "uint", &rect)
new_pos := NumGet(si, 20) ; nPos
action := wParam & 0xFFFF
if action = 0 ; SB_LINEUP
new_pos -= SCROLL_STEP
else if action = 1 ; SB_LINEDOWN
new_pos += SCROLL_STEP
else if action = 2 ; SB_PAGEUP
new_pos -= NumGet(rect, 12, "int") - SCROLL_STEP
else if action = 3 ; SB_PAGEDOWN
new_pos += NumGet(rect, 12, "int") - SCROLL_STEP
else if (action = 5 || action = 4) ; SB_THUMBTRACK || SB_THUMBPOSITION
new_pos := wParam>>16
else if action = 6 ; SB_TOP
new_pos := NumGet(si, 8, "int") ; nMin
else if action = 7 ; SB_BOTTOM
new_pos := NumGet(si, 12, "int") ; nMax
else
return
min := NumGet(si, 8, "int") ; nMin
max := NumGet(si, 12, "int") - NumGet(si, 16) ; nMax-nPage
new_pos := new_pos > max ? max : new_pos
new_pos := new_pos < min ? min : new_pos
old_pos := NumGet(si, 20, "int") ; nPos
x := y := 0
if bar = 0 ; SB_HORZ
x := old_pos-new_pos
else
y := old_pos-new_pos
; Scroll contents of window and invalidate uncovered area.
DllCall("ScrollWindow", "uint", hwnd, "int", x, "int", y, "uint", 0, "uint", 0)
; Move status bar
ControlGetPos, cX, cY, cW, cH, msctls_statusbar321, ahk_id %hwnd%
sX := cX - x
sY := cY - y
ControlMove, msctls_statusbar321, sX, sY,,, ahk_id %hwnd%
; Update scroll bar.
NumPut(new_pos, si, 20, "int") ; nPos
DllCall("SetScrollInfo", "uint", hwnd, "int", bar, "uint", &si, "int", 1)
}