* Fixed possible range overflow

This commit is contained in:
Andreas Schneider 2012-01-14 18:09:07 +01:00
parent 940e81f123
commit 5ac13430be
1 changed files with 1 additions and 1 deletions

View File

@ -1588,7 +1588,7 @@ begin
end
else if FShortCuts[0] <> nil then
begin
stepSize := FCount div 10;
stepSize := FCount div 10 + 1;
nextStep := stepSize;
step := 0;
shortcut := 1;