anchor.diff:    Ed.OptMarginRight:= 2000;
     Ed.ModeReadOnly:= true;
   
  -  InitBottomPopup(Popup, Ed);
  -  Ed.PopupText:= Popup;
  +  InitPopupBottom(APopup, Ed);
  +  Ed.PopupText:= APopup;
   
     //support dlg_proc API, it needs PropsObject
     DoControl_InitPropsObject(Ed, Form, 'editor');
  
positive.code:   UpdateStatusbar;
  end;
  
  procedure TfmMain.InitBottomPopup(var AMenu: TPopupMenu; AEditor: TATSynEdit);
  var
    mi: TMenuItem;
  begin
  
negative.code: end;
  
  
  procedure TfmMain.InitBottomEditor(var Form: TFormDummy; var Ed: TATSynEdit; var APopup: TPopupMenu);
  begin
    Form:= TFormDummy.Create(Self);
    Form.ShowInTaskBar:= stNever;
  