* Comment unused code
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1048 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
8bf4cb4e37
commit
0941527fd4
@ -303,7 +303,7 @@ function TCustomVirtualStringTree.ContentToClipboard(Format: Word; Source: TVSTT
|
||||
// the Result is 0.
|
||||
|
||||
//--------------- local function --------------------------------------------
|
||||
|
||||
{
|
||||
procedure MakeFragment(var HTML: string);
|
||||
|
||||
// Helper routine to build a properly-formatted HTML fragment.
|
||||
@ -349,7 +349,7 @@ function TCustomVirtualStringTree.ContentToClipboard(Format: Word; Source: TVSTT
|
||||
SysUtils.Format('%s%.8d', [EndFragment, EndFragmentIndex]) + #13#10;
|
||||
HTML := Description + DocType + HTMLIntro + HTML + HTMLExtro;
|
||||
end;
|
||||
|
||||
}
|
||||
//--------------- end local function ----------------------------------------
|
||||
|
||||
var
|
||||
|
Loading…
Reference in New Issue
Block a user