pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Remove ContentTp* overloads to avoid infinite loop

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1038 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-08 15:33:04 +00:00
parent 48521cb82f
commit fba3d9bd52
1 changed files with 2 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -3365,10 +3365,8 @@ type
procedure ContentToCustom(Source: TVSTTextSourceType); procedure ContentToCustom(Source: TVSTTextSourceType);
function ContentToHTML(Source: TVSTTextSourceType; const Caption: String = ''): AnsiString; function ContentToHTML(Source: TVSTTextSourceType; const Caption: String = ''): AnsiString;
function ContentToRTF(Source: TVSTTextSourceType): AnsiString; function ContentToRTF(Source: TVSTTextSourceType): AnsiString;
function ContentToText(Source: TVSTTextSourceType; Separator: AnsiChar): AnsiString; overload; function ContentToText(Source: TVSTTextSourceType; const Separator: AnsiString): AnsiString;
function ContentToText(Source: TVSTTextSourceType; const Separator: AnsiString): AnsiString; overload; function ContentToUnicode(Source: TVSTTextSourceType; const Separator: String): String;
function ContentToUnicode(Source: TVSTTextSourceType; Separator: Char): String; overload;
function ContentToUnicode(Source: TVSTTextSourceType; const Separator: String): String; overload;
procedure GetTextInfo(Node: PVirtualNode; Column: TColumnIndex; const AFont: TFont; var R: TRect; procedure GetTextInfo(Node: PVirtualNode; Column: TColumnIndex; const AFont: TFont; var R: TRect;
var Text: String); override; var Text: String); override;
function InvalidateNode(Node: PVirtualNode): TRect; 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; function TCustomVirtualStringTree.ContentToText(Source: TVSTTextSourceType; const Separator: AnsiString): AnsiString;
// Renders the current tree content (depending on Source) as plain ANSI text. // 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; function TCustomVirtualStringTree.ContentToUnicode(Source: TVSTTextSourceType; const Separator: String): String;
// Renders the current tree content (depending on Source) as Unicode text. // Renders the current tree content (depending on Source) as Unicode text.