Als HTML Speichern Bug

Danke

In der aktuellen Version von WPTools gibt es einen Bug. Beim Speichern nach HTML wird das <html> Tag nicht geschrieben.
Mit der Änderung in der Funktion TWPHTMLWriter.WriteHeader (WPIOHTML.pas) unten ist das Problem behoben.

if not OptOnlyBody then //V5.21.1
  begin
    {$IFDEF WP6}
    if FXHTMLMode then
    begin
      //  WriteString('<?xml version="1.0" encoding="ISO-8859-1"?>' + #13 + #10);
        WriteString('<!DOCTYPE html>'+ #13 + #10); // PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"' + #13 + #10);
       // WriteString('"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'+#13+#10);// '"[<!ENTITY nbsp " ">]>' + #13 +#10);
        WriteString('<html xmlns="http://www.w3.org/1999/xhtml">' + #13 +#10);
       // WriteString('<!DOCTYPE html>' + #13 + #10);
    end
    //Änderung OLIVER
    else
      Result := WriteString('<html>' + #13 + #10);
    {$ELSE}
    Result := WriteString('<html>' + #13 + #10);
    {$ENDIF}
  end;

Gruß
Oliver Schulz