git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@942 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2009-08-30 14:20:55 +00:00
parent df28fec280
commit ca0c39185f

View File

@ -435,7 +435,7 @@ end;
function TVirtualLayer_OLE.intfSeek(const AHandle: TvlHandle; function TVirtualLayer_OLE.intfSeek(const AHandle: TvlHandle;
const APosition: int64; const Origin: word): int64; const APosition: int64; const Origin: word): int64;
var var
index: PtrInt; index: Integer;
begin begin
if not HandleToIndex(AHandle,Index) Then begin if not HandleToIndex(AHandle,Index) Then begin
Result:=-1; Result:=-1;