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

Lazarus chm search to send to lhelp now doesn't search paths recursively

Browse Source 
git-svn-id: trunk@47987 -
This commit is contained in:
andrew 2015-02-25 02:01:44 +00:00
parent 3cf8301564
commit e62738c753
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/chmhelp/packages/idehelp/lazchmhelp.pas
View File

@ -207,7 +207,7 @@ begin
for i := 0 to SearchPaths.Count-1 do for i := 0 to SearchPaths.Count-1 do
begin begin
// Note: FindAllFiles has a SearchPath parameter that is a *single* directory, // Note: FindAllFiles has a SearchPath parameter that is a *single* directory,
SearchFiles := FindAllFiles(SearchPaths[i], '*.chm;*.CHM;*.Chm'); SearchFiles := FindAllFiles(SearchPaths[i], '*.chm;*.CHM;*.Chm', False);
CHMFiles.AddStrings(SearchFiles); CHMFiles.AddStrings(SearchFiles);
SearchFiles.Free; SearchFiles.Free;
end; end;