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

* Fix WrapString

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

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

@ -4740,10 +4740,9 @@ begin
end;
end;
Len := Length(Result);
//todo: test
if Result[Len - Length(LineEnding) + 1] = LineEnding[1] then
SetLength(Result, Len - 1);
Len := Length(Result) - Length(LineEnding);
if StrLComp(PChar(@Result[Len + 1]), PChar(@LineEnding[1]), Length(LineEnding)) = 0 then
SetLength(Result, Len);
end;
//----------------------------------------------------------------------------------------------------------------------