anchor.diff:      procedure SetLexer(Ed: TATSynEdit; an: TecSyntAnalyzer);
       procedure SetLexerLite(Ed: TATSynEdit; an: TATLiteLexer);
       procedure SetLexerName(Ed: TATSynEdit; const AValue: string);
  -    procedure UpdateLexerCache;
  +    procedure UpdateLexerCache(Ed: TATSynEdit);
       procedure UpdateTabTooltip;
     protected
       procedure DoOnResize; override;
  
positive.code:     property SaveDialog: TSaveDialog read FSaveDialog write FSaveDialog;
      function GetTabPages: TATPages;
      function GetTabGroups: TATGroups;
      //file
      procedure DoFileClose;
      procedure DoFileOpen(const AFileName, AFileName2: string; AAllowLoadHistory,
  
negative.code:   end;
  end;
  
  procedure TEditorFrame.UpdateLexerCache(Ed: TATSynEdit);
  var
    Lex: TecSyntAnalyzer;
    SLexer: string;
  begin
    SLexer:= '';
    if Ed.AdapterForHilite is TATAdapterEControl then
    begin
      Lex:= TATAdapterEControl(Ed.AdapterForHilite).Lexer;
      if Assigned(Lex) then
        SLexer:= Lex.LexerName;
    end;
  
    if SLexer<>FLastLexer then
    begin
      FLastLexer:= SLexer;
  