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