diff options
| author | yury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-07-15 22:37:22 +0000 |
|---|---|---|
| committer | yury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-07-15 22:37:22 +0000 |
| commit | 19db08fb4122f3c0d07dfb81a93fc096fbccced1 (patch) | |
| tree | 41995bb692701e81fd539fb98c22cd1157df49b1 | |
| parent | dfb1aab754ac741c8746436bf0c4c4a4e1e728bf (diff) | |
| download | fpc-19db08fb4122f3c0d07dfb81a93fc096fbccced1.tar.gz | |
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: http://svn.freepascal.org/svn/fpc/branches/fixes_2_2@8071 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | rtl/wince/wininc/coredll.inc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rtl/wince/wininc/coredll.inc b/rtl/wince/wininc/coredll.inc index 828de69c14..7d9a270696 100644 --- a/rtl/wince/wininc/coredll.inc +++ b/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; |