From d7ad13f338b1c403741ad2104247db1c175b3303 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sun, 29 Nov 2009 23:30:02 +0100 Subject: Fix callback setting for non-archiving modules --- UCoreWorkers.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'UCoreWorkers.pas') 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; -- cgit v1.2.3