Fix active text editor re revised active text docs

delphidabbler · delphidabbler · commit 02e85186bdc8 · 2023-04-07T23:59:12.000+01:00
Modified code that converts from plain text to active text when user
switched from editing plain text to editing active text. The active text
document that is created from plain text is now wrapped in ekDocument
elements.
diff --git a/Src/FmSnippetsEditorDlg.FrActiveTextEditor.pas b/Src/FmSnippetsEditorDlg.FrActiveTextEditor.pas
@@ -222,6 +222,7 @@ function TSnippetsActiveTextEdFrame.PlainTextToActiveText(Text: string):
   if Text = '' then
     Exit;
   Paragraphs := TIStringList.Create(Text, EOL2, False, True);
+  Result.AddElem(TActiveTextFactory.CreateActionElem(ekDocument, fsOpen));
   for Paragraph in Paragraphs do
   begin
     Result.AddElem(TActiveTextFactory.CreateActionElem(ekPara, fsOpen));
@@ -230,6 +231,7 @@ function TSnippetsActiveTextEdFrame.PlainTextToActiveText(Text: string):
     );
     Result.AddElem(TActiveTextFactory.CreateActionElem(ekPara, fsClose));
   end;
+  Result.AddElem(TActiveTextFactory.CreateActionElem(ekDocument, fsClose));
 end;
 
 procedure TSnippetsActiveTextEdFrame.Preview;
