hedgewars/CCHandlers.inc
changeset 3523 6592fbb969da
parent 3522 156c04c6a3d8
child 3551 d4de36b3801a
--- a/hedgewars/CCHandlers.inc	Sat Jun 19 00:48:47 2010 +0200
+++ b/hedgewars/CCHandlers.inc	Sun Jun 20 18:35:59 2010 +0200
@@ -803,30 +803,26 @@
 
 procedure chZoomIn(var s: shortstring);
 begin
-s:= s; // avoid compiler hint
+    s:= s; // avoid compiler hint
 {$IFDEF IPHONEOS}
-if ZoomValue < 3.5 then
+    if ZoomValue < 4.0 then
 {$ELSE}
-if ZoomValue < 3.0 then
+    if ZoomValue < 3.0 then
 {$ENDIF}
-        ZoomValue:= ZoomValue + 0.25;
+        ZoomValue:= ZoomValue + 0.20;
 end;
 
 procedure chZoomOut(var s: shortstring);
 begin
-s:= s; // avoid compiler hint
-{$IFDEF IPHONEOS}
-if ZoomValue > 0.5 then
-{$ELSE}
-if ZoomValue > 1.0 then
-{$ENDIF}
-        ZoomValue:= ZoomValue - 0.25;
+    s:= s; // avoid compiler hint
+    if ZoomValue > 1.0 then
+        ZoomValue:= ZoomValue - 0.20;
 end;
 
 procedure chZoomReset(var s: shortstring);
 begin
-s:= s; // avoid compiler hint
-ZoomValue:= 2.0
+    s:= s; // avoid compiler hint
+    ZoomValue:= cDefaultZoomLevel;
 end;
 
 procedure chChat(var s: shortstring);