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: Bug [0001695] The dialog doesn't have Abort option: File ... is marked as read-only/hiden/system. Delete it?

Browse source
This commit is contained in:
Alexander Koblov 2017-02-12 09:15:00 +00:00
commit 62cd2c0142
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/filesources/filesystem/ufilesystemdeleteoperation.pas
View file

@ -171,8 +171,8 @@ begin
case FDeleteReadOnly of
fsoogNone:
case AskQuestion(Format(rsMsgFileReadOnly, [FileName]), '',
[fsourYes, fsourAll, fsourSkip, fsourSkipAll],
fsourYes, fsourSkip) of
[fsourYes, fsourSkip, fsourAbort, fsourAll, fsourSkipAll],
fsourYes, fsourAbort) of
fsourAll:
FDeleteReadOnly := fsoogYes;
fsourSkip:
@ -182,6 +182,8 @@ begin
FDeleteReadOnly := fsoogNo;
Exit;
end;
fsourAbort:
RaiseAbortOperation;
end;
fsoogNo:
@ -216,7 +218,7 @@ begin
fsoogNone:
case AskQuestion(Format(rsMsgDelToTrashForce, [FileName]), '',
[fsourYes, fsourAll, fsourSkip, fsourSkipAll, fsourAbort],
fsourYes, fsourSkip) of
fsourYes, fsourAbort) of
fsourYes:
RemoveDirectly:= fsoogYes;
fsourAll:
@ -295,7 +297,7 @@ begin
begin
case AskQuestion(sQuestion, '',
[fsourRetry, fsourSkip, fsourSkipAll, fsourAbort],
fsourRetry, fsourSkip) of
fsourRetry, fsourAbort) of
fsourRetry:
bRetry := True;
fsourSkipAll: