From 98366d7f5375e92a015fc708fd1b9ce04b0f80bf Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 8 Apr 2010 19:56:11 +0000
Subject: [PATCH] SynEdit: Fixing some recent issues with Invalidation/Repaint

git-svn-id: trunk@24529 -
---
 components/synedit/synedit.pp            | 4 ++++
 components/synedit/synedithighlighter.pp | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index d671e27dc7..b3536f9fbf 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -1745,6 +1745,10 @@ procedure TCustomSynEdit.DoDecPaintLock;
 begin
   if (FPaintLock=1) and HandleAllocated then begin
     ScanRanges;
+    if FChangedLinesStart > 0 then begin
+      InvalidateLines(FChangedLinesStart, FChangedLinesEnd);
+      InvalidateGutterLines(FChangedLinesStart, FChangedLinesEnd);
+    end;
     FChangedLinesStart:=0;
     FChangedLinesEnd:=0;
   end;
diff --git a/components/synedit/synedithighlighter.pp b/components/synedit/synedithighlighter.pp
index 1f18f48db3..30ec608742 100644
--- a/components/synedit/synedithighlighter.pp
+++ b/components/synedit/synedithighlighter.pp
@@ -1261,7 +1261,7 @@ begin
     FIsScanning := False;
   end;
   CurrentRanges.ClearReScanNeeded;
-  CurrentLines.SendHighlightChanged(StartIndex, CurrentIndex);
+  CurrentLines.SendHighlightChanged(StartIndex, CurrentIndex - StartIndex + 1);
 end;
 
 procedure TSynCustomHighlighter.ScanAllRanges;