paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:39:09 +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; Result:=shrSuccess;
ErrMsg:=''; ErrMsg:='';
if csDesigning in ComponentState then exit; if csDesigning in ComponentState then exit;
if (ListOfPascalHelpContextList=nil) if (ListOfPascalHelpContextList=nil) or
or (ListOfPascalHelpContextList.Count=0) then exit; (ListOfPascalHelpContextList.Count=0) then exit;
// add the registered nodes // add the registered nodes
//debugln('THelpDatabase.GetNodesForPascalContexts A ID="',ID,'" ListOfPascalHelpContextList.Count=',dbgs(ListOfPascalHelpContextList.Count)); //debugln('THelpDatabase.GetNodesForPascalContexts A ID="',ID,'" ListOfPascalHelpContextList.Count=',dbgs(ListOfPascalHelpContextList.Count));
if FSearchItems<>nil then begin if FSearchItems<>nil then begin
// check every pascal context // check every Pascal context
for j:=0 to ListOfPascalHelpContextList.Count-1 do begin for j:=0 to ListOfPascalHelpContextList.Count-1 do begin
PascalContext:=TPascalHelpContextList(ListOfPascalHelpContextList[j]); PascalContext:=TPascalHelpContextList(ListOfPascalHelpContextList[j]);
//debugln('THelpDatabase.GetNodesForPascalContexts A ID="',ID,'" PascalContext.Count=',dbgs(PascalContext.Count)); //debugln('THelpDatabase.GetNodesForPascalContexts A ID="',ID,'" PascalContext.Count=',dbgs(PascalContext.Count));
if (PascalContext.Count>0) if (PascalContext.Count>0) and
and (PascalContext.List[0].Descriptor=pihcFilename) then begin (PascalContext.List[0].Descriptor=pihcFilename) then begin
Filename:=PascalContext.List[0].Context; Filename:=PascalContext.List[0].Context;
// search file item // search file item
for i:=0 to FSearchItems.Count-1 do begin for i:=0 to FSearchItems.Count-1 do begin