From f2bef2e9492f169a45923f4fa69024e60c34ee6d Mon Sep 17 00:00:00 2001
From: jr8ppg <jr8ppg@gmail.com>
Date: Tue, 1 Oct 2024 21:51:31 +0900
Subject: [PATCH] =?UTF-8?q?Changed:=20PacketCluster=E6=8E=A5=E7=B6=9A?=
 =?UTF-8?q?=E3=81=AE=E6=94=B9=E5=96=84=EF=BC=88=EF=BC=92=EF=BC=89=20#623?=
 =?UTF-8?q?=20#624=20#625?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 zlog/UComm.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/zlog/UComm.pas b/zlog/UComm.pas
index 6c7ec9fc..39d41a50 100644
--- a/zlog/UComm.pas
+++ b/zlog/UComm.pas
@@ -819,7 +819,10 @@ procedure TCommForm.TelnetSessionConnected(Sender: TTnCnx; Error: Word);
       end;
 
       FConnectTime := Now;
-      timerForceReconnect.Enabled := True;
+
+      if dmZLogGlobal.Settings.FClusterForceReconnectIntervalMin > 0 then begin
+         timerForceReconnect.Enabled := True;
+      end;
    except
       on E: Exception do begin
          AddConsole(E.Message);