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: Skip button

Browse source 
(cherry picked from commit e01d5186f7)
This commit is contained in:
Alexander Koblov 2024-02-27 20:32:16 +03:00
commit 03d9f4f164
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1135,6 +1135,7 @@ begin
AskResult := AskQuestion(Format(rsMsgFilePathOverMaxPath,
[UTF8Length(TargetName), MAX_PATH - 1, LineEnding + WrapTextSimple(TargetName, 100) + LineEnding]), '',
[fsourIgnore, fsourSkip, fsourAbort, fsourIgnoreAll, fsourSkipAll], fsourIgnore, fsourSkip);
if AskResult = fsourSkipAll then FMaxPathOption := fsourSkip;
end;
case AskResult of
fsourAbort: AbortOperation();
@ -1142,7 +1143,6 @@ begin
fsourSkipAll:
begin
Result := False;
FMaxPathOption := fsourSkip;
SkipStatistics(CurrentSubNode);
AppProcessMessages;
CheckOperationState;