Преглед на файлове

* 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;