anchor.diff:    _InitOptMouseMiddleClickClose = true;
     _InitOptMouseDoubleClickClose = true;
     _InitOptMouseDoubleClickPlus = false;
  -  _InitOptMouseDragEnabled = {$ifdef fpc} true {$else} false {$endif};
  +  _InitOptMouseDragEnabled = true;
     _InitOptMouseDragOutEnabled = true;
   
   type
  
positive.code: 
  procedure TATTabs.DragOver(Source: TObject; X, Y: integer; State: TDragState;
    var Accept: Boolean);
  begin
    if Source is TATTabs then
      Accept:=
        FOptMouseDragEnabled and
        FOptMouseDragOutEnabled
    else
      inherited;
  end;
  
negative.code:     procedure DoTabDrop;
      procedure DoTabDropToOtherControl(ATarget: TControl; const APnt: TPoint);
      function GetTabTick(AIndex: integer): Int64;
      function _IsDrag: boolean;
  
    public
      constructor Create(AOnwer: TComponent); override;
  