anchor.diff:      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;
  
positive.code:     FScalePercents: integer;
      FSplitPopup: TMyPopupMenu;
      FMode: TATGroupsMode;
      FOnTabPopup: TNotifyEvent;
      FOnTabFocus: TNotifyEvent;
      FOnTabClose: TATTabCloseEvent;
  
negative.code:   finally
      DoControlUnlock(Self);
    end;
  
    if Assigned(FOnChangeMode) then
      FOnChangeMode(Self);
  end;
  
  procedure TATGroups.Split1Moved(Sender: TObject);
  