From 7044a3b3df971fbaec4f29107b88fd9b729a8a20 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Tue, 13 Feb 2024 23:09:39 +0100
Subject: [PATCH] SynEdit: fix dragging text, when text has folded areas. Issue
 #40773 Patch by Olivier Guichard

---
 components/synedit/synedit.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 58c7e369f9..7b0d0183fe 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -4196,7 +4196,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