From 0a80061d92b156c250411112931bfa03a0e60316 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 28 Oct 2016 10:46:28 +0200
Subject: [PATCH] disable widgets timers by default

---
 src/ce_messages.pas |  4 ++++
 src/ce_widget.pas   | 12 +++++++++---
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index cb16de1b..0e30fd12 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -256,6 +256,10 @@ begin
     widg.fastDisplay:= fFastDisplay;
     widg.fMsgColors := fMsgColors;
     widg.fAutoDemangle:=fAutoDemangle;
+    if fFastDisplay then
+      widg.updaterByLoopInterval:= 70
+    else
+      widg.updaterByLoopInterval:= 0;
   end
   else inherited;
 end;
diff --git a/src/ce_widget.pas b/src/ce_widget.pas
index 13e8610e..4d0c7638 100644
--- a/src/ce_widget.pas
+++ b/src/ce_widget.pas
@@ -144,7 +144,7 @@ begin
   fToolBarVisible := true;
   fIsDockable := true;
   fUpdaterAuto := TTimer.Create(self);
-  fUpdaterAuto.Interval := 70;
+  fUpdaterAuto.Interval := 0;
   fUpdaterAuto.OnTimer := @updaterAutoProc;
   fUpdaterDelay := TTimer.Create(self);
 
@@ -269,10 +269,16 @@ end;
 
 procedure TCEWidget.setLoopInt(value: Integer);
 begin
-  if value < 30 then value := 30;
-  if fLoopInter = value then exit;
+  if fLoopInter = value then
+    exit;
   fLoopInter := value;
   fUpdaterAuto.Interval := fLoopInter;
+  if value = 0 then
+  begin
+    fUpdaterAuto.Enabled:= false;
+    fLoopUpdateCount := 0;
+  end
+  else fUpdaterAuto.Enabled:= true;
 end;
 
 procedure TCEWidget.IncLoopUpdate;