mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: the issue introduced in a787a8f

Browse source
This commit is contained in:
rich2014 2026-06-25 09:36:33 +08:00
commit 89fcab4624
3 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fileviews/ufileview.pas
View file

@ -1105,6 +1105,7 @@ begin
end;
end;
ADisplayFile := TDisplayFile.Create(AFile);
ADisplayFile.DisplayName:= FileSource.GetDisplayFileName(AFile);
FHashedFiles.Add(ADisplayFile, nil);
FHashedNames.Add(AFileKey, ADisplayFile);
InsertFile(ADisplayFile, FAllDisplayFiles, NewFilesPosition);

3
src/fileviews/ufileviewworker.pas
View file

@ -825,9 +825,8 @@ begin
else
begin
AFile := TDisplayFile.Create(aFileSourceFiles[i]);
AFile.DisplayName:= fs.GetDisplayFileName(aFileSourceFiles[i]);
AFile.TextColor:= gColorExt.GetColorBy(AFile.FSFile);
if HaveIcons then
begin
AFile.IconID := PixMapManager.GetIconByFile(fs,

6
src/udisplayfile.pas
View file

@ -144,7 +144,7 @@ end;
procedure TDisplayFile.SetDisplayName(const name: String);
begin
if name = EmptyStr then begin
if (name=EmptyStr) and Assigned(FSFile) then begin
FDisplayName:= FSFile.Name;
FDisplayNameNoExt:= FSFile.NameNoExt;
FDisplayExt:= FSFile.Extension;
@ -207,10 +207,8 @@ begin
end;
if Assigned(AFile.FFSFile) then
begin
AFile.FDisplayStrings.AddStrings(FDisplayStrings);
AFile.DisplayName:= FDisplayName;
end;
AFile.DisplayName:= FDisplayName;
end;
end;