Merged revisions 1809 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
r1809 | marco | 2005-11-23 20:43:16 +0100 (Wed, 23 Nov 2005) | 2 lines

 * getrandomrgn

........

git-svn-id: branches/fixes_2_0@1810 -

rtl/win32/wininc/defines.inc

@@ -5351,6 +5351,7 @@ const
 
   WM_APP                        = $8000;
 
+  SYSRGN                  	= 4;
 
 
 {$endif read_interface}

rtl/win32/wininc/func.inc

@@ -46,6 +46,7 @@
 
 {$ifdef read_interface}
 
+function GetRandomRgn(aHDC: HDC; aHRGN: HRGN; iNum: WINT): WINT; stdcall; external 'gdi32';
 function AccessCheck(pSecurityDescriptor:PSECURITY_DESCRIPTOR; ClientToken:HANDLE; DesiredAccess:DWORD; GenericMapping:PGENERIC_MAPPING; PrivilegeSet:PPRIVILEGE_SET;PrivilegeSetLength:LPDWORD;
   GrantedAccess:LPDWORD; AccessStatus:LPBOOL):WINBOOL; external 'advapi32' name 'AccessCheck';
 function InterlockedIncrement(lpAddend:LPLONG):LONG; external 'kernel32' name 'InterlockedIncrement';
@@ -1244,6 +1245,8 @@ function GlobalReAllocPtr(lp:Pointer;cbNew,flags:DWord):Pointer;
 function GlobalPtrHandle(lp:pointer):Pointer;
 function SetLayeredWindowAttributes(HWND:hwnd;crKey :COLORREF;bAlpha : byte;dwFlags : DWORD):WINBOOL; external 'user32' name 'SetLayeredWindowAttributes';
 
+
+
 {$endif read_interface}