hedgewars/uTouch.pas
changeset 9377 48ab6dea8d2f
parent 8204 9a6030d96273
child 9379 1bcfcaf0926e
equal deleted inserted replaced
9376:0405f5f4e7e0 9377:48ab6dea8d2f
   556     y := 0;
   556     y := 0;
   557     convertToFingerCoord(x, y, CrosshairX, CrosshairY);
   557     convertToFingerCoord(x, y, CrosshairX, CrosshairY);
   558     isOnCrosshair:= isOnRect((x-HalfRectSize), (y-HalfRectSize), RectSize, RectSize, finger);
   558     isOnCrosshair:= isOnRect((x-HalfRectSize), (y-HalfRectSize), RectSize, RectSize, finger);
   559     printFinger(finger);
   559     printFinger(finger);
   560     WriteLnToConsole(inttostr(finger.x) + '   ' + inttostr(x));
   560     WriteLnToConsole(inttostr(finger.x) + '   ' + inttostr(x));
   561     WriteLnToConsole(inttostr(x) + '  ' + inttostr(y) + '   ' + inttostr(round(mobileRecord.getScreenDPI() * 10)));
   561     WriteLnToConsole(inttostr(x) + '  ' + inttostr(y) + '   ' + inttostr(10));
   562 end;
   562 end;
   563 
   563 
   564 function isOnCurrentHog(finger: TTouch_Data): boolean;
   564 function isOnCurrentHog(finger: TTouch_Data): boolean;
   565 var
   565 var
   566     x,y : LongInt;
   566     x,y : LongInt;
   638 
   638 
   639     setLength(fingers, 4);
   639     setLength(fingers, 4);
   640     for index := 0 to High(fingers) do 
   640     for index := 0 to High(fingers) do 
   641         fingers[index].id := nilFingerId;
   641         fingers[index].id := nilFingerId;
   642 
   642 
   643     rectSize:= round(baseRectSize * mobileRecord.getScreenDPI());
   643     rectSize:= baseRectSize;
   644     halfRectSize:= rectSize shl 1;
   644     halfRectSize:= baseRectSize shl 1;
   645 end;
   645 end;
   646 
   646 
   647 procedure freeModule;
   647 procedure freeModule;
   648 begin
   648 begin
   649 end;
   649 end;