Skip to content
Permalink
Browse files

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

…alog
  • Loading branch information
ansgarbecker committed Mar 22, 2020
1 parent 83108d2 commit 20d17588d61664e75831cecf682b3dc0a1193944
Showing with 1 addition and 0 deletions.
  1. +1 −0 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;

0 comments on commit 20d1758

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