From bff590e26c14cc3d75277514929bc5eec2c62db8 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Mon, 27 Feb 2023 20:34:02 +0100
Subject: [PATCH] Auto-set the first SSH executable from the dropdown when user
 activates SSH tunnel checkbox. See https://www.heidisql.com/forum.php?t=40399

---
 source/connections.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/source/connections.pas b/source/connections.pas
index ca9d7e7d..dc502b3d 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -198,6 +198,7 @@ type
       CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
     procedure actFilterExecute(Sender: TObject);
     procedure timerEditFilterDelayTimer(Sender: TObject);
+    procedure chkSSHActiveClick(Sender: TObject);
   private
     { Private declarations }
     FLoaded: Boolean;
@@ -1204,6 +1205,13 @@ begin
 end;
 
 
+procedure Tconnform.chkSSHActiveClick(Sender: TObject);
+begin
+  if (comboSSHExe.Text = '') and (comboSSHExe.Items.Count > 0) then
+    comboSSHExe.ItemIndex := 0;
+  Modification(Sender);
+end;
+
 procedure Tconnform.ColorBoxBackgroundColorGetColors(Sender: TCustomColorBox;
   Items: TStrings);
 var