paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 19:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Replaced integer by longint.

Browse Source 
git-svn-id: trunk@10906 -
This commit is contained in:
yury 2008-05-07 22:01:20 +00:00
parent 6f3e1bba28
commit 251ba4888c
4 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winceunits/src/aygshell.pp
View File

@ -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;

16
packages/winceunits/src/commctrl.pp
View File

@ -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;

8
packages/winceunits/src/oleaut32.pp
View File

@ -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

2
packages/winceunits/src/shellapi.pp
View File

@ -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;