anchor.diff:    FPopupTabIndex:= FPopupPages.Tabs.GetTabAt(PntC.X, PntC.Y, IsX);
   
     if Assigned(FOnTabPopup) then
  -    FOnTabPopup(Self);
  +    FOnTabPopup(Self, FPopupPages, FPopupTabIndex);
     Handled:= true;
   end;
   
  
positive.code:   TATGroupsNums = 0..5;
  
  type
    { TATGroups }
  
    TATGroups = class(TPanel)
  
negative.code:     procedure RestoreSplitPos;
      //
      property OnChangeMode: TNotifyEvent read FOnChangeMode write FOnChangeMode;
      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;
  