From db29d2cbfb840a3cff37329ed3be8069989d4ce0 Mon Sep 17 00:00:00 2001 From: blikblum Date: Sat, 12 Dec 2009 21:19:16 +0000 Subject: [PATCH] * Fix compilation under fpc 2.24 and under unix git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1046 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/virtualtreeview-new/trunk/VirtualTrees.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas index 96e367dd8..f88bed6db 100644 --- a/components/virtualtreeview-new/trunk/VirtualTrees.pas +++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas @@ -473,9 +473,10 @@ var // Clipboard format IDs used in OLE drag'n drop and clipboard transfers. // and to allow for check of system dependent hint animation. IsWinVistaOrAbove: Boolean; - {$MinEnumSize 1, make enumerations as small as possible} - type + {$ifdef VER2_2} + UnicodeString = WideString; + {$endif} // The exception used by the trees. EVirtualTreeError = class(Exception); @@ -4741,7 +4742,7 @@ begin end; Len := Length(Result) - Length(LineEnding); - if StrLComp(PChar(@Result[Len + 1]), PChar(@LineEnding[1]), Length(LineEnding)) = 0 then + if CompareByte(Result[Len + 1], LineEnding, Length(LineEnding)) = 0 then SetLength(Result, Len); end;