Merged revisions 8070 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r8070 | yury | 2007-07-16 01:35:37 +0300 (Пн, 16 июл 2007) | 1 line
  
  * Fixed GetScrollPos and GetScrollRange.
........

git-svn-id: branches/fixes_2_2@8071 -

rtl/wince/wininc/coredll.inc

@@ -4262,6 +4262,7 @@ var
   si : TScrollInfo;
 begin
   si.cbSize:=SizeOf(si);
+  si.fMask:=SIF_POS;
   if GetScrollInfo(hWnd, nBar, si) then
     Result:=si.nPos
   else
@@ -4273,6 +4274,7 @@ var
   si : TScrollInfo;
 begin
   si.cbSize:=SizeOf(si);
+  si.fMask:=SIF_RANGE;
   Result:=GetScrollInfo(hWnd, nBar, si);
   if Result then begin
     lpMinPos:=si.nMin;