mirror of https://gitlab.com/basile.b/dexed.git
scroll preview, leave before entering the scrollbar
This commit is contained in:
parent
bd9273f68e
commit
b481e14fbe
|
@ -3164,7 +3164,7 @@ begin
|
||||||
|
|
||||||
if fScrollPreview then
|
if fScrollPreview then
|
||||||
begin
|
begin
|
||||||
if (x > width - 40) and (x < width - 1) then
|
if (x > width - 40) and (x < width - 20) then
|
||||||
begin;
|
begin;
|
||||||
fScrollMemo.Visible:=true;
|
fScrollMemo.Visible:=true;
|
||||||
fScrollMemo.goToLine(trunc((lines.Count / Height) * Y));
|
fScrollMemo.goToLine(trunc((lines.Count / Height) * Y));
|
||||||
|
|
Loading…
Reference in New Issue