Changeset 103

Timestamp:

Sep 28, 2022, 10:14:34 PM (19 months ago)

Author:

chronos

Message:

• Fixed: Division by zero in view zoom level calculation on Windows.

Location:

trunk

Files:

• UEngine.pas (modified) (1 diff)
• UView.pas (modified) (1 diff)

trunk/UEngine.pas

@@ -1850 +1850 @@
     else AvailableImprovements := AvailableImprovements - [miLine];
 
+  // Select offered improvements
   Improvements := TList<TMetroImprovement>.Create;
   try

trunk/UView.pas

@@ -58 +58 @@
   if RectEquals(FSourceRect, AValue) then Exit;
   FSourceRect := AValue;
-  ZX := (FDestRect.Right - FDestRect.Left) / (FSourceRect.Right - FSourceRect.Left);
-  ZY := (FDestRect.Bottom - FDestRect.Top) / (FSourceRect.Bottom - FSourceRect.Top);
-  if  ZX > ZY then
-    Zoom := ZY
-    else Zoom := ZX;
+  if ((FSourceRect.Right - FSourceRect.Left) <> 0) and
+  ((FSourceRect.Bottom - FSourceRect.Top) <> 0) then begin
+    ZX := (FDestRect.Right - FDestRect.Left) / (FSourceRect.Right - FSourceRect.Left);
+    ZY := (FDestRect.Bottom - FDestRect.Top) / (FSourceRect.Bottom - FSourceRect.Top);
+    if ZX > ZY then
+      Zoom := ZY
+      else Zoom := ZX;
+  end else Zoom := 1;
 end;