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

* Fix compilation under fpc 2.24 and under unix

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

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

@@ -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. // and to allow for check of system dependent hint animation.
IsWinVistaOrAbove: Boolean; IsWinVistaOrAbove: Boolean;
{$MinEnumSize 1, make enumerations as small as possible}
type type
{$ifdef VER2_2}
UnicodeString = WideString;
{$endif}
// The exception used by the trees. // The exception used by the trees.
EVirtualTreeError = class(Exception); EVirtualTreeError = class(Exception);
@@ -4741,7 +4742,7 @@ begin
end; end;
Len := Length(Result) - Length(LineEnding); 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); SetLength(Result, Len);
end; end;