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

LCL: fixed TControlScrollBar.InternalSetRange avoiding negative values, bug #25693

Browse Source 
git-svn-id: trunk@43951 -
This commit is contained in:
mattias 2014-02-08 10:49:10 +00:00
parent ded56dfb04
commit 92eb98b5b6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/controlscrollbar.inc
View File

@ -392,7 +392,7 @@ begin
NewRange := 0; NewRange := 0;
if FRange = NewRange then if FRange = NewRange then
Exit; Exit;
FRange := AValue; FRange := NewRange;
{$IFDEF VerboseScrollingWinControl} {$IFDEF VerboseScrollingWinControl}
//if DebugCondition then //if DebugCondition then
DebugLn(['TControlScrollBar.SetRange ',dbgs(Kind),' ',Self,' FRange=',FRange]); DebugLn(['TControlScrollBar.SetRange ',dbgs(Kind),' ',Self,' FRange=',FRange]);