anchor.diff:  
   initialization
     LexersAsked:= TFPList.Create;
  +  EControlOptions.OnLexerApplyTheme:= @DoApplyLexerStylesMap;
   
   finalization
     if Assigned(LexersAsked) then
  
positive.code:   anNotCorrect:= an;
    if an=nil then exit;
    if an.Formats.Count=0 then exit;
    if not UiOps.LexerThemes then exit;
  
    if LexersAsked.IndexOf(an)>=0 then exit;
  
negative.code:         Break
        end;
      end;
  
      an.AppliedSyntaxTheme:= UiOps.ThemeSyntax;
    end;
  end;
  
  