Преглед изворни кода

ADD: SyncDirs - move files to trash if enabled

Alexander Koblov пре 4 година
родитељ
комит
6077b59828
1 измењених фајлова са 5 додато и 1 уклоњено
  1. 5 1
      src/fsyncdirsdlg.pas

+ 5 - 1
src/fsyncdirsdlg.pas

@@ -234,7 +234,7 @@ uses
   DCClassesUtf8, uFileSystemFileSource, uFileSourceOperationOptions, DCDateTimeUtils,
   DCClassesUtf8, uFileSystemFileSource, uFileSourceOperationOptions, DCDateTimeUtils,
   uDCUtils, uFileSourceUtil, uFileSourceOperationTypes, uShowForm, uAdministrator,
   uDCUtils, uFileSourceUtil, uFileSourceOperationTypes, uShowForm, uAdministrator,
   uOSUtils, uLng, uMasks, Math, uClipboard, IntegerList, fMaskInputDlg, uSearchTemplate,
   uOSUtils, uLng, uMasks, Math, uClipboard, IntegerList, fMaskInputDlg, uSearchTemplate,
-  StrUtils, uTypes;
+  StrUtils, uTypes, uFileSystemDeleteOperation;
 
 
 {$R *.lfm}
 {$R *.lfm}
 
 
@@ -1707,6 +1707,10 @@ begin
     MessageDlg(rsMsgErrNotSupported, mtError, [mbOK], 0);
     MessageDlg(rsMsgErrNotSupported, mtError, [mbOK], 0);
     Exit(False);
     Exit(False);
   end;
   end;
+  if (FOperation is TFileSystemDeleteOperation) then
+  begin
+    TFileSystemDeleteOperation(FOperation).Recycle:= gUseTrash;
+  end;
   FOperation.Elevate:= ElevateAction;
   FOperation.Elevate:= ElevateAction;
   FOperation.AddUserInterface(FFileSourceOperationMessageBoxesUI);
   FOperation.AddUserInterface(FFileSourceOperationMessageBoxesUI);
   try
   try