hedgewars: comparison hedgewars/uTouch.pas

equal deleted inserted replaced

-:f2031643fe98
+:77afc967f38e
 function addFinger(x,y: Longword; id: TSDL_FingerId): PTouch_Data;
 var
 xCursor, yCursor, index : LongInt;
 begin
 //Check array sizes
-if length(fingers) < pointerCount then
+while Length(fingers) <= pointerCount do
 begin
-setLength(fingers, length(fingers)*2);
+setLength(fingers, Length(fingers)*2);
-for index := length(fingers) div 2 to length(fingers) do
+for index := Length(fingers) div 2 to (Length(fingers)-1) do
 fingers[index].id := nilFingerId;
 end;
 xCursor := convertToCursorX(x);
 yCursor := convertToCursorY(y);
 //on removing fingers, all fingers are moved to the left
 function findFinger(id: TSDL_FingerId): PTouch_Data;
 var
 index: LongWord;
 begin
-for index:= 0 to length(fingers) do
+for index:= 0 to (Length(fingers)-1) do
 if fingers[index].id = id then
 begin
 findFinger:= @fingers[index];
 exit;
 end;
 begin
 buttonsDown:= 0;
 pointerCount:= 0;
 setLength(fingers, 4);
-for index := 0 to length(fingers) do
+for index := 0 to (Length(fingers)-1) do
 fingers[index].id := 0;
 rectSize:= baseRectSize;
 halfRectSize:= baseRectSize shr 1;
 end;