paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 09:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Martin 2024-02-13 23:09:39 +01:00
parent e9099ab0e8
commit 7044a3b3df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

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