From 1cd1ce8bcc0d5bde395696e644fef770a821ccf5 Mon Sep 17 00:00:00 2001 From: dkolmck Date: Wed, 3 Dec 2014 09:27:02 +0000 Subject: [PATCH] * fix some declarations for x64 support git-svn-id: https://svn.code.sf.net/p/kolmck/code@134 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07 --- mckObjs.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mckObjs.pas b/mckObjs.pas index 0c192e3..d58226f 100644 --- a/mckObjs.pas +++ b/mckObjs.pas @@ -955,7 +955,7 @@ begin KOLBmp.RLESaveToStream( MemRLE ); end; if (MemRLE.Size > 0) and (MemRLE.Size < Mem.Size) then - KOL.Swap( Integer( Mem ), Integer( MemRLE ) ); + KOL.Swap( PtrInt( Mem ), PtrInt( MemRLE ) ); Mem.Position := 0; Mem.SaveToFile( Bmp, 0, Mem.Size ); FINALLY