From b83b08576a2ca6f207dcf8f8586c21318084a709 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 24 Jul 2009 17:45:43 +0000
Subject: [PATCH] SynEdit: Added some debug helper

git-svn-id: trunk@20936 -
---
 components/synedit/synedittextbase.pas    |  6 ++++
 components/synedit/synedittexttrimmer.pas | 35 +++++++++++++++++++++++
 2 files changed, 41 insertions(+)

diff --git a/components/synedit/synedittextbase.pas b/components/synedit/synedittextbase.pas
index cc2b5ce557..1bb34c11c8 100644
--- a/components/synedit/synedittextbase.pas
+++ b/components/synedit/synedittextbase.pas
@@ -221,6 +221,7 @@ type
     // IsEqual is only needed/implemented for Carets
     function IsEqualContent(AnItem: TSynEditUndoItem): Boolean; virtual;
     function IsEqual(AnItem: TSynEditUndoItem): Boolean;
+    function DebugString: String; virtual;
   public
     function IsCaretInfo: Boolean; virtual;
     function PerformUndo(Caller: TObject): Boolean; virtual; abstract;
@@ -884,6 +885,11 @@ begin
   if Result then Result := Result and IsEqualContent(AnItem);
 end;
 
+function TSynEditUndoItem.DebugString: String;
+begin
+  Result := '';
+end;
+
 function TSynEditUndoItem.IsCaretInfo: Boolean;
 begin
   Result := False;
diff --git a/components/synedit/synedittexttrimmer.pas b/components/synedit/synedittexttrimmer.pas
index 0861d9d858..f7373c4fb1 100644
--- a/components/synedit/synedittexttrimmer.pas
+++ b/components/synedit/synedittexttrimmer.pas
@@ -115,6 +115,8 @@ type
   TSynEditUndoTrimMoveTo = class(TSynEditUndoItem)
   private
     FPosY, FLen: Integer;
+  protected
+    function DebugString: String; override;
   public
     constructor Create(APosY, ALen: Integer);
     function PerformUndo(Caller: TObject): Boolean; override;
@@ -125,6 +127,8 @@ type
   TSynEditUndoTrimMoveFrom = class(TSynEditUndoItem)
   private
     FPosY, FLen: Integer;
+  protected
+    function DebugString: String; override;
   public
     constructor Create(APosY, ALen: Integer);
     function PerformUndo(Caller: TObject): Boolean; override;
@@ -135,6 +139,8 @@ type
   TSynEditUndoTrimInsert = class(TSynEditUndoItem)
   private
     FPosX, FPosY, FLen: Integer;
+  protected
+    function DebugString: String; override;
   public
     constructor Create(APosX, APosY, ALen: Integer);
     function PerformUndo(Caller: TObject): Boolean; override;
@@ -146,6 +152,8 @@ type
   private
     FPosX, FPosY: Integer;
     FText: String;
+  protected
+    function DebugString: String; override;
   public
     constructor Create(APosX, APosY: Integer; AText: String);
     function PerformUndo(Caller: TObject): Boolean; override;
@@ -157,6 +165,8 @@ type
   private
     FPosY: Integer;
     FText: String;
+  protected
+    function DebugString: String; override;
   public
     constructor Create(APosY: Integer; AText: String);
     function PerformUndo(Caller: TObject): Boolean; override;
@@ -164,6 +174,11 @@ type
 
 { TSynEditUndoTrimMoveTo }
 
+function TSynEditUndoTrimMoveTo.DebugString: String;
+begin
+  Result := 'FPosY='+IntToStr(FPosY)+' FLen='+IntToStr(FLen);
+end;
+
 constructor TSynEditUndoTrimMoveTo.Create(APosY, ALen: Integer);
 begin
   FPosY := APosY;
@@ -183,6 +198,11 @@ end;
 
 { TSynEditUndoTrimMoveFrom }
 
+function TSynEditUndoTrimMoveFrom.DebugString: String;
+begin
+  Result := 'FPosY='+IntToStr(FPosY)+' FLen='+IntToStr(FLen);
+end;
+
 constructor TSynEditUndoTrimMoveFrom.Create(APosY, ALen: Integer);
 begin
   FPosY := APosY;
@@ -202,6 +222,11 @@ end;
 
 { TSynEditUndoTrimInsert }
 
+function TSynEditUndoTrimInsert.DebugString: String;
+begin
+  Result := 'FPosY='+IntToStr(FPosY)+' FPosX='+IntToStr(FPosX)+' FLen='+IntToStr(FLen);
+end;
+
 constructor TSynEditUndoTrimInsert.Create(APosX, APosY, ALen: Integer);
 begin
   FPosX := APosX;
@@ -224,6 +249,11 @@ end;
 
 { TSynEditUndoTrimDelete }
 
+function TSynEditUndoTrimDelete.DebugString: String;
+begin
+  Result := 'FPosY='+IntToStr(FPosY)+' FPosX='+IntToStr(FPosX)+' FText="'+FText+'"';
+end;
+
 constructor TSynEditUndoTrimDelete.Create(APosX, APosY: Integer; AText: String);
 begin
   FPosX := APosX;
@@ -246,6 +276,11 @@ end;
 
 { TSynEditUndoTrimForget }
 
+function TSynEditUndoTrimForget.DebugString: String;
+begin
+  Result := 'FPosY='+IntToStr(FPosY)+' FText="'+FText+'"';
+end;
+
 constructor TSynEditUndoTrimForget.Create(APosY: Integer; AText: String);
 begin
   FPosY := APosY;