FIX: TransferLeft and Right commands do not work with folder symbolic links (fixes #2308)

This commit is contained in:
Alexander Koblov 2025-05-25 13:11:45 +03:00
commit 5fc4cb2e0c

View file

@ -864,7 +864,7 @@ begin
if (fspLinksToLocalFiles in SourcePage.FileView.FileSource.GetProperties) and
(SourcePage.FileView.FileSource.GetLocalName(aFile)) then
begin
if aFile.IsDirectory then
if aFile.IsDirectory or aFile.IsLinkToDirectory then
ChooseFileSource(TargetPage.FileView, aFile.FullPath)
else if not ChooseFileSource(TargetPage.FileView, TargetPage.FileView.FileSource, aFile) then
begin
@ -872,7 +872,7 @@ begin
TargetPage.FileView.SetActiveFile(aFile.Name);
end;
end
else if aFile.IsDirectory then
else if aFile.IsDirectory or aFile.IsLinkToDirectory then
begin
if aFile.Name = '..' then
begin