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

fixed stepit(integer)

Browse Source 
patch from: Matthijs Willemstein

git-svn-id: trunk@8709 -
This commit is contained in:
vincents 2006-02-05 14:55:41 +00:00
parent 02d58be3f6
commit b147b403b4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/progressbar.inc
View File

@ -236,8 +236,7 @@ end;
------------------------------------------------------------------------------}
procedure TCustomProgressBar.StepBy(Delta: Integer);
begin
if FStep < Delta then FPosition := FPosition + (Delta - FStep);
if FStep > Delta then FPosition := FPosition - (Delta);
FPosition := FPosition + Delta - FStep;
StepIt;
end;