Преглед изворни кода

* binary toc on by default

git-svn-id: trunk@13682 -
marco пре 16 година
родитељ
комит
0e2f080f07
1 измењених фајлова са 3 додато и 1 уклоњено
  1. 3 1
      utils/fpdoc/dw_htmlchm.inc

+ 3 - 1
utils/fpdoc/dw_htmlchm.inc

@@ -232,7 +232,8 @@ begin
       TOC.Items.Item[i].Children.Item[j].Children.Sort(TListSortCompare(@TOCSort));
     end;
   end;
-  
+
+  fchm.AppendBinaryTOCFromSiteMap(Toc);  
   TOC.SaveToStream(Stream);
   TOC.Free;
 
@@ -444,6 +445,7 @@ begin
   FChm.TempRawStream := FTempUncompressed;
   FChm.OnGetFileData := @RetrieveOtherFiles;
   FChm.OnLastFile := @LastFileAdded;
+  fchm.hasbinarytoc:=true;
   
   ProcessOptions;