paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 20:09:10 +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
SetPosition(GetRealScrollPosition)
else
SetPosition( FPosition + (Pos - FPosition) * FIncrement );
SetPosition(Pos);
SB_THUMBTRACK:
if Tracking then
if FCalcRange > 32767 then