浏览代码

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