* Fixed possible range overflow

2012-01-14 18:09:07 +01:00
parent 940e81f123
commit 5ac13430be
1 changed files with 1 additions and 1 deletions
--- a/Client/ULandscape.pas
+++ b/Client/ULandscape.pas
@@ -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;