paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +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
begin
// 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);
SearchFiles.Free;
end;