Changeset 245 for trunk/Forms/UFormClient.pas

Timestamp:

Sep 22, 2018, 1:07:53 PM (6 years ago)

Author:

chronos

Message:

• Added: Limit minimum and maximum map zoom.

File:

• trunk/Forms/UFormClient.pas (modified) (3 diffs)

trunk/Forms/UFormClient.pas

@@ -12 +12 @@
 const
   ZoomFactor = 1.5;
+  MinZoom = 0.05;
+  MaxZoom = 10;
   MouseMinDiff = 0.1;
 
@@ -447 +449 @@
 begin
   with Client do begin
-    View.Zoom := View.Zoom * ZoomFactor;
+    if View.Zoom * ZoomFactor < MaxZoom then
+      View.Zoom := View.Zoom * ZoomFactor;
   end;
   Redraw;
@@ -453 +456 @@
 
 procedure TFormClient.AZoomOutExecute(Sender: TObject);
-//var
-//  D: TPoint;
 begin
   with Client do begin
-    //D := Point(Trunc(MousePos.X - View.Left / ViewZoom),
-    //  Trunc(MousePos.Y - View.Top / ViewZoom));
-    View.Zoom := View.Zoom / ZoomFactor;
-    //View := Bounds(Trunc((D.X - MousePos.X) * ViewZoom),
-    //  Trunc((D.Y - MousePos.Y) * ViewZoom),
-    //  View.Right - View.Left,
-    //  View.Bottom - View.Top);
+    if View.Zoom / ZoomFactor > MinZoom then
+      View.Zoom := View.Zoom / ZoomFactor;
   end;
   Redraw;