paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 18:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomShellTreeView.GetFilesInDir check hidden files under unix, bug

Browse Source 
git-svn-id: trunk@23166 -
This commit is contained in:
mattias 2009-12-17 15:08:21 +00:00
parent d877b0d6d9
commit d93c965185
1 changed files with 4 additions and 0 deletions

4
lcl/shellctrls.pas
View File

@ -357,6 +357,10 @@ begin
IsValidDirectory := (DirInfo.Name <> '.') and (DirInfo.Name <> '..');
IsHidden := (DirInfo.Attr and faHidden = faHidden);
{$IFDEF Unix}
if (DirInfo.Name<>'') and (DirInfo.Name[1]='.') then
IsHidden:=true;
{$ENDIF}
// First check if we show hidden files
if IsHidden then AddFile := (otHidden in AObjectTypes)