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

* Add ContentToText and ContentToUnicode for backward compatibility

Browse Source 
* Advanced demo: fix compilation and add ability to save as UTF-8

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1044 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-12 20:21:04 +00:00
parent f5021d5d6a
commit 00fcff257a
3 changed files with 30 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3392,6 +3392,8 @@ type
function ContentToHTML(Source: TVSTTextSourceType; const Caption: String = ''): String;
function ContentToRTF(Source: TVSTTextSourceType): AnsiString;
function ContentToAnsi(Source: TVSTTextSourceType; const Separator: String): AnsiString;
function ContentToText(Source: TVSTTextSourceType; const Separator: String): AnsiString; inline;
function ContentToUnicode(Source: TVSTTextSourceType; const Separator: String): WideString; inline;
function ContentToUTF16(Source: TVSTTextSourceType; const Separator: String): WideString;
function ContentToUTF8(Source: TVSTTextSourceType; const Separator: String): String;
procedure GetTextInfo(Node: PVirtualNode; Column: TColumnIndex; const AFont: TFont; var R: TRect;
@ -33248,6 +33250,18 @@ begin
end;
end;
function TCustomVirtualStringTree.ContentToText(Source: TVSTTextSourceType;
const Separator: String): AnsiString;
begin
Result := ContentToAnsi(Source, Separator);
end;
function TCustomVirtualStringTree.ContentToUnicode(Source: TVSTTextSourceType;
const Separator: String): WideString;
begin
Result := ContentToUTF16(Source, Separator);
end;
//----------------------------------------------------------------------------------------------------------------------
procedure TCustomVirtualStringTree.AddContentToBuffer(Buffer: TBufferedUTF8String; Source: TVSTTextSourceType; const Separator: String);