hedgewars/uTouch.pas
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);