From bc42dc300cdba29a560c758045fe8b7b8b42b22f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 10 Feb 2019 03:37:28 +0100
Subject: [PATCH] fix upstram reg, messages of the message widget not auto
 scrolled back anymore

---
 src/u_widget.lfm | 1 +
 src/u_widget.pas | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/u_widget.lfm b/src/u_widget.lfm
index 9220c13c..ee92818c 100644
--- a/src/u_widget.lfm
+++ b/src/u_widget.lfm
@@ -9,6 +9,7 @@ object DexedWidget: TDexedWidget
   ClientWidth = 332
   ShowHint = True
   ShowInTaskBar = stNever
+  LCLVersion = '2.0.0.4'
   object Back: TPanel
     Left = 0
     Height = 121
diff --git a/src/u_widget.pas b/src/u_widget.pas
index e3ad7571..df014638 100644
--- a/src/u_widget.pas
+++ b/src/u_widget.pas
@@ -298,12 +298,12 @@ begin
     if fTimerUpdateKind = tukDelay then
     begin
       fUpdateTimer.Enabled := false;
-      fUpdateTimer.OnTimer := @updaterAutoProc;
       fUpdateTimer.Interval:= fDelayDur;
     end
     else begin
       fUpdateTimer.Enabled := true;
       fUpdateTimer.Interval:= fLoopInter;
+      fUpdateTimer.OnTimer := @updaterAutoProc;
     end;
   end;
 end;