From ca0c39185f5ff8d24fc7ead5ad8e05f4d365c623 Mon Sep 17 00:00:00 2001
From: Joshy <Joshy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 30 Aug 2009 14:20:55 +0000
Subject: [PATCH] Fixed: http://bugs.freepascal.org/view.php?id=14456 (using
 PtrInt instead Integer)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@942 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/uvirtuallayer_ole.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpspreadsheet/uvirtuallayer_ole.pas b/components/fpspreadsheet/uvirtuallayer_ole.pas
index 57fe7a96a..8879730a3 100644
--- a/components/fpspreadsheet/uvirtuallayer_ole.pas
+++ b/components/fpspreadsheet/uvirtuallayer_ole.pas
@@ -435,7 +435,7 @@ end;
 function TVirtualLayer_OLE.intfSeek(const AHandle: TvlHandle;
   const APosition: int64; const Origin: word): int64;
 var
-  index: PtrInt;
+  index: Integer;
 begin
   if not HandleToIndex(AHandle,Index) Then begin
     Result:=-1;