changeset 10015 | 4feced261c68 |
parent 9521 | 8054d9d775fd |
child 10108 | c68cf030eded |
--- a/hedgewars/uTouch.pas Sun Jan 19 00:18:28 2014 +0400 +++ b/hedgewars/uTouch.pas Tue Jan 21 22:38:13 2014 +0100 @@ -360,8 +360,9 @@ //Check array sizes if length(fingers) < pointerCount then begin - setLength(fingers, pointerCount * 2); - WriteLnToConsole('allocated ' + inttostr(length(fingers)) + ' finger elements'); + setLength(fingers, length(fingers)*2); + for index := length(fingers) div 2 to length(fingers) do + fingers[index].id := nilFingerId; end; xCursor := convertToCursorX(x);