Changeset 414 for trunk/Forms/FormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Lowered idle CPU consumption.

File:

• trunk/Forms/FormMain.pas (modified) (5 diffs)

trunk/Forms/FormMain.pas

@@ -67 +67 @@
     PopupMenuToolbar: TPopupMenu;
     Separator1: TMenuItem;
-    Timer1: TTimer;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
@@ -94 +93 @@
     procedure FormDestroy(Sender: TObject);
     procedure EraseBackground(DC: HDC); override;
-    procedure Timer1Timer(Sender: TObject);
   private
     FormActivated: Boolean;
@@ -106 +104 @@
     FormUnitMoves: TFormUnitMoves;
     FormCharts: TFormCharts;
+    procedure UpdateInterface;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
@@ -128 +127 @@
 begin
   // Do nothing, all background space covered by controls
-end;
-
-procedure TFormMain.Timer1Timer(Sender: TObject);
-var
-  NewCaption: string;
-begin
-  NewCaption := 'xTactics';
-  if Assigned(Core.Core.Game.CurrentPlayer) then
-    NewCaption := Core.Core.Game.CurrentPlayer.Name + ' - ' + STurn + ' ' +
-    IntToStr(Core.Core.Game.TurnCounter) + ' - ' + NewCaption;
-  Caption := NewCaption;
 end;
 
@@ -311 +299 @@
 end;
 
+procedure TFormMain.UpdateInterface;
+var
+  NewCaption: string;
+begin
+  NewCaption := 'xTactics';
+  if Assigned(Core.Core.Game.CurrentPlayer) then
+    NewCaption := Core.Core.Game.CurrentPlayer.Name + ' - ' + STurn + ' ' +
+    IntToStr(Core.Core.Game.TurnCounter) + ' - ' + NewCaption;
+  Caption := NewCaption;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin