Issue #946: fix overtaken filename after click cancel on file-open di…

…alog
HeidiSQL · Mar 22, 2020 · 20d1758 · 20d1758
1 parent 83108d2
commit 20d1758
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/source/connections.pas b/source/connections.pas
@@ -1276,6 +1276,7 @@ procedure Tconnform.FindAddDatabaseFilesClick(Sender: TObject);
   PickFile(editHost);
   if (Sender = menuAddDatabaseFiles)
     and (not PrevText.IsEmpty)
+    and (editHost.Text <> PrevText)
     and (editHost.Text <> '') then begin
     editHost.Text := PrevText + DELIM + editHost.Text;
   end;