Fix snippet info preview bug for ANSI encodings

When either the plain text or Markdown file types were selected in the
Save Snippet Information dialogue box and the ANSI encoding was also
selected, the snippet displayed when the output ws previewed could
differ from that written to file. This occured when the snippet
contained characters that couldn't be rendered correctly in ANSI: the
preview would show the correct snippet (rendered in Unicode) while the
snippet with incorrectly translated characters was written to file.

This bug was fixed so that the snippet previewed was also in ANSI
encoding, meaning that any encoding errors show up there exactly as they
will be written to file.

Fixes #164

Author: delphidabbler

Src/USaveInfoMgr.pas

@@ -231,14 +231,18 @@ function TSaveInfoMgr.GenerateHTML(const AUseHiliting: Boolean;
 function TSaveInfoMgr.GenerateMarkdown: TEncodedData;
 var
   Doc: TMarkdownSnippetDoc;
+  GeneratedData: TEncodedData;
 begin
   Assert(Supports(fView, ISnippetView),
     ClassName + '.GeneratePlainText: View is not a snippet view');
   Doc := TMarkdownSnippetDoc.Create(
     (fView as ISnippetView).Snippet.Kind <> skFreeform
   );
   try
-    Result := Doc.Generate((fView as ISnippetView).Snippet);
+    GeneratedData := Doc.Generate((fView as ISnippetView).Snippet);
+    Result := TEncodedData.Create(
+      GeneratedData.ToString, fSaveDlg.SelectedEncoding
+    );
   finally
     Doc.Free;
   end;
@@ -264,13 +268,17 @@ function TSaveInfoMgr.GeneratePlainText: TEncodedData;
 var
   Doc: TTextSnippetDoc;        // object that generates RTF document
   HiliteAttrs: IHiliteAttrs;  // syntax highlighter formatting attributes
+  GeneratedData: TEncodedData;
 begin
   Assert(Supports(fView, ISnippetView),
     ClassName + '.GeneratePlainText: View is not a snippet view');
   HiliteAttrs := THiliteAttrsFactory.CreateNulAttrs;
   Doc := TTextSnippetDoc.Create;
   try
-    Result := Doc.Generate((fView as ISnippetView).Snippet);
+    GeneratedData := Doc.Generate((fView as ISnippetView).Snippet);
+    Result := TEncodedData.Create(
+      GeneratedData.ToString, fSaveDlg.SelectedEncoding
+    );
   finally
     Doc.Free;
   end;