From a8f48f3906b4a44afade7c6408126dcafab3a588 Mon Sep 17 00:00:00 2001 From: blikblum Date: Sat, 12 Dec 2009 21:01:20 +0000 Subject: [PATCH] * Fix WrapString git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1045 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/virtualtreeview-new/trunk/VirtualTrees.pas | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas index aed0c12a3..96e367dd8 100644 --- a/components/virtualtreeview-new/trunk/VirtualTrees.pas +++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas @@ -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; //----------------------------------------------------------------------------------------------------------------------