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.

View file

@ -282,7 +282,7 @@ begin
else if Assigned(ListLoad) then
FPluginWindow:= ListLoad(ParentWin, PAnsiChar(UTF8ToSys(FileToLoad)), ShowFlags)
else
Exit(feInvalidHandle);
Exit(wlxInvalidHandle);
Result:= FPluginWindow;
end;