anchor.diff:      procedure InitPopupTab;
       procedure InitPopupTabSize;
       procedure InitBottomEditor(var Form: TFormDummy; var Ed: TATSynEdit;
  -      var Popup: TPopupMenu);
  +      var APopup: TPopupMenu);
       procedure InitFloatGroup(var F: TForm; var G: TATGroups; ATag: integer;
         const ARect: TRect; AOnClose: TCloseEvent; AOnGroupEmpty: TNotifyEvent);
       procedure InitFloatGroups;
  
positive.code:   UpdateStatusbar;
  end;
  
  procedure TfmMain.InitBottomPopup(var AMenu: TPopupMenu; AEditor: TATSynEdit);
  var
    mi: TMenuItem;
  begin
  
negative.code:   Ed.OptMarginRight:= 2000;
    Ed.ModeReadOnly:= true;
  
    InitPopupBottom(APopup, Ed);
    Ed.PopupText:= APopup;
  
    //support dlg_proc API, it needs PropsObject
    DoControl_InitPropsObject(Ed, Form, 'editor');
  