makehtml devel

Author: shidel

utilities/makehtml/makehtml.lps

@@ -8,7 +8,7 @@
         <Filename Value="makehtml.lpr"/>
         <IsPartOfProject Value="True"/>
         <CursorPos X="40" Y="15"/>
-        <UsageCount Value="88"/>
+        <UsageCount Value="89"/>
         <Loaded Value="True"/>
       </Unit>
       <Unit>
@@ -41,8 +41,9 @@
         <UnitName Value="SrcData"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="82"/>
-        <CursorPos Y="112"/>
+        <TopLine Value="43"/>
+        <CursorPos Y="101"/>
+        <FoldState Value=" T3i90I013 PiNjc0s"/>
         <UsageCount Value="17"/>
         <Loaded Value="True"/>
       </Unit>

utilities/makehtml/srcdata.pas

@@ -44,6 +44,7 @@ implementation
 
 const
   SectionDivider = '--------';
+  SectionComment = SectionDivider +'!---';
 
 var
   ListType  : TListType;
@@ -94,9 +95,9 @@ procedure ProcessList(Filename : String);
     LogMessage(vbNormal, 'processing file: ' +ExtractFileName(Filename));
     Data:=NormalizeLineEndings(Data);
     Header:=PopSection(Data);
-    WriteLn(Header);
     if First then begin
       ListFiles[High(ListFiles)].Header:=Header;
+      WriteLn(Header);
       First:=False;
     end;
     While Length(Data) <> 0 do begin