anchor.diff:      procedure RestoreSplitPos;
       //
       property OnChangeMode: TNotifyEvent read FOnChangeMode write FOnChangeMode;
  -    property OnTabPopup: TNotifyEvent read FOnTabPopup write FOnTabPopup;
  +    property OnTabPopup: TATGroupsPopupEvent read FOnTabPopup write FOnTabPopup;
       property OnTabFocus: TNotifyEvent read FOnTabFocus write FOnTabFocus;
       property OnTabClose: TATTabCloseEvent read FOnTabClose write FOnTabClose;
       property OnTabAdd: TNotifyEvent read FOnTabAdd write FOnTabAdd;
  
positive.code:   FPopupTabIndex:= FPopupPages.Tabs.GetTabAt(PntC.X, PntC.Y, IsX);
  
    if Assigned(FOnTabPopup) then
      FOnTabPopup(Self);
    Handled:= true;
  end;
  
  
negative.code:     FSplitPopup: TMyPopupMenu;
      FMode: TATGroupsMode;
      FOnChangeMode: TNotifyEvent;
      FOnTabPopup: TATGroupsPopupEvent;
      FOnTabFocus: TNotifyEvent;
      FOnTabClose: TATTabCloseEvent;
      FOnTabAdd: TNotifyEvent;
  