From 47ef0fdf81f60e471f548c6e4f3f92a57dcd88a6 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Sun, 18 Dec 2005 20:58:44 +0000
Subject: [PATCH] do not draw caret in .Paint method; means it will become part
 of window image

git-svn-id: trunk@8339 -
---
 components/synedit/synedit.pp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index d1a255dde4..6b114abb66 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -2606,8 +2606,10 @@ begin
              TopLine + (rcClip.Bottom + fTextHeight - 1) div fTextHeight,
              {$ENDIF}
              Lines.Count);
+  {$IFNDEF SYN_LAZARUS}
   // Now paint everything while the caret is hidden.
   HideCaret;
+  {$ENDIF}
   try
     // First paint the gutter area if it was (partly) invalidated.
     if (rcClip.Left < fGutterWidth) then begin
@@ -2627,10 +2629,9 @@ begin
   finally
     {$IFDEF SYN_LAZARUS}
     EndPaintBuffer(rcClip);
-    {$ENDIF}
-    UpdateCaret;
-    {$IFDEF SYN_LAZARUS}
     Exclude(fStateFlags,sfPainting);
+    {$ELSE}
+    UpdateCaret;
     {$ENDIF}
   end;
 end;