Rename TSourceFileType.sfHTML as sfXHTML

This was done to better decribe the file type.

Author: delphidabbler

Src/Hiliter.UFileHiliter.pas

@@ -99,7 +99,7 @@ function TFileHiliter.Hilite(const SourceCode, DocTitle: string): TEncodedData;
 begin
   case fFileType of
     sfRTF: HilitedDocCls := TRTFDocumentHiliter;
-    sfHTML: HilitedDocCls := TXHTMLDocumentHiliter;
+    sfXHTML: HilitedDocCls := TXHTMLDocumentHiliter;
     else HilitedDocCls := TNulDocumentHiliter;
   end;
   if fWantHiliting and IsHilitingSupported(fFileType) then
@@ -116,7 +116,7 @@ class function TFileHiliter.IsHilitingSupported(
     @return True if file type supports highlighting, false if not.
   }
 begin
-  Result := FileType in [sfHTML, sfRTF];
+  Result := FileType in [sfXHTML, sfRTF];
 end;
 
 end.

Src/USaveSourceMgr.pas

@@ -262,9 +262,9 @@ constructor TSaveSourceMgr.InternalCreate;
       TSourceFileEncoding.Create(etUTF8, sUTF8Encoding)
     ]
   );
-  fSourceFileInfo.FileTypeInfo[sfHTML] := TSourceFileTypeInfo.Create(
+  fSourceFileInfo.FileTypeInfo[sfXHTML] := TSourceFileTypeInfo.Create(
     '.html',
-    GetFileTypeDesc(sfHTML),
+    GetFileTypeDesc(sfXHTML),
     [
       TSourceFileEncoding.Create(etUTF8, sUTF8Encoding)
     ]

Src/USourceFileInfo.pas

@@ -28,7 +28,7 @@ interface
   TSourceFileType = (
     sfText,     // plain text files
     sfPascal,   // pascal files (either .pas for units or .inc for include files
-    sfHTML,     // HTML files
+    sfXHTML,    // XHTML files
     sfRTF       // rich text files
   );