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

UPD: Overwrite dialog - rearrange buttons

Browse source
This commit is contained in:
Alexander Koblov 2023-02-18 15:29:17 +03:00
commit 17c85f1c51
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/filesources/filesystem/ufilesystemutil.pas
View file

@ -1654,14 +1654,16 @@ function TFileSystemOperationHelper.FileExists(aFile: TFile;
): TFileSourceOperationOptionFileExists;
const
Responses: array[0..13] of TFileSourceOperationUIResponse
= (fsourOverwrite, fsourSkip, fsourRenameSource, fsourOverwriteAll,
fsourSkipAll, fsourResume, fsourOverwriteOlder, fsourCancel,
fsouaCompare, fsourAppend, fsourOverwriteSmaller, fsourOverwriteLarger,
= (fsourOverwrite, fsourSkip, fsourRenameSource,
fsourOverwriteAll, fsourSkipAll, fsourResume,
fsourOverwriteOlder, fsourCancel, fsouaCompare,
fsourAppend, fsourOverwriteSmaller, fsourOverwriteLarger,
fsourAutoRenameSource, fsourAutoRenameTarget);
ResponsesNoAppend: array[0..11] of TFileSourceOperationUIResponse
= (fsourOverwrite, fsourSkip, fsourRenameSource, fsourOverwriteAll,
fsourSkipAll, fsourOverwriteSmaller, fsourOverwriteOlder, fsourCancel,
fsouaCompare, fsourOverwriteLarger, fsourAutoRenameSource, fsourAutoRenameTarget);
= (fsourOverwrite, fsourSkip, fsourRenameSource,
fsourOverwriteAll, fsourSkipAll, fsouaCompare,
fsourOverwriteOlder, fsourCancel, fsourOverwriteSmaller,
fsourOverwriteLarger, fsourAutoRenameSource, fsourAutoRenameTarget);
var
Answer: Boolean;
Message: String;