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: Warning header to long name alert message

Browse source 
UPD: Display long name alert message under Windows only (useless in other systems)

(cherry picked from commit 1697f71867)
This commit is contained in:
Alexander Koblov 2026-01-26 20:48:10 +03:00
commit c3485d21ba
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -90,7 +90,9 @@ type
FAutoRenameItSelf: Boolean;
FCorrectSymLinks: Boolean;
FCopyAttributesOptions: TCopyAttributesOptions;
{$IF DEFINED(MSWINDOWS)}
FMaxPathOption: TFileSourceOperationUIResponse;
{$ENDIF}
FCopyOnWrite: TFileSourceOperationOptionGeneral;
FDeleteFileOption: TFileSourceOperationUIResponse;
FFileExistsOption: TFileSourceOperationOptionFileExists;
@ -188,6 +190,9 @@ uses
{$ENDIF}
{$IFDEF DARWIN}
, DCDarwin
{$ENDIF}
{$IFDEF MSWINDOWS}
, LCLStrConsts
{$ENDIF}
;
@ -1203,14 +1208,14 @@ begin
end;
end;
end;
{$IF DEFINED(MSWINDOWS)}
// Check MAX_PATH
if gLongNameAlert and (UTF8Length(TargetName) > MAX_PATH - 1) then
begin
if FMaxPathOption <> fsourInvalid then
AskResult := FMaxPathOption
else begin
AskResult := AskQuestion(Format(rsMsgFilePathOverMaxPath,
AskResult := AskQuestion(rsMtWarning + LineEnding + LineEnding + 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;
@ -1230,7 +1235,7 @@ begin
fsourIgnoreAll: FMaxPathOption := fsourIgnore;
end;
end;
{$ENDIF}
if aFile.IsLink then
ProcessedOk := ProcessLink(CurrentSubNode, TargetName)
else if aFile.IsDirectory then