anchor.diff:      FScalePercents: integer;
       FSplitPopup: TMyPopupMenu;
       FMode: TATGroupsMode;
  +    FOnChangeMode: TNotifyEvent;
       FOnTabPopup: TNotifyEvent;
       FOnTabFocus: TNotifyEvent;
       FOnTabClose: TATTabCloseEvent;
  
positive.code:   finally
      DoControlUnlock(Self);
    end;
  end;
  
  procedure TATGroups.Split1Moved(Sender: TObject);
  
negative.code:     procedure SaveSplitPos;
      procedure RestoreSplitPos;
      //
      property OnChangeMode: TNotifyEvent read FOnChangeMode write FOnChangeMode;
      property OnTabPopup: TNotifyEvent read FOnTabPopup write FOnTabPopup;
      property OnTabFocus: TNotifyEvent read FOnTabFocus write FOnTabFocus;
      property OnTabClose: TATTabCloseEvent read FOnTabClose write FOnTabClose;
  