540     else

   540     else

   541         getSecondFinger := @fingers[0];

   541         getSecondFinger := @fingers[0];

   542 end;

   542 end;

   543 

   543 

   544 function isOnRect(rect: TSDL_Rect; finger: TTouch_Data): boolean;

   544 function isOnRect(rect: TSDL_Rect; finger: TTouch_Data): boolean;

   545     isOnRect:= (finger.x > rect.x)   and

   546     isOnRect:= (finger.x > rect.x)   and

   546                (finger.x < rect.x + rect.w) and

   547                (finger.x < rect.x + rect.w) and

   547                (cScreenHeight - finger.y > rect.y) and

   548                (cScreenHeight - finger.y > rect.y) and

   548                (cScreenHeight - finger.y < rect.y + rect.h);

   549                (cScreenHeight - finger.y < rect.y + rect.h);

   549 end;

   550 end;