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: Set correct attributes for '..' item

Browse source
This commit is contained in:
Alexander Koblov 2013-11-24 10:06:22 +00:00
commit 39686ece36
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fileviews/ufileviewworker.pas
View file

@ -226,7 +226,7 @@ implementation
uses
{$IFDEF timeFileView} uDebug, {$ENDIF}
LCLProc, Graphics,
LCLProc, Graphics, DCFileAttributes,
uFileSourceOperationTypes, uOSUtils, DCStrUtils, uDCUtils, uExceptions,
uGlobs, uMasks, uPixMapManager, uFileSourceProperty,
uFileSourceCalcStatisticsOperation,
@ -466,7 +466,14 @@ begin
AFile := FFileSource.CreateFileObject(FCurrentPath);
AFile.Name := '..';
if fpAttributes in AFile.SupportedProperties then
AFile.Attributes := faFolder;
begin
if AFile.AttributesProperty is TNtfsFileAttributesProperty then
AFile.Attributes := FILE_ATTRIBUTE_DIRECTORY
else if AFile.AttributesProperty is TUnixFileAttributesProperty then
AFile.Attributes := S_IFDIR
else
AFile.Attributes := faFolder;
end;
FileSourceFiles.Insert(AFile, 0);
end;
end;