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

Fixed: http://bugs.freepascal.org/view.php?id=14456 (using PtrInt instead Integer)

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/uvirtuallayer_ole.pas
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;