浏览代码

FIX: Reraise EFileSourceOperationAborting

Alexander Koblov 4 年之前
父节点
当前提交
54d19de6ec
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      src/filesources/filesystem/ufilesystemutil.pas

+ 3 - 0
src/filesources/filesystem/ufilesystemutil.pas

@@ -1880,6 +1880,9 @@ begin
     except
     except
       on E: Exception do
       on E: Exception do
       begin
       begin
+        if E is EFileSourceOperationAborting then
+          raise;
+
         case AskQuestion(rsMsgVerify, E.Message,
         case AskQuestion(rsMsgVerify, E.Message,
                          [fsourSkip, fsourAbort],
                          [fsourSkip, fsourAbort],
                          fsourAbort, fsourSkip) of
                          fsourAbort, fsourSkip) of