@@ -154,11 +154,16 @@ procedure CommentOrphans;
154154procedure SetHeader (Title : String; Part : integer = 0 ; Total : integer = 0 );
155155begin
156156 if LegacyMode then Title:=UpperCase(Title);
157- if Part + Total = 0 then
158- Header:=RightPad(Title, TitleWidth) + TAB +
159- RightPad(ReleaseVersion, 14 ) + TAB +
160- ' Last Change ' + LastChange
161- else
157+ if Part + Total = 0 then begin
158+ if LegacyMode then begin
159+ Header:=RightPad(Title, TitleWidth) + TAB +
160+ RightPad(ReleaseVersion, 14 ) + TAB +
161+ ' Last Change ' + LastChange;
162+ end else begin
163+ Header:=Title + SPACE4 + ReleaseVersion + SPACE4 +
164+ ' Last Change ' + LastChange;
165+ end ;
166+ end else
162167 Header:=Title + COMMA + SPACE + ' part ' + IntToStr(Part) + ' of ' +
163168 IntToStr(Total);
164169 if HeaderData <> ' ' then
@@ -904,7 +909,7 @@ procedure Build;
904909 if LegacyMode then
905910 LastChange:=Lowercase(FormatDateTime(' ddmmmYY' , BuildTime))
906911 else
907- LastChange:=Lowercase( FormatDateTime(' ddmmmYY hh:nn' , BuildTime) );
912+ LastChange:=FormatDateTime(' yyyy-mm-dd hh:nn"Z" mmm ddd ' , BuildTime);
908913 TitleWidth:=0 ;
909914 for I := 0 to High(DOSNAMES) do
910915 if Length(DOSNAMES[I].Name ) > TitleWidth then
0 commit comments