Changeset 171 for trunk/Forms

Timestamp:

Nov 23, 2017, 7:05:37 PM (7 years ago)

Author:

chronos

Message:

• Modified: Use specialized TPointF type from generic class.
• Modified: Part of fixes for Voronoi map generation.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -247 +247 @@
 procedure TFormMain.AZoomAllExecute(Sender: TObject);
 var
-  Factor: TFloatPoint;
+  Factor: TPointF;
   MapRect: TRect;
   NewZoom: Single;
@@ -253 +253 @@
   with Core, Game, CurrentClient, View do begin
     MapRect := Map.CalculatePixelRect;
-    Factor := FloatPoint(DestRect.Size.X / MapRect.Size.X,
+    Factor := TPointF.Create(DestRect.Size.X / MapRect.Size.X,
       DestRect.Size.Y / MapRect.Size.Y);
     if Factor.X < Factor.Y then NewZoom := Factor.X