mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Allowed user responses when directory exists in Copy/Move.

Browse source
This commit is contained in:
cobines 2009-08-28 11:08:32 +00:00
commit 20dd45edad
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/newdesign/ufilesystemutil.pas
View file

@ -1142,18 +1142,26 @@ const
= (fsourRewrite, fsourSkip, fsourRewriteAll, fsourSkipAll);
var
PossibleResponses: array of TFileSourceOperationUIResponse;
DefaultOkResponse: TFileSourceOperationUIResponse;
begin
case FDirExistsOption of
fsoodeNone:
begin
case AllowCopyInto of
True : PossibleResponses := Responses;
False: PossibleResponses := ResponsesNoCopyInto;
True :
begin
PossibleResponses := Responses;
DefaultOkResponse := fsourCopyInto;
end;
False:
begin
PossibleResponses := ResponsesNoCopyInto;
DefaultOkResponse := fsourRewrite;
end;
end;
case AskQuestion(Format(rsMsgFolderExistsRwrt, [AbsoluteTargetFileName]), '',
[fsourRewrite, fsourCopyInto, fsourSkip, fsourRewriteAll, fsourSkipAll],
fsourCopyInto, fsourSkip) of
PossibleResponses, DefaultOkResponse, fsourSkip) of
fsourRewrite:
Result := fsoodeDelete;
fsourCopyInto: