hedgewars/CCHandlers.inc
changeset 2579 e5e4ebf528b5
parent 2576 2eb7ce1c1f19
child 2592 d86618629e20
--- a/hedgewars/CCHandlers.inc	Fri Oct 23 11:12:01 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Sat Oct 24 13:50:31 2009 +0000
@@ -724,12 +724,22 @@
 
 procedure chZoomIn(var s: shortstring);
 begin
-if ZoomValue < 3.0 then ZoomValue:= ZoomValue + 0.25;
+{$IFDEF IPHONEOS}
+if ZoomValue < 3.5 then
+{$ELSE}
+if ZoomValue < 3.0 then
+{$ENDIF}
+        ZoomValue:= ZoomValue + 0.25;
 end;
 
 procedure chZoomOut(var s: shortstring);
 begin
-if ZoomValue > 1.0 then ZoomValue:= ZoomValue - 0.25;
+{$IFDEF IPHONEOS}
+if ZoomValue > 0.5 then
+{$ELSE}
+if ZoomValue > 1.0 then
+{$ENDIF}
+        ZoomValue:= ZoomValue - 0.25;
 end;
 
 procedure chZoomReset(var s: shortstring);