Changeset 82 for trunk/Forms/UFormNew.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/UFormNew.pas (modified) (3 diffs)

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;