+ added the win16api window scrolling functions

git-svn-id: trunk@31779 -

rtl/win16/win31.pp

@@ -568,6 +568,11 @@ const
 
   DCX_USESTYLE         = $00010000;
 
+{ Window scrolling }
+  SW_SCROLLCHILDREN = $0001;
+  SW_INVALIDATE     = $0002;
+  SW_ERASE          = $0004;
+
 function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER';
 
 procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';
@@ -743,6 +748,11 @@ function GetDCEx({register} hwnd: HWND; hrgnClip: HRGN; flags: DWORD): HDC; exte
 function LockWindowUpdate(hwndLock: HWND): BOOL; external 'USER';
 function RedrawWindow(hwnd: HWND; lprcUpdate: LPRECT; hrgnUpdate: HRGN; flags: UINT): BOOL; external 'USER';
 
+{ Window scrolling }
+function ScrollWindowEx(hwnd: HWND; dx, dy: SmallInt;
+          prcScroll, prcClip: LPRECT;
+          hrgnUpdate: HRGN; prcUpdate: LPRECT; flags: UINT): SmallInt; external 'USER';
+
 implementation
 
 end.

rtl/win16/winprocsh.inc

@@ -964,3 +964,11 @@ procedure ValidateRect(hwnd: HWND; lprc: LPRECT); external 'USER';
 
 procedure InvalidateRgn(hwnd: HWND; hrgn: HRGN; fErase: BOOL); external 'USER';
 procedure ValidateRgn(hwnd: HWND; hrgn: HRGN); external 'USER';
+
+{ Window scrolling }
+
+procedure ScrollWindow(hwnd: HWND; dx, dy: SmallInt; lprcScroll, lprcClip: LPRECT); external 'USER';
+function ScrollDC(hdc: HDC; dx, dy: SmallInt; lprcScroll, lprcClip: LPRECT; hrgnUpdate: HRGN; lprcUpdate: LPRECT): BOOL; external 'USER';
+{$ifdef VAR_PARAMS_ARE_FAR}
+function ScrollDC(hdc: HDC; dx, dy: SmallInt; var rcScroll, rcClip: RECT; hrgnUpdate: HRGN; lprcUpdate: LPRECT): BOOL; external 'USER';
+{$endif}