Skip to content
Permalink
Browse files

Issue #677: select first available library if default or configured o…

…ne is not available.
  • Loading branch information...
ansgarbecker committed Jul 10, 2019
1 parent 4128926 commit 2930df7f24b4c33554b9f5db36c7d835ffff33ba
Showing with 3 additions and 0 deletions.
  1. +3 −0 source/connections.pas
@@ -867,6 +867,9 @@ procedure Tconnform.ListSessionsFocusChanged(Sender: TBaseVirtualTree;
ColorBoxBackgroundColor.Selected := Sess.SessionColor;
editDatabases.Text := Sess.AllDatabasesStr;
comboLibrary.ItemIndex := comboLibrary.Items.IndexOf(Sess.LibraryFile);
if (comboLibrary.ItemIndex = -1) and (comboLibrary.Items.Count > 0) then begin
comboLibrary.ItemIndex := 0;
end;
memoComment.Text := Sess.Comment;
editStartupScript.Text := Sess.StartupScriptFilename;
editSSHPlinkExe.Text := Sess.SSHPlinkExe;

0 comments on commit 2930df7

Please sign in to comment.
You can’t perform that action at this time.