Changeset 82 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.pas (modified) (5 diffs)
• UFormNew.lfm (modified) (2 diffs)
• UFormNew.lrt (modified) (1 diff)
• UFormNew.pas (modified) (3 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));

trunk/Forms/UFormNew.lfm

@@ -45 +45 @@
     Top = 5
     Width = 745
-    ActivePage = TabSheet1
+    ActivePage = TabSheet3
     Align = alTop
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 3
     object TabSheet1: TTabSheet
@@ -407 +407 @@
         TabOrder = 2
       end
+      object CheckBoxFogOfWar: TCheckBox
+        Left = 336
+        Height = 27
+        Top = 24
+        Width = 120
+        Caption = 'Fog of war'
+        TabOrder = 3
+      end
     end
   end

trunk/Forms/UFormNew.lrt

@@ -25 +25 @@
 TFORMNEW.LABEL6.CAPTION=Win objective:
 TFORMNEW.RADIOGROUPGROWAMOUNT.CAPTION=Per turn grow amount
+TFORMNEW.CHECKBOXFOGOFWAR.CAPTION=Fog of war
 TFORMNEW.APLAYERMODIFY.CAPTION=Modify player
 TFORMNEW.APLAYERADD.CAPTION=Add

trunk/Forms/UFormNew.pas

@@ -24 +24 @@
     ButtonPlayerModify: TButton;
     ButtonPlayerRemove: TButton;
+    CheckBoxFogOfWar: TCheckBox;
     CheckBoxCity: TCheckBox;
     CheckBoxSymetricMap: TCheckBox;
@@ -351 +352 @@
   ComboBoxMapShape.ItemIndex := Integer(Game.Map.Shape);
   EditImageFile.Text := Game.MapImageFileName;
+  CheckBoxFogOfWar.Checked := Game.FogOfWar;
 end;
 
@@ -379 +381 @@
   Game.Map.Shape := TMapShape(ComboBoxMapShape.ItemIndex);
   Game.MapImageFileName := EditImageFile.Text;
+  Game.FogOfWar := CheckBoxFogOfWar.Checked;
 end;