From 251ba4888ca919dc5fea950e7a8300bb537008af Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Wed, 7 May 2008 22:01:20 +0000
Subject: [PATCH] * Replaced integer by longint.

git-svn-id: trunk@10906 -
---
 packages/winceunits/src/aygshell.pp |  4 ++--
 packages/winceunits/src/commctrl.pp | 16 ++++++++--------
 packages/winceunits/src/oleaut32.pp |  8 ++++----
 packages/winceunits/src/shellapi.pp |  2 +-
 4 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/packages/winceunits/src/aygshell.pp b/packages/winceunits/src/aygshell.pp
index abee50f5c6..83dc1012d5 100644
--- a/packages/winceunits/src/aygshell.pp
+++ b/packages/winceunits/src/aygshell.pp
@@ -428,8 +428,8 @@ type
     dwFlags : DWORD ;      // IN  - Some features we want
     nToolBarId : UINT ;    // IN  - Which toolbar are we using
     hInstRes : HINST;      // IN  - Instance that owns the resources
-    nBmpId : Integer;
-    cBmpImages : Integer;  // IN  - Count of bitmap images
+    nBmpId : longint;
+    cBmpImages : longint;  // IN  - Count of bitmap images
     hwndMB : HWND ;        // OUT
     clrBk : COLORREF ;     // IN  - background color of the menu bar (excluding sip)
   end;
diff --git a/packages/winceunits/src/commctrl.pp b/packages/winceunits/src/commctrl.pp
index 07c6678a1d..596277104a 100644
--- a/packages/winceunits/src/commctrl.pp
+++ b/packages/winceunits/src/commctrl.pp
@@ -423,7 +423,7 @@ type
 
   tagNMDATETIMEWMKEYDOWNA = record
     nmhdr     : NMHDR;
-    nVirtKey  : integer;
+    nVirtKey  : longint;
     pszFormat : LPCSTR;
     st        : SYSTEMTIME;
   end;
@@ -433,7 +433,7 @@ type
 
   tagNMDATETIMEWMKEYDOWNW = record
     nmhdr     : NMHDR;
-    nVirtKey  : integer;
+    nVirtKey  : longint;
     pszFormat : LPCWSTR;
     st        : SYSTEMTIME;
   end;
@@ -522,7 +522,7 @@ type
   TBBUTTONINFO=TBBUTTONINFOW;
   TTBButtonInfo=TBBUTTONINFO;
 
-  tagNMCUSTOMDRAWINFO = packed record
+  tagNMCUSTOMDRAWINFO = record
     hdr: TNMHdr;
     dwDrawStage: DWORD;
     hdc: HDC;
@@ -534,19 +534,19 @@ type
   PNMCustomDraw = ^TNMCustomDraw;
   TNMCustomDraw = tagNMCUSTOMDRAWINFO;
   
-  tagNMLVCUSTOMDRAW = packed record
+  tagNMLVCUSTOMDRAW = record
     nmcd: TNMCustomDraw;
     clrText: COLORREF;
     clrTextBk: COLORREF;
-    iSubItem: Integer;
+    iSubItem: longint;
   end;
   PNMLVCustomDraw = ^TNMLVCustomDraw;
   TNMLVCustomDraw = tagNMLVCUSTOMDRAW;
   
-  tagNMLVODSTATECHANGE = packed record
+  tagNMLVODSTATECHANGE = record
     hdr: TNMHdr;
-    iFrom: Integer;
-    iTo: Integer;
+    iFrom: longint;
+    iTo: longint;
     uNewState: UINT;
     uOldState: UINT;
   end;
diff --git a/packages/winceunits/src/oleaut32.pp b/packages/winceunits/src/oleaut32.pp
index 957fc23b93..afcf10b2af 100644
--- a/packages/winceunits/src/oleaut32.pp
+++ b/packages/winceunits/src/oleaut32.pp
@@ -264,12 +264,12 @@ const
 //*****************************************************************************
 
 //BSTR API
-function  SysAllocString(psz: pointer): Integer; external oleaut32dll name 'SysAllocString';
-function  SysAllocStringLen(psz: pointer; len:dword): Integer; external oleaut32dll name 'SysAllocStringLen';
+function  SysAllocString(psz: pointer): longint; external oleaut32dll name 'SysAllocString';
+function  SysAllocStringLen(psz: pointer; len:dword): longint; external oleaut32dll name 'SysAllocStringLen';
 procedure SysFreeString(bstr:pointer); external oleaut32dll name 'SysFreeString';
 function  SysStringLen(bstr:pointer):UINT; external oleaut32dll name 'SysStringLen';
-function  SysReAllocString(var bstr:pointer;psz: pointer): Integer; external oleaut32dll name 'SysReAllocString';
-function  SysReAllocStringLen(var bstr:pointer;psz: pointer; len:dword): Integer; external oleaut32dll name 'SysReAllocStringLen';
+function  SysReAllocString(var bstr:pointer;psz: pointer): longint; external oleaut32dll name 'SysReAllocString';
+function  SysReAllocStringLen(var bstr:pointer;psz: pointer; len:dword): longint; external oleaut32dll name 'SysReAllocStringLen';
 
 implementation
 
diff --git a/packages/winceunits/src/shellapi.pp b/packages/winceunits/src/shellapi.pp
index 2f6201b8a8..eabf3288f2 100644
--- a/packages/winceunits/src/shellapi.pp
+++ b/packages/winceunits/src/shellapi.pp
@@ -217,7 +217,7 @@ type
     function Realloc(pv: Pointer; cb: Longint): Pointer;
     procedure Free(pv: Pointer);
     function GetSize(pv: Pointer): Longint;
-    function DidAlloc(pv: Pointer): Integer;
+    function DidAlloc(pv: Pointer): longint;
     procedure HeapMinimize;
   end;
   LPMALLOC = ^IMalloc;