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: Show correct button caption for Resume

Browse source
This commit is contained in:
Alexander Koblov 2015-05-01 21:26:49 +00:00
commit 8cca7e08f7
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/filesources/wfxplugin/uwfxpluginutil.pas
View file

@ -51,7 +51,7 @@ type
function FileExists(aFile: TFile;
AbsoluteTargetFileName: String;
AllowAppend: Boolean): TFileSourceOperationOptionFileExists;
AllowResume: Boolean): TFileSourceOperationOptionFileExists;
public
constructor Create(FileSource: IFileSource;
@ -209,7 +209,7 @@ begin
Exit(FS_FILE_OK);
fsoofeOverwrite:
iFlags:= iFlags + FS_COPYFLAGS_OVERWRITE;
fsoofeAppend:
fsoofeResume:
iFlags:= iFlags + FS_COPYFLAGS_RESUME;
else
raise Exception.Create('Invalid file exists option');
@ -228,12 +228,12 @@ begin
end;
function TWfxPluginOperationHelper.FileExists(aFile: TFile;
AbsoluteTargetFileName: String; AllowAppend: Boolean
AbsoluteTargetFileName: String; AllowResume: Boolean
): TFileSourceOperationOptionFileExists;
const
Responses: array[0..4] of TFileSourceOperationUIResponse
= (fsourOverwrite, fsourSkip, fsourAppend, fsourOverwriteAll, fsourSkipAll);
ResponsesNoAppend: array[0..3] of TFileSourceOperationUIResponse
= (fsourOverwrite, fsourSkip, fsourResume, fsourOverwriteAll, fsourSkipAll);
ResponsesNoResume: array[0..3] of TFileSourceOperationUIResponse
= (fsourOverwrite, fsourSkip, fsourOverwriteAll, fsourSkipAll);
var
Message: String;
@ -242,9 +242,9 @@ begin
case FFileExistsOption of
fsoofeNone:
begin
case AllowAppend of
case AllowResume of
True : PossibleResponses := Responses;
False: PossibleResponses := ResponsesNoAppend;
False: PossibleResponses := ResponsesNoResume;
end;
if FMode <> wpohmCopyOut then
Message:= Format(rsMsgFileExistsRwrt, [AbsoluteTargetFileName])
@ -256,10 +256,10 @@ begin
Result := fsoofeOverwrite;
fsourSkip:
Result := fsoofeSkip;
fsourAppend:
fsourResume:
begin
//FFileExistsOption := fsoofeAppend; - for AppendAll
Result := fsoofeAppend;
// FFileExistsOption := fsoofeResume; - for ResumeAll
Result := fsoofeResume;
end;
fsourOverwriteAll:
begin