From fba3d9bd52ccbc95d45e82910b19ada849f4acb9 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 8 Dec 2009 15:33:04 +0000
Subject: [PATCH] * Remove ContentTp* overloads to avoid infinite loop

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1038 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../trunk/VirtualTrees.pas                    | 22 ++-----------------
 1 file changed, 2 insertions(+), 20 deletions(-)

diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index 701cad94d..d1217f526 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -3365,10 +3365,8 @@ type
     procedure ContentToCustom(Source: TVSTTextSourceType);
     function ContentToHTML(Source: TVSTTextSourceType; const Caption: String = ''): AnsiString;
     function ContentToRTF(Source: TVSTTextSourceType): AnsiString;
-    function ContentToText(Source: TVSTTextSourceType; Separator: AnsiChar): AnsiString; overload;
-    function ContentToText(Source: TVSTTextSourceType; const Separator: AnsiString): AnsiString; overload;
-    function ContentToUnicode(Source: TVSTTextSourceType; Separator: Char): String; overload;
-    function ContentToUnicode(Source: TVSTTextSourceType; const Separator: String): String; overload;
+    function ContentToText(Source: TVSTTextSourceType; const Separator: AnsiString): AnsiString;
+    function ContentToUnicode(Source: TVSTTextSourceType; const Separator: String): String;
     procedure GetTextInfo(Node: PVirtualNode; Column: TColumnIndex; const AFont: TFont; var R: TRect;
       var Text: String); override;
     function InvalidateNode(Node: PVirtualNode): TRect; override;
@@ -33385,14 +33383,6 @@ end;
 
 //----------------------------------------------------------------------------------------------------------------------
 
-function TCustomVirtualStringTree.ContentToText(Source: TVSTTextSourceType; Separator: AnsiChar): AnsiString;
-
-begin
-  Result := ContentToText(Source, AnsiString(Separator));
-end;
-
-//----------------------------------------------------------------------------------------------------------------------
-
 function TCustomVirtualStringTree.ContentToText(Source: TVSTTextSourceType; const Separator: AnsiString): AnsiString;
 
 // Renders the current tree content (depending on Source) as plain ANSI text.
@@ -33537,14 +33527,6 @@ end;
 
 //----------------------------------------------------------------------------------------------------------------------
 
-function TCustomVirtualStringTree.ContentToUnicode(Source: TVSTTextSourceType; Separator: Char): String;
-
-begin
-  Result := ContentToUnicode(Source, Separator);
-end;
-
-//----------------------------------------------------------------------------------------------------------------------
-
 function TCustomVirtualStringTree.ContentToUnicode(Source: TVSTTextSourceType; const Separator: String): String;
 
 // Renders the current tree content (depending on Source) as Unicode text.