ADD: Option to copy file backward without prompt (fixes doublecmd#2611)

Author: alexx2000

src/uglobs.pas

@@ -500,6 +500,7 @@   tDesiredDropTextFormat=record
   gDragAndDropAskFormatEachTime: Boolean;
   gDragAndDropTextAutoFilename: Boolean;
   gDragAndDropSaveUnicodeTextInUFT8: Boolean;
+  gAutoCopyBackward: Boolean;
   gNtfsHourTimeDelay: Boolean;
   gAutoExtractOpenMask: String;
   gFileOperationsProgressKind: TFileOperationsProgressKind;
@@ -1982,6 +1983,7 @@ procedure SetDefaultConfigGlobs;
   gDragAndDropAskFormatEachTime := False;
   gDragAndDropTextAutoFilename := False;
   gDragAndDropSaveUnicodeTextInUFT8 := True;
+  gAutoCopyBackward := True;
   gNtfsHourTimeDelay := False;
   gAutoExtractOpenMask := EmptyStr;
   gFileOperationsProgressKind := fopkSeparateWindow;
@@ -2948,6 +2950,7 @@ procedure LoadXmlConfig;
       gDragAndDropAskFormatEachTime := GetValue(Node,'DragAndDropAskFormatEachTime', gDragAndDropAskFormatEachTime);
       gDragAndDropTextAutoFilename := GetValue(Node, 'DragAndDropTextAutoFilename', gDragAndDropTextAutoFilename);
       gDragAndDropSaveUnicodeTextInUFT8 := GetValue(Node, 'DragAndDropSaveUnicodeTextInUFT8', gDragAndDropSaveUnicodeTextInUFT8);
+      gAutoCopyBackward := GetValue(Node, 'AutoCopyBackward', gAutoCopyBackward);
       gNtfsHourTimeDelay := GetValue(Node, 'NtfsHourTimeDelay', gNtfsHourTimeDelay);
       gAutoExtractOpenMask := GetValue(Node, 'AutoExtractOpenMask', gAutoExtractOpenMask);
       gSearchDefaultTemplate := GetValue(Node, 'SearchDefaultTemplate', gSearchDefaultTemplate);
@@ -3634,6 +3637,7 @@ procedure SaveXmlConfig;
     SetValue(Node, 'DragAndDropAskFormatEachTime', gDragAndDropAskFormatEachTime);
     SetValue(Node, 'DragAndDropTextAutoFilename', gDragAndDropTextAutoFilename);
     SetValue(Node, 'DragAndDropSaveUnicodeTextInUFT8', gDragAndDropSaveUnicodeTextInUFT8);
+    SetValue(Node, 'AutoCopyBackward', gAutoCopyBackward);
     SetValue(Node, 'NtfsHourTimeDelay', gNtfsHourTimeDelay);
     SetValue(Node, 'AutoExtractOpenMask', gAutoExtractOpenMask);
     SetValue(Node, 'SearchDefaultTemplate', gSearchDefaultTemplate);

src/ushowform.pas

@@ -503,7 +503,7 @@ procedure TEditorWaitData.Done;
     begin
       FileTime:= mbFileAge(Files[I].FullPath);
       if (FileTime = FileTimes[I]) or
-         (not msgYesNo(Format(rsMsgCopyBackward, [GetRelativeFileName(Files[I].FullPath)]) + LineEnding + LineEnding + GetFromPath)) then
+         (not (gAutoCopyBackward or msgYesNo(Format(rsMsgCopyBackward, [GetRelativeFileName(Files[I].FullPath)]) + LineEnding + LineEnding + GetFromPath))) then
       begin
         Files.Delete(I);
       end