Add support for HTML 5 as save dialogue file type

Added support for listing HTML 5 as a file type option, and detecting
its selection in the custom save file dialogue boxes used when saving
units and annotated source code.

NOTE: this commit does not implement the correct rendering of HTML 5
files: at present selecting HTML 5 has the same effect as selecting
plain text.

Author: delphidabbler

Src/FrSourcePrefs.pas

@@ -121,7 +121,8 @@ implementation
 
 resourcestring
   // File type descriptions
-  sHTMLFileDesc = 'HTML';
+  sHTML5FileDesc = 'HTML 5';
+  sXHTMLFileDesc = 'XHTML';
   sRTFFileDesc = 'Rich text';
   sPascalFileDesc = 'Pascal';
   sTextFileDesc = 'Plain text';
@@ -130,7 +131,7 @@ implementation
 const
   // Maps source code file types to descriptions
   cFileDescs: array[TSourceFileType] of string = (
-    sTextFileDesc, sPascalFileDesc, sHTMLFileDesc, sRTFFileDesc
+    sTextFileDesc, sPascalFileDesc, sHTML5FileDesc, sXHTMLFileDesc, sRTFFileDesc
   );
 
 

Src/Hiliter.UFileHiliter.pas

@@ -116,7 +116,7 @@ class function TFileHiliter.IsHilitingSupported(
     @return True if file type supports highlighting, false if not.
   }
 begin
-  Result := FileType in [sfXHTML, sfRTF];
+  Result := FileType in [sfHTML5, sfXHTML, sfRTF];
 end;
 
 end.

Src/USaveSnippetMgr.pas

@@ -99,6 +99,7 @@ implementation
   sCategory = 'category';
   sSnippet = 'routine';
   // File filter strings
+  sHtml5ExtDesc = 'HTML 5 file';
   sXHtmExtDesc = 'XHTML file';
   sRtfExtDesc = 'Rich text file';
   sIncExtDesc = 'Pascal include file';
@@ -170,7 +171,7 @@ function TSaveSnippetMgr.GetFileTypeDesc(
   const FileType: TSourceFileType): string;
 const
   Descriptions: array[TSourceFileType] of string = (
-    sTxtExtDesc, sIncExtDesc, sXHtmExtDesc, sRtfExtDesc
+    sTxtExtDesc, sIncExtDesc, sHtml5ExtDesc, sXHtmExtDesc, sRtfExtDesc
   );
 begin
   Result := Descriptions[FileType];

Src/USaveSourceMgr.pas

@@ -325,7 +325,11 @@ procedure TSaveSourceMgr.PreviewHandler(Sender: TObject);
 const
   // Map of source file type to preview document types
   PreviewDocTypeMap: array[TSourceFileType] of TPreviewDocType = (
-    dtPlainText, dtPlainText, dtHTML, dtRTF
+    dtPlainText,  // sfText
+    dtPlainText,  // sfPascal
+    dtHTML,       // sfHTML5
+    dtHTML,       // sfXHTML
+    dtRTF         // sfRTF
   );
 var
   FileType: TSourceFileType;  // type of source file to preview

Src/USaveUnitMgr.pas

@@ -107,6 +107,7 @@ implementation
   // Dialog box title
   sSaveDlgTitle = 'Save Unit';
   // File filter strings
+  sHTML5Desc = 'HTML 5 file';
   sXHTMLDesc = 'XHTML file';
   sRTFDesc = 'Rich text file';
   sPascalDesc = 'Pascal unit';
@@ -241,7 +242,7 @@ function TSaveUnitMgr.GetDocTitle: string;
 function TSaveUnitMgr.GetFileTypeDesc(const FileType: TSourceFileType): string;
 const
   Descriptions: array[TSourceFileType] of string = (
-    sTextDesc, sPascalDesc, sXHTMLDesc, sRTFDesc
+    sTextDesc, sPascalDesc, sHTML5Desc, sXHTMLDesc, sRTFDesc
   );
 begin
   Result := Descriptions[FileType];

Src/USourceFileInfo.pas

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