paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* IDE now uses generalized index procedure.

Browse Source 
git-svn-id: trunk@13845 -
This commit is contained in:
marco 2009-10-11 13:53:03 +00:00
parent 49aacb4a24
commit 19fcb226f7
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/wchmhwrap.pas
View File

@ -129,7 +129,9 @@ begin
debugmessageS({$i %file%},'TCHMWrapper: indexfilename:'+fchmr.indexfile,{$i %line%},'1',0,0);
{$endif}
m:=fchmr.getobject(fchmr.indexfile);
findex:=fchmr.GetIndexSitemap(false);
(* m:=fchmr.getobject(fchmr.indexfile);
try
if assigned(m) then
begin
@ -141,6 +143,7 @@ begin
finally
freeandnil(m);
end;
*)
{$ifdef wdebug}
debugmessageS({$i %file%},'TCHMWrapper: loadindex after final ',{$i %line%},'1',0,0);
{$endif}
@ -148,6 +151,12 @@ begin
tli:=TopicLinks^.AddItem(fchmr.defaultpage);
TLI:=EncodeHTMLCtx(ID,TLI+1);
IndexEntries^.Insert(NewIndexEntry( FormatAlias('Table of contents'),ID,TLI));
if findex= Nil Then
begin
floaded:=true;
exit(true);
end;
if assigned(findex.items) and (findex.items.count>0) Then
for i:=0 to findex.items.count-1 do
begin
item:=findex.items.item[i];
@ -289,7 +298,7 @@ begin
Afileid:=chmw.fileid;
alinkid:=chmw.fTopicLinks.additem(restlink);
result:=true;
end;
end;
end;
end
end;