From f865263b5a3a1f2f01e4dd0cbc8869c733bc0cac Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 25 Jul 2009 16:54:51 +0000
Subject: [PATCH] SynEdit: fix caret after certain block.SetText operations.
 Issue #14195

git-svn-id: trunk@20953 -
---
 components/synedit/syneditpointclasses.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/synedit/syneditpointclasses.pas b/components/synedit/syneditpointclasses.pas
index 7970ac6232..d399f55ddb 100644
--- a/components/synedit/syneditpointclasses.pas
+++ b/components/synedit/syneditpointclasses.pas
@@ -914,8 +914,8 @@ begin
         BB.X := 1;
       StartLineBytePos := BB; // deletes selection // calls selection changed
     end;
+    FInternalCaret.LineBytePos := StartLineBytePos;
     if (Value <> nil) and (Value[0] <> #0) then begin
-      FInternalCaret.LineBytePos := StartLineBytePos;
       InsertText;
       StartLineBytePos := FInternalCaret.LineBytePos; // reset selection
     end;