* replaced "var R:RECT" to "const R:RECT" in WinAPI functions parameters according to MS PSDK.

git-svn-id: trunk@7248 -

rtl/wince/wininc/coredll.inc

@@ -2331,7 +2331,7 @@ function ConvertDefaultLocale(Locale:LCID):LCID; external KernelDLL name 'Conver
 procedure CopyMemory(Destination:PVOID; Source:pointer; Length:DWORD);
 function CopyFile(lpExistingFileName:LPCWSTR; lpNewFileName:LPCWSTR; bFailIfExists:WINBOOL):WINBOOL; external KernelDLL name 'CopyFileW';
 function CopyFileW(lpExistingFileName:LPCWSTR; lpNewFileName:LPCWSTR; bFailIfExists:WINBOOL):WINBOOL; external KernelDLL name 'CopyFileW';
-function CopyRect(lprcDst:LPRECT; var lprcSrc:RECT):WINBOOL; external KernelDLL name 'CopyRect';
+function CopyRect(lprcDst:LPRECT; const lprcSrc:RECT):WINBOOL; external KernelDLL name 'CopyRect';
 function CountClipboardFormats:longint; external KernelDLL name 'CountClipboardFormats';
 function CreateAcceleratorTable(_para1:LPACCEL; _para2:longint):HACCEL; external KernelDLL name 'CreateAcceleratorTableW';
 function CreateAcceleratorTableW(_para1:LPACCEL; _para2:longint):HACCEL; external KernelDLL name 'CreateAcceleratorTableW';
@@ -2378,7 +2378,7 @@ function CreatePatternBrush(_para1:HBITMAP):HBRUSH; external KernelDLL name 'Cre
 function CreatePen(_para1:longint; _para2:longint; _para3:COLORREF):HPEN; external KernelDLL name 'CreatePen';
 function CreatePenIndirect(var _para1:LOGPEN):HPEN; external KernelDLL name 'CreatePenIndirect';
 function CreateRectRgn(_para1:longint; _para2:longint; _para3:longint; _para4:longint):HRGN; external KernelDLL name 'CreateRectRgn';
-function CreateRectRgnIndirect(var _para1:RECT):HRGN; external KernelDLL name 'CreateRectRgnIndirect';
+function CreateRectRgnIndirect(const _para1:RECT):HRGN; external KernelDLL name 'CreateRectRgnIndirect';
 function CreateSemaphore(lpSemaphoreAttributes:LPSECURITY_ATTRIBUTES; lInitialCount:LONG; lMaximumCount:LONG; lpName:LPCWSTR):HWND; external KernelDLL name 'CreateSemaphoreW';
 function CreateSemaphoreW(lpSemaphoreAttributes:LPSECURITY_ATTRIBUTES; lInitialCount:LONG; lMaximumCount:LONG; lpName:LPCWSTR):HWND; external KernelDLL name 'CreateSemaphoreW';
 function CreateSolidBrush(_para1:COLORREF):HBRUSH; external KernelDLL name 'CreateSolidBrush';
