Changeset 414 for trunk/Game.pas

Timestamp:

Jan 10, 2025, 4:24:19 PM (7 hours ago)

Author:

chronos

Message:

• Modified: Lowered idle CPU consumption.

File:

• trunk/Game.pas (modified) (6 diffs)

trunk/Game.pas

@@ -59 +59 @@
     procedure WinObjectiveMapPrepare;
     procedure BuildCity(Cell: TCell);
+    procedure DoChange;
   public
     GameSystem: TGameSystem;
@@ -510 +511 @@
 end;
 
+procedure TGame.DoChange;
+begin
+  if Assigned(FOnChange) then
+    FOnChange(Self);
+end;
+
 procedure TGame.Assign(Source: TGame);
 begin
@@ -678 +685 @@
     FreeAndNil(Doc);
   end;
+  DoChange;
 end;
 
@@ -851 +859 @@
   CurrentPlayer.RemoveInvalidMoves;
   CurrentPlayer.InitUnitMoves;
-  if Assigned(FOnChange) then
-    FOnChange(Self);
+  DoChange;
 end;
 
@@ -1009 +1016 @@
 
   ComputePlayerStats;
+  DoChange;
 end;
 
@@ -1015 +1023 @@
   Running := False;
   if Assigned(OnWin) then OnWin(Winner);
+  DoChange;
 end;