paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 11:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* applied patch from Bernd Kreuss for bug #17081

Browse Source 
git-svn-id: trunk@26964 -
This commit is contained in:
andrew 2010-08-01 19:30:36 +00:00
parent c7b5612c6c
commit b441e37b32
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iphtml.pas
View File

@ -17768,7 +17768,7 @@ begin
if FCalcRange > 32767 then if FCalcRange > 32767 then
SetPosition(GetRealScrollPosition) SetPosition(GetRealScrollPosition)
else else
SetPosition( FPosition + (Pos - FPosition) * FIncrement ); SetPosition(Pos);
SB_THUMBTRACK: SB_THUMBTRACK:
if Tracking then if Tracking then
if FCalcRange > 32767 then if FCalcRange > 32767 then