[Synedit-checkins] SynEdit/Source SynEdit.pas, 1.457.2.14, 1.457.2.15

[Flávio E. <et...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv8134

Modified Files:
      Tag: SynEdit_2_0_x
	SynEdit.pas 
Log Message:
FIX: [1821977] Want Invalidate after paste

Index: SynEdit.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v
retrieving revision 1.457.2.14
retrieving revision 1.457.2.15
diff -u -d -r1.457.2.14 -r1.457.2.15
--- SynEdit.pas	5 Nov 2007 15:39:02 -0000	1.457.2.14
+++ SynEdit.pas	13 Feb 2008 04:29:11 -0000	1.457.2.15
@@ -4401,14 +4401,15 @@
     Delta := TopLine - Value;
     fTopLine := Value;
     if Abs(Delta) < fLinesInWindow then
-{$IFDEF SYN_CLX}
     begin
+{$IFDEF SYN_CLX}
       iClip := GetClientRect;
       ScrollWindow(Self, 0, fTextHeight * Delta, @iClip);
-    end
 {$ELSE}
-      ScrollWindow(Handle, 0, fTextHeight * Delta, nil, nil)
+      ScrollWindow(Handle, 0, fTextHeight * Delta, nil, nil);
 {$ENDIF}
+      OffsetRect(fInvalidateRect, 0, fTextHeight * Delta);
+    end
     else
       Invalidate;
     UpdateScrollBars;