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

* lazhelpintf: cosmetic/code layout

Browse Source 
git-svn-id: trunk@46686 -
This commit is contained in:
reiniero 2014-10-27 10:35:05 +00:00
parent 54e3e1bcf2
commit 2cea4b8d08
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/lazhelpintf.pas
View File

@ -1136,17 +1136,17 @@ begin
Result:=shrSuccess;
ErrMsg:='';
if csDesigning in ComponentState then exit;
if (ListOfPascalHelpContextList=nil)
or (ListOfPascalHelpContextList.Count=0) then exit;
if (ListOfPascalHelpContextList=nil) or
(ListOfPascalHelpContextList.Count=0) then exit;
// add the registered nodes
//debugln('THelpDatabase.GetNodesForPascalContexts A ID="',ID,'" ListOfPascalHelpContextList.Count=',dbgs(ListOfPascalHelpContextList.Count));
if FSearchItems<>nil then begin
// check every pascal context
// check every Pascal context
for j:=0 to ListOfPascalHelpContextList.Count-1 do begin
PascalContext:=TPascalHelpContextList(ListOfPascalHelpContextList[j]);
//debugln('THelpDatabase.GetNodesForPascalContexts A ID="',ID,'" PascalContext.Count=',dbgs(PascalContext.Count));
if (PascalContext.Count>0)
and (PascalContext.List[0].Descriptor=pihcFilename) then begin
if (PascalContext.Count>0) and
(PascalContext.List[0].Descriptor=pihcFilename) then begin
Filename:=PascalContext.List[0].Context;
// search file item
for i:=0 to FSearchItems.Count-1 do begin