From 5a8f370fce1fed87ee30c6f07767ba8dcc1eb07a Mon Sep 17 00:00:00 2001 From: bart <9132501-flyingsheep@users.noreply.gitlab.com> Date: Fri, 18 Oct 2019 16:53:17 +0000 Subject: [PATCH] LCL: suppress useless warnings in ShellCtrls unit. git-svn-id: trunk@62076 - --- lcl/shellctrls.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas index e78f52e290..a842940c83 100644 --- a/lcl/shellctrls.pas +++ b/lcl/shellctrls.pas @@ -905,7 +905,7 @@ begin //Yes, we want to remove the backslash,so don't use ChompPathDelim here TShellTreeNode(NewNode).FFileInfo.Name := ExcludeTrailingBackslash(pDrive); //On NT platforms drive-roots really have these attributes - TShellTreeNode(NewNode).FFileInfo.Attr := faDirectory + faSysFile + faHidden; + TShellTreeNode(NewNode).FFileInfo.Attr := faDirectory + faSysFile{%H-} + faHidden{%H-}; TShellTreeNode(NewNode).SetBasePath(''); NewNode.HasChildren := True; Inc(pDrive, 4);