1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
RowHeight
RecordCount
BarHeight BHght
RecCnt
RwHgt
VisibleRow VsRow
BHght
RwHgt
=
150
20
15
10
ScrollerHeight
ScHgt
VsRow
RecCnt
=
75
Pcnt%
ScHgt = BHght(Pcnt%)
MiniBar MnBar 15
If ScHgt < MnBar
false
true
Display Variables for scroll bar height
VsRow
ScHgt = MnBar
ScHgt
ButtonHeight
Bth
15
Description Variable formula Value
Space Height
YAxis
ScTop
ScHgt
Space Height SpcHgt SpcHgt = BarHgt - ScHgt
75
IndexStorage
if InvsRow > SpcHgt
false
True
RH = SpcHgt / (InvsRow)
RH = (InvsRow) / SpcHgt
Redim IndexStorage (SpcHgt)
Get Decimal of RH ex. 3.05 = .05
Get Whole Number of Rh ex, 3.05 = 3
loop from 1 to SpcHgt
IndexStorage( current index ) = recordindex
recordindex incrementer
end loop
with repetition
Get Decimal of RH ex. 3.05 = .05
Get Whole Number of Rh ex, 3.05 = 3
loop from 1 to SpcHgt
IndexStorage(current index ) = recordindex
recordindex incrementer
end loop
without repetition
Space Height
YAxis
ScTop
ScHgt
Move Event
MD_Ytop
MD_ScHgt
MD_Scht SpcHgt = Md_Ytop - ScTop
75
MD_Scht
Boundary
InvsRow
BHS.RecCnt - BHS.VsRow + 1
Invisible Row