FIX: keep the handling of OperationOptionsUIClass consistent with CopyFiles() in MoveFiles

This commit is contained in:
rich2014 2026-06-08 16:34:12 +08:00
commit de9e30608c

View file

@ -3882,9 +3882,11 @@ function TfrmMain.MoveFiles(SourceFileSource, TargetFileSource: IFileSource;
QueueIdentifier: TOperationsManagerQueueIdentifier = FreeOperationsQueueId): Boolean;
var
sDstMaskTemp: String;
Operation: TFileSourceMoveOperation;
bMove: Boolean;
MoveDialog: TfrmCopyDlg = nil;
OperationClass: TFileSourceOperationClass;
Operation: TFileSourceMoveOperation;
OperationOptionsUIClass: TFileSourceOperationOptionsUIClass = nil;
params: TFileSourceConsultParams;
begin
@ -3926,9 +3928,13 @@ begin
if bShowDialog then
begin
OperationClass:= SourceFileSource.GetOperationClass(fsoMove);
if Assigned(OperationClass) then
OperationOptionsUIClass:= OperationClass.GetOptionsUIClass;
MoveDialog := TfrmCopyDlg.Create(
Self, cmdtMove, SourceFileSource, TargetFileSource,
SourceFileSource.GetOperationClass(fsoMove).GetOptionsUIClass);
OperationOptionsUIClass );
MoveDialog.edtDst.Text := params.targetPath;
MoveDialog.lblCopySrc.Caption := GetFileDlgStr(rsMsgRenSel, rsMsgRenFlDr, SourceFiles);