opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Auto-set the first SSH executable from the dropdown when user activates SSH tunnel checkbox. See https://www.heidisql.com/forum.php?t=40399

Browse Source
This commit is contained in:
Ansgar Becker
2023-02-27 20:34:02 +01:00
parent 082574d340
commit bff590e26c
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/connections.pas
View File

@ -198,6 +198,7 @@ type
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
procedure actFilterExecute(Sender: TObject); procedure actFilterExecute(Sender: TObject);
procedure timerEditFilterDelayTimer(Sender: TObject); procedure timerEditFilterDelayTimer(Sender: TObject);
procedure chkSSHActiveClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FLoaded: Boolean; FLoaded: Boolean;
@ -1204,6 +1205,13 @@ begin
end; 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; procedure Tconnform.ColorBoxBackgroundColorGetColors(Sender: TCustomColorBox;
Items: TStrings); Items: TStrings);
var var