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

chmhelp: fixed lazarus dir

Browse Source 
git-svn-id: trunk@30802 -
This commit is contained in:
mattias 2011-05-18 18:59:55 +00:00
parent 8c4dbe5aaa
commit 47ea4a4ac4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/chmhelp/packages/idehelp/chmlangref.pas
View File

@ -78,8 +78,9 @@ procedure TLangRefHelpDatabase.LoadKeywordList(Path: string);
begin
if Path = '' then
begin
Path := { TODO : FixSlash }('$(LazarusDir)/docs/html/');
Path := '$(LazarusDir)';
IDEMacros.SubstituteMacros(Path);
Path := AppendPathDelim(Path) + 'docs' + PathDelim + 'html';
end;
Path := AppendPathDelim(Path);
@ -122,6 +123,7 @@ begin
if SameText(KeyWord, 'for') or SameText(KeyWord, 'in') then
begin
i := FKeyWordsList.IndexOfName('forin');
if i < 0 then Exit;
KeywordNode := THelpNode.CreateURL(Self,KeyWord,'ref.chm://ref/' + FKeyWordsList.ValueFromIndex[i]);
KeywordNode.Title := 'Pascal keyword "for..in"';
FKeywordNodes.Add(KeywordNode);