FIX: copy / cut / paste in iCloudDriver

This commit is contained in:
rich2014 2025-03-02 18:28:45 +08:00
commit 6feaa94ad5

View file

@ -4415,7 +4415,7 @@ begin
end;
Operation := SourceFileSource.CreateMoveOperation(
Files, ActiveFrame.CurrentPath);
Files, ActiveFrame.CurrentRealPath);
end
else
begin
@ -4449,13 +4449,13 @@ begin
begin
Operation := SourceFileSource.CreateCopyOutOperation(
ActiveFrame.FileSource, Files,
ActiveFrame.CurrentPath);
ActiveFrame.CurrentRealPath);
end
else
begin
Operation := ActiveFrame.FileSource.CreateCopyInOperation(
SourceFileSource, Files,
ActiveFrame.CurrentPath);
ActiveFrame.CurrentRealPath);
end;
end;