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: Crash when file properties are not available.

Browse source
This commit is contained in:
cobines 2010-04-22 14:35:11 +00:00
commit 345dce0566
1 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/ucolumns.pas
View file

@ -976,15 +976,20 @@ begin
fsfSize:
begin
if (AFile.IsDirectory or AFile.IsLinkToDirectory) and
(AFile.Size = 0)
((not (fpSize in AFile.SupportedProperties)) or (AFile.Size = 0))
then
Result := '<DIR>'
else if fpSize in AFile.SupportedProperties then
Result := AFile.Properties[fpSize].Format(DefaultFilePropertyFormatter)
else
Result := AFile.Properties[fpSize].Format(DefaultFilePropertyFormatter);
Result := '';
end;
fsfAttr:
Result := AFile.Properties[fpAttributes].Format(DefaultFilePropertyFormatter);
if fpAttributes in AFile.SupportedProperties then
Result := AFile.Properties[fpAttributes].Format(DefaultFilePropertyFormatter)
else
Result := '';
fsfPath:
Result := AFile.Path;
@ -1002,13 +1007,22 @@ begin
Result := '';
fsfModificationTime:
Result := AFile.Properties[fpModificationTime].Format(DefaultFilePropertyFormatter);
if fpModificationTime in AFile.SupportedProperties then
Result := AFile.Properties[fpModificationTime].Format(DefaultFilePropertyFormatter)
else
Result := '';
fsfCreationTime:
Result := AFile.Properties[fpCreationTime].Format(DefaultFilePropertyFormatter);
if fpCreationTime in AFile.SupportedProperties then
Result := AFile.Properties[fpCreationTime].Format(DefaultFilePropertyFormatter)
else
Result := '';
fsfLastAccessTime:
Result := AFile.Properties[fpLastAccessTime].Format(DefaultFilePropertyFormatter);
if fpLastAccessTime in AFile.SupportedProperties then
Result := AFile.Properties[fpLastAccessTime].Format(DefaultFilePropertyFormatter)
else
Result := '';
fsfLinkTo:
if fpLink in AFile.SupportedProperties then