anchor.diff:      procedure FrameOnFocus(Sender: TObject);
       function GetFrame(N: integer): TEditorFrame;
       procedure MenuEncNoReloadClick(Sender: TObject);
  -    procedure MenuLexClick(Sender: TObject);
  +    procedure MenuLexerClick(Sender: TObject);
       procedure MenuMainClick(Sender: TObject);
       procedure MenuRecentsClick(Sender: TObject);
       procedure SetFrame(Frame: TEditorFrame);
  
positive.code:       if not an.Internal then
          sl.AddObject(an.LexerName, an);
      end;
      sl.sort;
  
      //put stringlist to menu
      if not UiOps.LexerMenuGrouped then
      begin
        for i:= 0 to sl.count-1 do
        begin
          if sl[i]='' then Continue;
          mi:= TMenuItem.create(self);
          mi.caption:= sl[i];
          mi.tag:= ptrint(sl.Objects[i]);
          mi.OnClick:= @MenuLexClick;
          AMenu.Add(mi);
        end;
      end
      else
      //grouped view
      for i:= 0 to sl.count-1 do
      begin
        if sl[i]='' then Continue;
        ch:= UpCase(sl[i][1]);
  
negative.code:   ch0:= '?';
    mi0:= nil;
  
    mi:= TMenuItem.Create(self);
    mi.Caption:= msgNoLexer;
    mi.OnClick:= @MenuLexerClick;
    AMenu.Add(mi);
  
    sl:= TStringList.Create;
    try
      //make stringlist of all lexers
      for i:= 0 to AppManager.AnalyzerCount-1 do
  