Change name of XHTML files in save dialogue boxes

Name is dialogue box drop down lists change from HTML to XHTML

Author: delphidabbler

Src/USaveSnippetMgr.pas

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

Src/USaveUnitMgr.pas

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