anchor.diff:    end;
   end;
   
  -
  -procedure TEditorFrame.SetLexerName(const AValue: string);
  -begin
  -  SetLexerName_Ex(Ed1, AValue);
  -end;
   
   procedure TEditorFrame.SetLexerName_Ex(Ed: TATSynEdit; const AValue: string);
   var
  
positive.code:     Result:= nil;
  end;
  
  function TEditorFrame.GetLexerName: string;
  begin
    Result:= GetLexerName_Ex(Ed1);
  end;
  
  function TEditorFrame.GetLexerName_Ex(Ed: TATSynEdit): string;
  var
    CurAdapter: TATAdapterHilite;
  
negative.code:     procedure SetFileName(Ed: TATSynEdit; const AFileName: string);
  
      property Lexer: TecSyntAnalyzer read GetLexer write SetLexer;
      function LexerNameAtPos(Ed: TATSynEdit; APos: TPoint): string;
      function GetLexerName_Ex(Ed: TATSynEdit): string;
      procedure SetLexer_Ex(Ed: TATSynEdit; an: TecSyntAnalyzer);
  