* 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 end
else if FShortCuts[0] <> nil then else if FShortCuts[0] <> nil then
begin begin
stepSize := FCount div 10; stepSize := FCount div 10 + 1;
nextStep := stepSize; nextStep := stepSize;
step := 0; step := 0;
shortcut := 1; shortcut := 1;