anchor.diff:    MsgStatus(msgStatusEncChanged);
   end;
   
  -procedure TfmMain.MenuLexClick(Sender: TObject);
  +procedure TfmMain.MenuLexerClick(Sender: TObject);
   var
     an: TecSyntAnalyzer;
   begin
  
positive.code:   ch0:= '?';
    mi0:= nil;
  
    mi:= TMenuItem.create(self);
    mi.caption:= msgNoLexer;
    mi.OnClick:= @MenuLexClick;
    AMenu.Add(mi);
  
    sl:= tstringlist.create;
    try
      //make stringlist of all lexers
      for i:= 0 to AppManager.AnalyzerCount-1 do
  
negative.code:     procedure FrameOnFocus(Sender: TObject);
      function GetFrame(N: integer): TEditorFrame;
      procedure MenuEncNoReloadClick(Sender: TObject);
      procedure MenuLexerClick(Sender: TObject);
      procedure MenuMainClick(Sender: TObject);
      procedure MenuRecentsClick(Sender: TObject);
      procedure SetFrame(Frame: TEditorFrame);
  