From 42b45fa3814e8e2ab766183c376dac1daf19552f Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 25 Jan 2012 15:48:33 +0000
Subject: [PATCH] SynEdit, debugln

git-svn-id: trunk@34931 -
---
 components/synedit/lazsyntextarea.pp |  4 ++--
 components/synedit/synedit.pp        | 20 ++++++++++++++++++--
 components/synedit/syngutter.pp      |  4 ++--
 3 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/components/synedit/lazsyntextarea.pp b/components/synedit/lazsyntextarea.pp
index 9d2fd1ef98..e8d8bba434 100644
--- a/components/synedit/lazsyntextarea.pp
+++ b/components/synedit/lazsyntextarea.pp
@@ -213,7 +213,7 @@ begin
                              - TextArea.TopLine + 2)  * TextArea.LineHeight);
 
   {$IFDEF VerboseSynEditInvalidate}
-  DebugLn(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self), ' FirstLine=',FirstLine, ' LastLine=',LastLine, ' rect=',dbgs(rcInval)]);
+  DebugLn(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self), ' FirstLine=',FirstTextLine, ' LastLine=',LastTextLine, ' rect=',dbgs(rcInval)]);
   {$ENDIF}
   if (rcInval.Top < rcInval.Bottom) and (rcInval.Left < rcInval.Right) then
     InvalidateRect(Handle, @rcInval, FALSE);
@@ -396,7 +396,7 @@ begin
                              - TopLine + 2)  * LineHeight);
 
   {$IFDEF VerboseSynEditInvalidate}
-  DebugLn(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self), ' FirstLine=',FirstLine, ' LastLine=',LastLine, ' rect=',dbgs(rcInval)]);
+  DebugLn(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self), ' FirstLine=',FirstTextLine, ' LastLine=',LastTextLine, ' rect=',dbgs(rcInval)]);
   {$ENDIF}
   if (rcInval.Top < rcInval.Bottom) and (rcInval.Left < rcInval.Right) then
     InvalidateRect(Handle, @rcInval, FALSE);
diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 020286ceff..2287e10591 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -47,6 +47,8 @@ unit SynEdit;
 
 {$I synedit.inc}
 
+{$DEFINE SYNSCROLLDEBUG}
+
 {$IFDEF LCLGTK1}
 {$DEFINE EnableDoubleBuf} // gtk1 does not have double buffering
 {$ENDIF}
@@ -2464,7 +2466,10 @@ var
   TopFoldLine: LongInt;
 begin
   if sfPainting in fStateFlags then exit;
-  if Visible and HandleAllocated then
+  if Visible and HandleAllocated then begin
+    {$IFDEF VerboseSynEditInvalidate}
+    DebugLnEnter(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self), ' FirstLine=',FirstLine, ' LastLine=',LastLine]);
+    {$ENDIF}
     if (FirstLine = -1) and (LastLine = -1) then begin
       FPaintArea.InvalidateGutterLines(-1, -1);
     end else begin
@@ -2477,6 +2482,10 @@ begin
 
       FFoldedLinesView.TopLine := TopFoldLine;
     end;
+    {$IFDEF VerboseSynEditInvalidate}
+    DebugLnExit(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self)]);
+    {$ENDIF}
+    end;
 end;
 
 procedure TCustomSynEdit.InvalidateLines(FirstLine, LastLine: integer);
@@ -2484,7 +2493,10 @@ var
   TopFoldLine: LongInt;
 begin
   if sfPainting in fStateFlags then exit;
-  if Visible and HandleAllocated then
+  if Visible and HandleAllocated then begin
+    {$IFDEF VerboseSynEditInvalidate}
+    DebugLnEnter(['TCustomSynEdit.InvalidateTektLines ',DbgSName(self), ' FirstLine=',FirstLine, ' LastLine=',LastLine]);
+    {$ENDIF}
     if (FirstLine = -1) and (LastLine = -1) then begin
       FPaintArea.InvalidateTextLines(-1, -1);
     end else begin
@@ -2497,6 +2509,10 @@ begin
 
       FFoldedLinesView.TopLine := TopFoldLine;
     end;
+    {$IFDEF VerboseSynEditInvalidate}
+    DebugLnExit(['TCustomSynEdit.InvalidateTextLines ',DbgSName(self)]);
+    {$ENDIF}
+  end;
 end;
 
 procedure TCustomSynEdit.KeyDown(var Key: Word; Shift: TShiftState);
diff --git a/components/synedit/syngutter.pp b/components/synedit/syngutter.pp
index 5c5b2c2522..e50e98ffe3 100644
--- a/components/synedit/syngutter.pp
+++ b/components/synedit/syngutter.pp
@@ -5,7 +5,7 @@ unit SynGutter;
 interface
 
 uses
-  SysUtils, Classes, Controls, Graphics, LCLType, LCLIntf, Menus,
+  SysUtils, Classes, Controls, Graphics, LCLType, LCLIntf, LCLProc, Menus,
   SynEditMarks, SynEditTypes, SynEditMiscClasses, SynEditMiscProcs, LazSynTextArea,
   SynTextDrawer, SynGutterBase, SynGutterLineNumber, SynGutterCodeFolding,
   SynGutterMarks, SynGutterChanges, SynEditMouseCmds;
@@ -149,7 +149,7 @@ begin
                              - TextArea.TopLine + 2)  * TextArea.LineHeight);
 
   {$IFDEF VerboseSynEditInvalidate}
-  DebugLn(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self), ' FirstLine=',FirstLine, ' LastLine=',LastLine, ' rect=',dbgs(rcInval)]);
+  DebugLn(['TCustomSynEdit.InvalidateGutterLines ',DbgSName(self), ' FirstLine=',FirstTextLine, ' LastLine=',LastTextLine, ' rect=',dbgs(rcInval)]);
   {$ENDIF}
   if (rcInval.Top < rcInval.Bottom) and (rcInval.Left < rcInval.Right) then
     InvalidateRect(Handle, @rcInval, FALSE);