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

ADD: Asks to copy backward

Browse source
This commit is contained in:
Alexander Koblov 2015-12-04 20:08:26 +00:00
commit 234138dfbd
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/ulng.pas
View file

@ -150,6 +150,7 @@ resourcestring
rsMsgUserDidNotSetExtension = '<NO EXT>';
rsMsgUserDidNotSetName = '<NO NAME>';
rsMsgProblemExecutingCommand = 'Problem executing command (%s)';
rsMsgCopyBackward = 'The file %s has changed. Do you want to copy it backward?';
rsMsgCouldNotCopyBackward = 'Could not copy backward - do you want to keep the changed file?';
//Hot Dir related

1
src/ushowform.pas
View file

@ -234,6 +234,7 @@ begin
// File was modified
if mbFileAge(FileName) <> FileTime then
begin
if not msgYesNo(Format(rsMsgCopyBackward, [ExtractFileName(FileName)])) then Exit;
if (fsoCopyIn in TargetFileSource.GetOperationsTypes) and
((TargetFileSource is TWcxArchiveFileSource) or (TargetFileSource is TWfxPluginFileSource)) then
begin