Changeset 414 for trunk/Forms/FormClient.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Lowered idle CPU consumption.

File:

• trunk/Forms/FormClient.pas (modified) (3 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;