paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 00:03:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix dragging text, when text has folded areas. Issue Patch by Olivier Guichard

Browse Source 
(cherry picked from commit 7044a3b3df)
This commit is contained in:
Martin 2024-02-13 23:09:39 +01:00
parent 60d9e7d2d9
commit f1632e6291
1 changed files with 1 additions and 1 deletions

2
components/synedit/synedit.pp
View File

@ -4179,7 +4179,7 @@ begin
if vf <> 0 then
TopView := TopView + vf div 32;
FCaret.ViewedLineCharPos := PixelsToRowColumn(CurMousePos);
FCaret.LineCharPos:=PixelsToRowColumn(CurMousePos);
finally
if sfEnsureCursorPos in fStateFlags then