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: Warnings

Browse source
This commit is contained in:
Alexander Koblov 2018-11-12 18:57:12 +00:00
commit 2da88c15bb
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ufileproperty.pas
View file

@ -809,8 +809,8 @@ end;
function TNtfsFileAttributesProperty.IsSysFile: boolean;
begin
Result := ((FAttributes and faSysFile) <> 0) or
((FAttributes and faHidden) <> 0);
Result := ((FAttributes and FILE_ATTRIBUTE_SYSTEM) <> 0) or
((FAttributes and FILE_ATTRIBUTE_HIDDEN) <> 0);
end;
function TNtfsFileAttributesProperty.IsLink: Boolean;
@ -820,12 +820,12 @@ end;
function TNtfsFileAttributesProperty.IsReadOnly: Boolean;
begin
Result := (FAttributes and faReadOnly) <> 0;
Result := (FAttributes and FILE_ATTRIBUTE_READONLY) <> 0;
end;
function TNtfsFileAttributesProperty.IsHidden: Boolean;
begin
Result := (FAttributes and faHidden) <> 0;
Result := (FAttributes and FILE_ATTRIBUTE_HIDDEN) <> 0;
end;
class function TNtfsFileAttributesProperty.GetDescription: String;