paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 21:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: scan for fpc sources: skip some folders

Browse Source
This commit is contained in:
mattias 2023-06-30 11:58:56 +02:00
parent d8ba9af90d
commit cf46a083fd
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/initialsetupdlgs.pas
View File

@ -297,6 +297,24 @@ begin
if Terminated then Break; if Terminated then Break;
if (PathInfo.Name='') or (PathInfo.Name[1]='.') if (PathInfo.Name='') or (PathInfo.Name[1]='.')
or ((PathInfo.Attr and faDirectory) = 0) then Continue; or ((PathInfo.Attr and faDirectory) = 0) then Continue;
case lowercase(PathInfo.Name) of
'pictures',
'music',
'photos',
'movies',
'videos',
'applications',
'calendar',
'calendars',
'mail',
'messages',
'contacts',
'cache',
'caches',
'trash',
'containers',
'tmp': continue;
end;
{$IFDEF VerboseFPCSrcScanThead} {$IFDEF VerboseFPCSrcScanThead}
fPath := APath; fPath := APath;
fFileInfo := PathInfo; fFileInfo := PathInfo;