Changeset 414 for trunk/Forms

Timestamp:

Jan 10, 2025, 4:24:19 PM (12 days ago)

Author:

chronos

Message:

• Modified: Lowered idle CPU consumption.

Location:

trunk/Forms

Files:

• FormClient.pas (modified) (3 diffs)
• FormMain.lfm (modified) (6 diffs)
• FormMain.pas (modified) (5 diffs)

trunk/Forms/FormClient.pas

@@ -320 +320 @@
   if RedrawPending and not Drawing then begin
     Drawing := True;
-    if not Core.Core.DevelMode then RedrawPending := False;
+    RedrawPending := False;
+    Timer1.Enabled := False;
     TimerPeriod := (9 * TimerPeriod + (Now - LastTimerTime)) / 10;
     LastTimerTime := Now;
@@ -358 +359 @@
 begin
   Redraw;
+  Core.Core.FormMain.UpdateInterface;
 end;
 
@@ -421 +423 @@
 begin
   RedrawPending := True;
+  Timer1.Enabled := True;
 end;
 

trunk/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 534
-  Height = 959
+  Height = 925
   Top = 223
   Width = 1491
   Caption = 'xTactics'
-  ClientHeight = 959
+  ClientHeight = 925
   ClientWidth = 1491
   DesignTimePPI = 144
@@ -97 +97 @@
   object PanelMain: TPanel
     Left = 0
-    Height = 919
+    Height = 885
     Top = 40
     Width = 1491
@@ -107 +107 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageListSmall
-    Left = 224
-    Top = 48
+    Left = 88
+    Top = 112
     object MenuItem1: TMenuItem
       Caption = 'Game'
@@ -233 +233 @@
     end
   end
-  object Timer1: TTimer
-    Interval = 20
-    OnTimer = Timer1Timer
-    Left = 128
-    Top = 263
-  end
   object ActionList1: TActionList
     Images = Core.ImageListSmall
-    Left = 280
-    Top = 152
+    Left = 88
+    Top = 184
     object AToolBarBigIcons: TAction
       Caption = 'Toolbar big icons'
@@ -265 +259 @@
   end
   object PopupMenuToolbar: TPopupMenu
-    Left = 452
-    Top = 98
+    Left = 432
+    Top = 112
     object MenuItem18: TMenuItem
       Action = AToolBarBigIcons
@@ -272 +266 @@
   end
   object PopupMenuOpenRecent: TPopupMenu
-    Left = 448
-    Top = 251
+    Left = 432
+    Top = 184
   end
 end

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