scroll preview, leave before entering the scrollbar

This commit is contained in:
Basile Burg 2017-07-14 06:26:26 +02:00
parent bd9273f68e
commit b481e14fbe
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 1 additions and 1 deletions

View File

@ -3164,7 +3164,7 @@ begin
if fScrollPreview then
begin
if (x > width - 40) and (x < width - 1) then
if (x > width - 40) and (x < width - 20) then
begin;
fScrollMemo.Visible:=true;
fScrollMemo.goToLine(trunc((lines.Count / Height) * Y));