anchor.diff:      P.Y+FOptSpaceXSize);
   end;
   
  -function _IsDrag: boolean;
  -begin
  -  Result:= Mouse.IsDragging;
  +function TATTabs._IsDrag: boolean;
  +begin
  +  Result:= Dragging;
   end;
   
   procedure TATTabs.GetTabXProps(AIndex: integer; const ARect: TRect;
  
positive.code:     procedure DoTabDrop;
      procedure DoTabDropToOtherControl(ATarget: TControl; const APnt: TPoint);
      function GetTabTick(AIndex: integer): Int64;
  
    public
      constructor Create(AOnwer: TComponent); override;
  
negative.code: 
  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;
  
      // 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;
  