@@ -2454,7 +2454,7 @@ function EndPaint(hWnd:HWND; lpPaint:LPPAINTSTRUCT):WINBOOL; external KernelDLL
 procedure EnterCriticalSection(lpCriticalSection:LPCRITICAL_SECTION); external KernelDLL name 'EnterCriticalSection';
 function EnumClipboardFormats(format:UINT):UINT; external KernelDLL name 'EnumClipboardFormats';
 function EnumWindows(lpEnumFunc:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external KernelDLL name 'EnumWindows';
-function EqualRect(var lprc1:RECT; var lprc2:RECT):WINBOOL; external KernelDLL name 'EqualRect';
+function EqualRect(const lprc1:RECT; const lprc2:RECT):WINBOOL; external KernelDLL name 'EqualRect';
 function EscapeCommFunction(hFile:HWND; dwFunc:DWORD):WINBOOL; external KernelDLL name 'EscapeCommFunction';
 function EventModify(hEvent:HWND; func:DWORD ):WINBOOL; external KernelDLL name 'EventModify';
 function ExcludeClipRect(_para1:HDC; _para2:longint; _para3:longint; _para4:longint; _para5:longint):longint; external KernelDLL name 'ExcludeClipRect';
@@ -2757,8 +2757,8 @@ function InsertMenuW(hMenu:HMENU; uPosition:UINT; uFlags:UINT; uIDNewItem:UINT;
 //function InterlockedExchangeAdd( Addend:LPLONG; Value:LONG):LONG; external KernelDLL name 'InterlockedExchangeAdd';
 //function InterlockedTestExchange( Target:LPLONG; oldValue:LONG; newValue:LONG):LONG; external KernelDLL name 'InterlockedTestExchange';
 function IntersectClipRect(_para1:HDC; _para2:longint; _para3:longint; _para4:longint; _para5:longint):longint; external KernelDLL name 'IntersectClipRect';
-function IntersectRect(lprcDst:LPRECT; var lprcSrc1:RECT; var lprcSrc2:RECT):WINBOOL; external KernelDLL name 'IntersectRect';
-function InvalidateRect(hWnd:HWND; var lpRect:RECT; bErase:WINBOOL):WINBOOL; external KernelDLL name 'InvalidateRect';
+function IntersectRect(lprcDst:LPRECT; const lprcSrc1:RECT; const lprcSrc2:RECT):WINBOOL; external KernelDLL name 'IntersectRect';
+function InvalidateRect(hWnd:HWND; const lpRect:RECT; bErase:WINBOOL):WINBOOL; external KernelDLL name 'InvalidateRect';
 function InvalidateRect(hWnd:HWND;lpRect:LPRECT; bErase:WINBOOL):WINBOOL; external KernelDLL name 'InvalidateRect';
 function InvalidateRgn(hWnd:HWND; hRgn:HRGN; bErase:WINBOOL):WINBOOL; external KernelDLL name 'InvalidateRgn';
 function InvertRect(hDC:HDC; const lprc:RECT):WINBOOL; external KernelDLL name 'InvertRect';
@@ -2771,7 +2771,7 @@ function IsDBCSLeadByte(TestChar:BYTE):WINBOOL; external KernelDLL name 'IsDBCSL
 function IsDBCSLeadByteEx(CodePage:UINT; TestChar:BYTE):WINBOOL; external KernelDLL name 'IsDBCSLeadByteEx';
 function IsDialogMessage(hDlg:HWND; lpMsg:LPMSG):WINBOOL; external KernelDLL name 'IsDialogMessageW';
 function IsDialogMessageW(hDlg:HWND; lpMsg:LPMSG):WINBOOL; external KernelDLL name 'IsDialogMessageW';
-function IsRectEmpty(var lprc:RECT):WINBOOL; external KernelDLL name 'IsRectEmpty';
+function IsRectEmpty(const lprc:RECT):WINBOOL; external KernelDLL name 'IsRectEmpty';
 function IsValidCodePage(CodePage:UINT):WINBOOL; external KernelDLL name 'IsValidCodePage';
 function IsValidLocale(Locale:LCID; dwFlags:DWORD):WINBOOL; external KernelDLL name 'IsValidLocale';
 function IsWindow(hWnd:HWND):WINBOOL; external KernelDLL name 'IsWindow';
@@ -2904,7 +2904,7 @@ function PostMessageW(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):WINBOOL
 procedure PostQuitMessage(nExitCode:longint); external KernelDLL name 'PostQuitMessage';
 function PostThreadMessage(idThread:DWORD; Msg:UINT; wParam:WPARAM; lParam:LPARAM):WINBOOL; external KernelDLL name 'PostThreadMessageW';
 function PostThreadMessageW(idThread:DWORD; Msg:UINT; wParam:WPARAM; lParam:LPARAM):WINBOOL; external KernelDLL name 'PostThreadMessageW';
-function PlayEnhMetaFile(_para1:HDC; _para2:HENHMETAFILE; var _para3:RECT):WINBOOL; external KernelDLL name 'PlayEnhMetaFile';
+function PlayEnhMetaFile(_para1:HDC; _para2:HENHMETAFILE; const _para3:RECT):WINBOOL; external KernelDLL name 'PlayEnhMetaFile';
 function Polygon(_para1:HDC; _para2:LPPOINT; _para3:longint):WINBOOL; external KernelDLL name 'Polygon';
 function Polyline(_para1:HDC; _para2:LPPOINT; _para3:longint):WINBOOL; external KernelDLL name 'Polyline';
 function PropSheet_AddPage(hPropSheetDlg : HWND;hpage : HPROPSHEETPAGE) : LRESULT;
@@ -2934,10 +2934,10 @@ function QueryPerformanceFrequency(lpFrequency:PLARGE_INTEGER):WINBOOL; external
 procedure RaiseException(dwExceptionCode:DWORD; dwExceptionFlags:DWORD; nNumberOfArguments:DWORD; lpArguments:LPDWORD); external KernelDLL name 'RaiseException';
 function ReadProcessMemory(hProcess:HWND; lpBaseAddress:LPCVOID; lpBuffer:LPVOID; nSize:DWORD; lpNumberOfBytesRead:LPDWORD):WINBOOL; external KernelDLL name 'ReadProcessMemory';
 function RealizePalette(_para1:HDC):UINT; external KernelDLL name 'RealizePalette';
-function RectInRegion(_para1:HRGN; var _para2:RECT):WINBOOL; external KernelDLL name 'RectInRegion';
-function RectVisible(_para1:HDC; var _para2:RECT):WINBOOL; external KernelDLL name 'RectVisible';
+function RectInRegion(_para1:HRGN; const _para2:RECT):WINBOOL; external KernelDLL name 'RectInRegion';
+function RectVisible(_para1:HDC; const _para2:RECT):WINBOOL; external KernelDLL name 'RectVisible';
 function Rectangle(_para1:HDC; _para2:longint; _para3:longint; _para4:longint; _para5:longint):WINBOOL; external KernelDLL name 'Rectangle';
-function RedrawWindow(hWnd:HWND; var lprcUpdate:RECT; hrgnUpdate:HRGN; flags:UINT):WINBOOL; external KernelDLL name 'RedrawWindow';
+function RedrawWindow(hWnd:HWND; const lprcUpdate:RECT; hrgnUpdate:HRGN; flags:UINT):WINBOOL; external KernelDLL name 'RedrawWindow';
 function RedrawWindow(hWnd:HWND; lprcUpdate:LPRECT; hrgnUpdate:HRGN; flags:UINT):WINBOOL; external KernelDLL name 'RedrawWindow';
 function RegisterHotKey(hWnd:HWND; anID:longint; fsModifiers:UINT; vk:UINT):WINBOOL; external KernelDLL name 'RegisterHotKey';
 function RegCloseKey(hKey:HKEY):LONG; external KernelDLL name 'RegCloseKey';
@@ -2988,8 +2988,8 @@ function ResumeThread(hThread:HWND):DWORD; external KernelDLL name 'ResumeThread
 function RoundRect(_para1:HDC; _para2:longint; _para3:longint; _para4:longint; _para5:longint;_para6:longint; _para7:longint):WINBOOL; external KernelDLL name 'RoundRect';
 function SaveDC(_para1:HDC):longint; external KernelDLL name 'SaveDC';
 function ScreenToClient(hWnd:HWND; lpPoint:LPPOINT):WINBOOL; external KernelDLL name 'ScreenToClient';
-function ScrollDC(hDC:HDC; dx:longint; dy:longint; var lprcScroll:RECT; var lprcClip:RECT;hrgnUpdate:HRGN; lprcUpdate:LPRECT):WINBOOL; external KernelDLL name 'ScrollDC';
-function ScrollWindowEx(hWnd:HWND; dx:longint; dy:longint; var prcScroll:RECT; var prcClip:RECT;hrgnUpdate:HRGN; prcUpdate:LPRECT; flags:UINT):longint; external KernelDLL name 'ScrollWindowEx';
+function ScrollDC(hDC:HDC; dx:longint; dy:longint; const lprcScroll:RECT; const lprcClip:RECT;hrgnUpdate:HRGN; lprcUpdate:LPRECT):WINBOOL; external KernelDLL name 'ScrollDC';
+function ScrollWindowEx(hWnd:HWND; dx:longint; dy:longint; const prcScroll:RECT; const prcClip:RECT;hrgnUpdate:HRGN; prcUpdate:LPRECT; flags:UINT):longint; external KernelDLL name 'ScrollWindowEx';
 function SelectClipRgn(_para1:HDC; _para2:HRGN):longint; external KernelDLL name 'SelectClipRgn';
 function SelectObject(_para1:HDC; _para2:HGDIOBJ):HGDIOBJ; external KernelDLL name 'SelectObject';
 function SelectPalette(_para1:HDC; _para2:HPALETTE; _para3:WINBOOL):HPALETTE; external KernelDLL name 'SelectPalette';
@@ -3083,7 +3083,7 @@ function StartPage(_para1:HDC):longint; external KernelDLL name 'StartPage';
 function StretchBlt(_para1:HDC; _para2:longint; _para3:longint; _para4:longint; _para5:longint;_para6:HDC; _para7:longint; _para8:longint; _para9:longint; _para10:longint;_para11:DWORD):WINBOOL; external KernelDLL name 'StretchBlt';
 function StretchDIBits(_para1:HDC; _para2:longint; _para3:longint; _para4:longint; _para5:longint;_para6:longint; _para7:longint; _para8:longint; _para9:longint; _para10:pointer;var _para11:BITMAPINFO; _para12:UINT; _para13:DWORD):longint;
   external KernelDLL name 'StretchDIBits';
-function SubtractRect(lprcDst:LPRECT; var lprcSrc1:RECT; var lprcSrc2:RECT):WINBOOL; external KernelDLL name 'SubtractRect';
+function SubtractRect(lprcDst:LPRECT; const lprcSrc1:RECT; const lprcSrc2:RECT):WINBOOL; external KernelDLL name 'SubtractRect';
 function SuspendThread(hThread:HWND):DWORD; external KernelDLL name 'SuspendThread';
 function SystemParametersInfo(uiAction:UINT; uiParam:UINT; pvParam:PVOID; fWinIni:UINT):WINBOOL; external KernelDLL name 'SystemParametersInfoW';
 function SystemParametersInfoW(uiAction:UINT; uiParam:UINT; pvParam:PVOID; fWinIni:UINT):WINBOOL; external KernelDLL name 'SystemParametersInfoW';
@@ -3163,13 +3163,13 @@ function TreeView_EndEditLabelNow(hwnd:HWND;fCancel : longint) : LRESULT;
 function TreeView_GetISearchString(hwndTV:HWND;lpsz : LPTSTR) : LRESULT;
 function TryEnterCriticalSection(lpCriticalSection:LPCRITICAL_SECTION):WINBOOL; external KernelDLL name 'TryEnterCriticalSection';  //+winbase
 function UnhookWindowsHookEx(hhk:HHOOK):WINBOOL; external KernelDLL name 'UnhookWindowsHookEx';
-function UnionRect(lprcDst:LPRECT; var lprcSrc1:RECT; var lprcSrc2:RECT):WINBOOL; external KernelDLL name 'UnionRect';
+function UnionRect(lprcDst:LPRECT; const lprcSrc1:RECT; const lprcSrc2:RECT):WINBOOL; external KernelDLL name 'UnionRect';
 function UnmapViewOfFile(lpBaseAddress:LPVOID):WINBOOL; external KernelDLL name 'UnmapViewOfFile';
 function UnregisterClass(lpClassName:LPCWSTR; hInstance:HINST):WINBOOL; external KernelDLL name 'UnregisterClassW';
 function UnregisterClassW(lpClassName:LPCWSTR; hInstance:HINST):WINBOOL; external KernelDLL name 'UnregisterClassW';
 function UnregisterHotKey(hWnd:HWND; anID:longint):WINBOOL; external KernelDLL name 'UnregisterHotKey';
 function UpdateWindow(hWnd:HWND):WINBOOL; external KernelDLL name 'UpdateWindow';
-function ValidateRect(hWnd:HWND; var lpRect:RECT):WINBOOL; external KernelDLL name 'ValidateRect';
+function ValidateRect(hWnd:HWND; const lpRect:RECT):WINBOOL; external KernelDLL name 'ValidateRect';
 function ValidateRect(hWnd:HWND;lpRect:LPRECT):WINBOOL; external KernelDLL name 'ValidateRect';
 function ValidateRgn(hWnd:HWND; hRgn:HRGN):WINBOOL; external KernelDLL name 'ValidateRgn';
 function VerQueryValue(pBlock:LPVOID; lpSubBlock:LPWSTR; lplpBuffer:LPVOID; puLen:PUINT):WINBOOL; external KernelDLL name 'VerQueryValueW';