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