anchor.diff:      //
       procedure MoveTab(AFromPages: TATPages; AFromIndex: Integer;
         AToPages: TATPages; AToIndex: Integer; AActivateTabAfter: boolean);
  -    procedure MoveTabsFromGroupToAnother(AGroupFrom, AGroupTo: integer);
  +    procedure MoveTabsFromGroupToAnother(APagesFrom, APagesTo: TATPages);
       procedure MovePopupTabToNext(ANext: boolean);
       procedure MoveCurrentTabToNext(ANext: boolean);
       procedure MoveCurrentTabToOpposite;
  
positive.code: 
    //loop over group indexes, which will hide after mode changed
    for i:= NCountAfter to NCountBefore-1 do
      MoveTabsFromGroupToAnother(i, NCountAfter-1);
  end;
  
  procedure TATGroups.SetMode(Value: TATGroupsMode);
  
negative.code:   {$endif}
  end;
  
  procedure TATGroups.MoveTabsFromGroupToAnother(APagesFrom, APagesTo: TATPages);
  var
    i: integer;
  begin
    for i:= 0 to APagesFrom.Tabs.TabCount-1 do
      MoveTab(APagesFrom, 0{first tab}, APagesTo, -1, false);
  end;
  
  procedure TATGroups.MoveTabsOnModeChanging(Value: TATGroupsMode);
  