Changeset 220 for trunk/UGameClient.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/UGameClient.pas (modified) (3 diffs)

trunk/UGameClient.pas

@@ -44 +44 @@
     procedure DoNextPlayerHandler(Sender: TObject);
     procedure DoNextPlayer;
+    procedure DoParametersChangedHandler(Sender: TObject);
   public
     Name: string;
@@ -172 +173 @@
 end;
 
+procedure TClient.DoParametersChangedHandler(Sender: TObject);
+begin
+  Synchronize(DoChange);
+end;
+
 procedure TClient.SetControlPlayer(AValue: TPlayer);
 begin
@@ -232 +238 @@
   Protocol.OnGameEnd := DoGameEndHandler;
   Protocol.OnNextPlayer := DoNextPlayerHandler;
+  Protocol.OnParametersChanged := DoParametersChangedHandler;
 end;