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:     FSplitPopup: TMyPopupMenu;
      FMode: TATGroupsMode;
      FOnChangeMode: TNotifyEvent;
      FOnTabPopup: TNotifyEvent;
      FOnTabFocus: TNotifyEvent;
      FOnTabClose: TATTabCloseEvent;
      FOnTabAdd: TNotifyEvent;
  
negative.code:   TATGroupsNums = 0..5;
  
  type
    TATGroupsPopupEvent = procedure(Sender: TObject; APages: TATPages; ATabIndex: integer) of object;
  
  type
    { TATGroups }
  
    TATGroups = class(TPanel)
  