anchor.diff:    if Assigned(FInitialLexer) then
       exit(FInitialLexer.LexerName);
   
  -  CurAdapter:= Ed1.AdapterForHilite;
  +  CurAdapter:= Ed.AdapterForHilite;
     if CurAdapter=nil then exit;
   
     if CurAdapter is TATAdapterEControl then
     begin
  -    if Adapter=nil then exit;
  -    an:= Adapter.Lexer;
  +    an:= TATAdapterEControl(CurAdapter).Lexer;
       if Assigned(an) then
         Result:= an.LexerName;
     end
     else
     if CurAdapter is TATLiteLexer then
     begin
  -    Result:= (CurAdapter as TATLiteLexer).LexerName+msgLiteLexerSuffix;
  -  end;
  -end;
  +    Result:= TATLiteLexer(CurAdapter).LexerName+msgLiteLexerSuffix;
  +  end;
  +end;
  +
   
   procedure TEditorFrame.SetLexerName(const AValue: string);
  +begin
  +  SetLexerName_Ex(Ed1, AValue);
  +end;
  +
  +procedure TEditorFrame.SetLexerName2(const AValue: string);
  +begin
  +  SetLexerName_Ex(Ed2, AValue);
  +end;
  +
  +procedure TEditorFrame.SetLexerName_Ex(Ed: TATSynEdit; const AValue: string);
   var
     SName: string;
     anLite: TATLiteLexer;
  
positive.code: end;
  
  function TEditorFrame.GetLexerName: string;
  var
    CurAdapter: TATAdapterHilite;
    an: TecSyntAnalyzer;
  
negative.code:     property NotifEnabled: boolean read GetNotifEnabled write SetNotifEnabled;
      property NotifTime: integer read GetNotifTime write SetNotifTime;
      property Lexer: TecSyntAnalyzer read GetLexer write SetLexer;
      property Lexer2: TecSyntAnalyzer read GetLexer2 write SetLexer2;
      property LexerLite: TATLiteLexer read GetLexerLite write SetLexerLite;
      property LexerName: string read GetLexerName write SetLexerName;
      property LexerName2: string read GetLexerName2 write SetLexerName2;
      function LexerNameAtPos(APos: TPoint): string;
      property Locked: boolean read FLocked write SetLocked;
      property CommentString: string read GetCommentString;
  