From f3a0eb85a3a47ac5fc531a4a6a607c5d1c8ed2fb Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 9 Apr 2010 18:12:26 +0000
Subject: [PATCH] SynEdit: Don't scroll 2nd Editor, if caret is out of View

git-svn-id: trunk@24541 -
---
 components/synedit/synedit.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 7e2c3b0988..6e25a95245 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -5581,6 +5581,12 @@ var
   PhysBlockBeginXY: TPoint;
   PhysBlockEndXY: TPoint;
 begin
+  if (TSynEditStringList(FLines).PaintLockOwner <> nil) and
+     (TSynEditStringList(FLines).PaintLockOwner <> Self) and
+     (not (eoAlwaysVisibleCaret in fOptions2))
+  then
+    exit;
+
   if (fPaintLock > 0) or (not HandleAllocated) or
      (FWinControlFlags * [wcfInitializing, wcfCreatingHandle] <> [])
   then begin