FIX: Don't show second connection with same name and path

This commit is contained in:
Alexander Koblov 2015-12-16 18:54:50 +00:00
commit 82db2bcfb9

View file

@ -149,6 +149,7 @@ var
FileSourceRecord: PFileSourceRecord;
begin
ConnectionName:= GetConnectionName(Name, Path);
if WfxConnectionList.IndexOf(ConnectionName) >= 0 then Exit;
FileSourceRecord:= NewFileSourceRecord(FileSource, Name, Path);
WfxConnectionList.AddObject(ConnectionName, TObject(FileSourceRecord));
with frmMain do