Locate Method WheelScroll(...)
In this method, please locate this line:
- Code: Select all Expand view
- if aPos[ 1 ] > ::nHeight * 0.80
Please change this line as
- Code: Select all Expand view
- if .f. // aPos[ 1 ] > ::nHeight * 0.80
if aPos[ 1 ] > ::nHeight * 0.80
if .f. // aPos[ 1 ] > ::nHeight * 0.80