anchor.diff:  unit proc_editor;
   
   {$mode objfpc}{$H+}
  +{$ModeSwitch advancedrecords}
   
   interface
   
  
positive.code: end;
  
  type
    TEditorHtmlTagsArray = array of record
      bClosing: boolean;
      sTagName: UnicodeString;
    end;
  
  procedure EditorFindHtmlTagsInText(const AText: UnicodeString;
    out ARes: TEditorHtmlTagsArray; AllowSingletonTags: boolean);
  const
    cRegexTags = '<(/?)([\w\-:]+).*?>';
  var
    obj: TRegExpr;
    sTag: UnicodeString;
    bClosing: boolean;
  begin
    SetLength(ARes, 0);
    obj:= TRegExpr.Create(cRegexTags);
    try
      obj.Compile;
  
negative.code:   ATSynEdit_Finder,
    ATSynEdit_Cmp_HTML,
    ATSynEdit_RegExpr,
    ATSynEdit_FGL,
    ATStrings,
    ATStringProc,
    ATStringProc_Separator,
  