anchor.diff:  
   procedure TATTabs.DragOver(Source: TObject; X, Y: integer; State: TDragState;
     var Accept: Boolean);
  +var
  +  IsX: Boolean;  
   begin
     if Source is TATTabs then
  +  begin
       Accept:=
         FOptMouseDragEnabled and
  -      FOptMouseDragOutEnabled
  +      FOptMouseDragOutEnabled;
  +
  +    // Delphi 7 don't call MouseMove during dragging
  +    {$ifndef fpc}
  +    if Accept then
  +    begin
  +      FTabIndexDrop:= GetTabAt(X, Y, IsX);
  +      Invalidate;
  +    end;
  +    {$endif}
  +  end    
     else
       inherited;
   end;
  
positive.code:     procedure DoTabDrop;
      procedure DoTabDropToOtherControl(ATarget: TControl; const APnt: TPoint);
      function GetTabTick(AIndex: integer): Int64;
  
    public
      constructor Create(AOnwer: TComponent); override;
  
negative.code:   _InitOptMouseMiddleClickClose = true;
    _InitOptMouseDoubleClickClose = true;
    _InitOptMouseDoubleClickPlus = false;
    _InitOptMouseDragEnabled = true;
    _InitOptMouseDragOutEnabled = true;
  
  type
  