ADD: Try to remove to trash for FileSource with links to local files

This commit is contained in:
Alexander Koblov 2014-01-05 09:59:58 +00:00
commit 10139206fd

View file

@ -1581,6 +1581,9 @@ begin
end;
end;
// Save parameter for later use
BoolValue := bRecycle;
if bRecycle then
bRecycle := FileSource.IsClass(TFileSystemFileSource) and
mbCheckTrash(CurrentPath);
@ -1593,7 +1596,6 @@ begin
bConfirmation := focDeleteToTrash in gFileOperationsConfirmations;
end;
// 12.05.2009
// Showing delete dialog: to trash or to /dev/null :)
If bRecycle then
begin
@ -1606,6 +1608,10 @@ begin
MsgDelFlDr := rsMsgDelFlDr;
end;
// Special case for fspLinksToLocalFiles
if (fspLinksToLocalFiles in FileSource.Properties) then
bRecycle := BoolValue;
// ------------------------------------------------------
theFilesToDelete := CloneSelectedOrActiveFiles; // free at Thread end by thread