Changeset 82 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 5, 2014, 9:51:30 AM (10 years ago)

Author:

chronos

Message:

• Added: New game option "Fog of war" which cause map to be covered to black and only explored cells will be visible.

File:

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

trunk/Forms/UFormMain.pas

@@ -128 +128 @@
 begin
   DrawStart := Now;
-  if Assigned(Core.Game.CurrentPlayer) then
-  with Core.Game.CurrentPlayer do begin
+  if Assigned(Core.Player) then
+  with Core.Player do begin
     View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
     if csOpaque in PaintBox1.ControlStyle then begin
@@ -151 +151 @@
 procedure TFormMain.PaintBox1Resize(Sender: TObject);
 begin
-  if Assigned(Core.Game.CurrentPlayer) then
-  with Core.Game.CurrentPlayer do
+  if Assigned(Core.Player) then
+  with Core.Player do
     View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
   Redraw;
@@ -240 +240 @@
   MapRect: TRect;
 begin
-  with Core.Game, CurrentPlayer, View do begin
+  with Core, Game, Player, View do begin
     MapRect := Map.GetPixelRect;
     Factor := FloatPoint((DestRect.Right - DestRect.Left) / (MapRect.Right - MapRect.Left),
@@ -271 +271 @@
 procedure TFormMain.AZoomInExecute(Sender: TObject);
 begin
-  with Core.Game.CurrentPlayer do begin
+  with Core.Player do begin
     View.Zoom := View.Zoom * ZoomFactor;
   end;
@@ -281 +281 @@
   D: TPoint;
 begin
-  with Core.Game.CurrentPlayer do begin
+  with Core.Player do begin
     //D := Point(Trunc(MousePos.X - View.Left / ViewZoom),
     //  Trunc(MousePos.Y - View.Top / ViewZoom));