From 8f1ae4000d06a8c6435c46d9cab83b77c7510fc7 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 15 Nov 2023 21:43:05 +0100
Subject: [PATCH] Fix activated SSH tunnel for a network type which does not
 support that, after changing the network type from an explicit
 SSH-tunnel-type to a TCP/IP version.

---
 source/connections.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/connections.pas b/source/connections.pas
index c56f4194..bddb68ff 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -492,7 +492,7 @@ begin
     Sess.AllDatabasesStr := editDatabases.Text;
     Sess.Comment := memoComment.Text;
     Sess.StartupScriptFilename := editStartupScript.Text;
-    Sess.SSHActive := chkSSHActive.Checked;
+    Sess.SSHActive := chkSSHActive.Enabled and chkSSHActive.Checked;
     Sess.SSHExe := comboSSHExe.Text;
     Sess.SSHHost := editSSHhost.Text;
     Sess.SSHPort := MakeInt(editSSHport.Text);
@@ -715,7 +715,7 @@ begin
     Result.AllDatabasesStr := editDatabases.Text;
     Result.LibraryOrProvider := comboLibrary.Text;
     Result.Comment := memoComment.Text;
-    Result.SSHActive := chkSSHActive.Checked;
+    Result.SSHActive := chkSSHActive.Enabled and chkSSHActive.Checked;
     Result.SSHHost := editSSHHost.Text;
     Result.SSHPort := MakeInt(editSSHPort.Text);
     Result.SSHUser := editSSHuser.Text;