Changeset 19 for trunk/UFormMain.pas

Timestamp:

Feb 27, 2014, 7:43:00 AM (11 years ago)

Author:

chronos

Message:

• Modified: Center map to screen after new game is started.

File:

• trunk/UFormMain.pas (modified) (1 diff)

trunk/UFormMain.pas

@@ -210 +210 @@
 procedure TFormMain.PaintBox1MouseWheelDown(Sender: TObject;
   Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
-begin
-  with Game.CurrentPlayer do
+var
+  D: TPoint;
+begin
+  with Game.CurrentPlayer do begin
+    D := Point(Trunc(MousePos.X - Game.CurrentPlayer.View.Left / ViewZoom),
+      Trunc(MousePos.Y - Game.CurrentPlayer.View.Top / ViewZoom));
     ViewZoom := ViewZoom / ZoomFactor;
+    //View := Bounds(Trunc((D.X - MousePos.X) * ViewZoom),
+    //  Trunc((D.Y - MousePos.Y) * ViewZoom),
+    //  View.Right - View.Left,
+    //  View.Bottom - View.Top);
+  end;
   Redraw;
 end;