changeset 6698 | 804e9076d136 |
parent 6695 | 32de8965c62c |
child 6700 | e04da46ee43c |
--- a/hedgewars/uTouch.pas Fri Feb 17 15:35:20 2012 +0400 +++ b/hedgewars/uTouch.pas Fri Feb 17 15:55:31 2012 +0100 @@ -542,6 +542,7 @@ end; function isOnRect(rect: TSDL_Rect; finger: TTouch_Data): boolean; +begin isOnRect:= (finger.x > rect.x) and (finger.x < rect.x + rect.w) and (cScreenHeight - finger.y > rect.y) and