FIX: Range check error

This commit is contained in:
Alexander Koblov 2010-06-26 06:45:45 +00:00
commit 33ebffce82
2 changed files with 5 additions and 2 deletions

View file

@ -45,6 +45,9 @@ type
{ Unsigned integer with pointer size }
THandle = {$IFDEF CPU64}QWord{$ELSE}LongWord{$ENDIF};
const
wlxInvalidHandle: THandle = THandle(-1);
type
tListDefaultParamStruct=record
size,
@ -93,4 +96,4 @@ function ListGetPreviewBitmapW(FileToLoad:pwidechar;width,height:integer; conten
implementation
end.
end.