hedgewars/uTouch.pas
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