diff options
Diffstat (limited to 'UCoreWorkers.pas')
| -rw-r--r-- | UCoreWorkers.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/UCoreWorkers.pas b/UCoreWorkers.pas index 218c43a..8ded910 100644 --- a/UCoreWorkers.pas +++ b/UCoreWorkers.pas @@ -1395,9 +1395,9 @@ begin if MaxSize < 2 then ParamFloat1 := 1 else ParamFloat1 := 100 / (MaxSize - 1); if List.Count > 0 then begin StartPassed := True; - if (SrcEngine is TVFSEngine) and (SrcEngine as TVFSEngine).ArchiveMode then + if SrcEngine is TVFSEngine then StartPassed := StartPassed and (SrcEngine as TVFSEngine).StartCopyOperation(SenderThread, @CopyFilesWorker_ErrorFunc, @vfs_ask_question_callback, @vfs_ask_password_callback, @vfs_progress_callback, SenderThread); - if (DestEngine is TVFSEngine) and (DestEngine as TVFSEngine).ArchiveMode then + if DestEngine is TVFSEngine then StartPassed := StartPassed and (DestEngine as TVFSEngine).StartCopyOperation(SenderThread, @CopyFilesWorker_ErrorFunc, @vfs_ask_question_callback, @vfs_ask_password_callback, @vfs_progress_callback, SenderThread); if StartPassed then @@ -1441,9 +1441,9 @@ begin end; // We need to ensure these to be called in case of error - if (SrcEngine is TVFSEngine) and (SrcEngine as TVFSEngine).ArchiveMode then + if SrcEngine is TVFSEngine then (SrcEngine as TVFSEngine).StopCopyOperation(SenderThread, @CopyFilesWorker_ErrorFunc); - if (DestEngine is TVFSEngine) and (DestEngine as TVFSEngine).ArchiveMode then + if DestEngine is TVFSEngine then (DestEngine as TVFSEngine).StopCopyOperation(SenderThread, @CopyFilesWorker_ErrorFunc); end; |