-
Notifications
You must be signed in to change notification settings - Fork 71
/
Scroller.ahk
170 lines (139 loc) · 6.69 KB
/
Scroller.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
/* Title: Scroller
Makes window scrollable.
Dependencies:
<Win> 1.22
*/
/*
Function: Init
Initialization function. Must not be used with scrollable <Panel>.
*/
Scroller_Init(){
static WM_VSCROLL=0x115, WM_HSCROLL=0x114, old1, old2
if old1 =
old1 := OnMessage(WM_VSCROLL, "Scroller_OnScroll"), old2 := OnMessage(WM_HSCROLL, "Scroller_OnScroll")
}
/*
Function: UpdateBars
Updates horizontal and/or vertical scroll bar.
Parameters:
Hwnd - Window that contains system created scrollbars.
Bars - Set to 1 to update only horizontal bar, 2 updates only vertical bar, 3 (default) updates both.
MX, MY - Set here x & y margin of your window. By default 0.
Remarks:
The function will make scrollbars visible only if needed. You don't need to have scroll styles on window prior to calling it.
You need to call this function after adding new controls to the GUI and after resizing window.
If used with resizable window, its enough to put call to this function in GuiSize routine (this might not work in same cases
of GUI creation). In any case, you need to update scrollbars after adding new controls to the GUI.
Scroller replaces message handlers for WM_VSCROLL & WM_HSCROLL messages at the moment which will influence <ScrollBar> control
if you have it (or vice-versa), i.e. message stacking is not done as its not very probable that you will use those 2 modules together.
You can change the position of the vertical scrollbars by setting WS_EX_LEFTSCROLLBAR=0x4000.
For more control over scrollbars you need to use <ScrollBar> control.
If you use <Attach> function, you may experience some miscalculation of scrollable area (not happening if <Panel> is the host).
This is due to the fact that attached controls may be resized as a consequence of window resizing (WM_SIZE message is sent
when scrollbars are added and it will trigger Attach handler) and module doesn't take that change into account.
Calling this function 3 times in a row fixes the problem.
You cant use Attach's p option (proportional) with Scroller (known bug).
I discovered that SkinSharp when used in AHK app via its dll could cause Scroller missbehavior when used together with Attach.
*/
Scroller_UpdateBars(Hwnd, Bars=3, MX=0, MY=0){
static SIF_RANGE=0x1, SIF_PAGE=0x2, SIF_DISABLENOSCROLL=0x8, SB_HORZ=0, SB_VERT=1, sbs, sbas
if !sbs ;ScrollBar Size
{
SysGet, sbs, 2 ;Width of a vertical scroll bar
;SysGet, sbas, 20 ;Height of the arrow bitmap on a vertical scroll bar
}
Scroller_getScrollArea(Hwnd, left, top, right, bottom)
sWidth := sWidth1 := right - left + MX, sHeight := sHeight1 := bottom - top + MY
WinGetPos,,,pw,ph, ahk_id %Hwnd%
VarSetCapacity(SI, 28, 0), NumPut(28, SI)
NumPut(SIF_RANGE | SIF_PAGE, SI, 4)
;Update horizontal scroll bar.
if Bars in 1,3
{
sWidth += sHeight1 > ph ? sbs : 0 ;Adjust scroll area to take into account scrollbars.
sWidth -= sWidth = pw ? 1 :0 ;if controls fit perfectly scrollbar shows; -1 px prevents that
NumPut(sWidth, SI, 12)
NumPut(pw, SI, 16) ; nPage
DllCall("SetScrollInfo", "uint", Hwnd, "uint", SB_HORZ, "uint", &si, "int", 1)
} else DllCall("ShowScrollBar", "uint", HCtrl, "uint", SB_HORZ, "uint", 0)
;Update vertical scroll bar.
;NumPut(SIF_RANGE | SIF_PAGE | SIF_DISABLENOSCROLL, SI, 4) ; fMask
if Bars in 2,3
{
sHeight +=(sWidth1 > pw) ? sbs : 0 ;Adjust scroll area to take into account scrollbars.
sHeight -= sHeight = ph ? 1 : 0 ;if controls fit perfectly scrollbar shows; -1 px prevents that
NumPut(sHeight, SI, 12) ; nMax
NumPut(ph, SI, 16) ; nPage
DllCall("SetScrollInfo", "uint", Hwnd, "uint", SB_VERT, "uint", &si, "int", 1)
} else DllCall("ShowScrollBar", "uint", Hwnd, "uint", SB_VERT, "uint", 0)
;Scroll window if needed
if (left < 0 && right < pw)
x := Abs(left) > pw-right ? pw-right : Abs(left)
if (top < 0 && bottom < ph)
y := Abs(top) > ph-bottom ? ph-bottom : Abs(top)
if (x || y)
DllCall("ScrollWindow", "uint", Hwnd, "int", x, "int", y, "uint", 0, "uint", 0)
}
;=============================================== PRIVATE =====================================================
Scroller_getScrollArea(Hwnd, ByRef left, ByRef top, ByRef right, ByRef bottom) {
left := top := right := bottom := 0
Win_Get(Hwnd, "NhBxy", th, bx, by)
children := Win_GetChildren(Hwnd)
Loop, Parse, children, `n
{
ifEqual, A_LoopField,, continue
Win_GetRect(A_LoopField, "*xywh", cx, cy, cw, ch)
cr := cx+cw, cb := cy+ch
ifLess, cx, %left%, SetEnv, left, %cx%
ifLess, cy, %top%, SetEnv, top, %cy%
ifGreater, cr, %right%, SetEnv, right, %cr%
ifGreater, cb, %bottom%, SetEnv, bottom, %cb%
}
right +=2*bx, bottom += th + 2*by
}
Scroller_onScroll(WParam, LParam, Msg, Hwnd){
static SIF_ALL=0x17, SCROLL_STEP=10
ifNotEqual, LParam, 0, return ;required so that UpDown and Slider controls don't take over.
bar := Msg = 0x115
VarSetCapacity(SI, 28, 0), NumPut(28, SI)
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)
old_pos := 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) + 1 ; nMax - nPage
new_pos := new_pos > max ? max : new_pos
new_pos := new_pos < min ? min : new_pos
x := y := 0
if bar = 0 ; SB_HORZ
x := old_pos - new_pos
else y := old_pos - new_pos
DllCall("ScrollWindow", "uint", Hwnd, "int", x, "int", y, "uint", 0, "uint", 0) ; Scroll contents of window and invalidate uncovered area.
; Update scroll bar.
NumPut(new_pos, SI, 20, "int") ; nPos
DllCall("SetScrollInfo", "uint", Hwnd, "int", bar, "uint", &si, "int", 1)
}
/* Group: About
o Version 1.03 by majkinetor.
o Original code by Lexikos. See <http://www.autohotkey.com/forum/viewtopic.php?p=177673#177673>.
o Licensed under BSD <http://creativecommons.org/licenses/BSD/>.
*/
#include *i Win.ahk