Changeset 220 for trunk/UCore.pas

Timestamp:

Jun 10, 2018, 12:18:28 PM (6 years ago)

Author:

chronos

Message:

• Added: Allow to toggle Fog of war in debug mode from Debug menu.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -17 +17 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AToggleFogOfWar: TAction;
     AShowKeyShortcuts: TAction;
     AGameSave: TAction;
@@ -57 +58 @@
     procedure AShowKeyShortcutsExecute(Sender: TObject);
     procedure AShowUnitMovesExecute(Sender: TObject);
+    procedure AToggleFogOfWarExecute(Sender: TObject);
     procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -389 +391 @@
 end;
 
+procedure TCore.AToggleFogOfWarExecute(Sender: TObject);
+begin
+  Game.FogOfWar := not Game.FogOfWar;
+  Server.DoChange(Self);
+end;
+
 procedure TCore.CoolTranslator1Translate(Sender: TObject);
 begin