hedgewars/uTouch.pas
changeset 11778 d8a9be46dede
parent 11777 77afc967f38e
child 11779 3ec3048c339c
equal deleted inserted replaced
11777:77afc967f38e 11778:d8a9be46dede
   640     buttonsDown:= 0;
   640     buttonsDown:= 0;
   641     pointerCount:= 0;
   641     pointerCount:= 0;
   642 
   642 
   643     setLength(fingers, 4);
   643     setLength(fingers, 4);
   644     for index := 0 to (Length(fingers)-1) do
   644     for index := 0 to (Length(fingers)-1) do
   645         fingers[index].id := 0;
   645         fingers[index].id := nilFingerId;
   646 
   646 
   647     rectSize:= baseRectSize;
   647     rectSize:= baseRectSize;
   648     halfRectSize:= baseRectSize shr 1;
   648     halfRectSize:= baseRectSize shr 1;
   649 end;
   649 end;
   650 
   650