anchor.diff:      begin
         DoPaintTabTo(C, ARect,
           FTabShowPlusText,
  -        IfThen((FTabIndexOver=cAtTabPlus) and not FMouseDrag, FColorTabOver, FColorTabPassive),
  +        IfThen((FTabIndexOver=cAtTabPlus) and not DragManager.IsDragging, FColorTabOver, FColorTabPassive),
           FColorBorderPassive,
           FColorBorderActive,
           clNone,
  
positive.code: procedure TATTabs.DragDrop(Source: TObject; X, Y: Integer);
  begin
    if not (Source is TATTabs) then exit;
    if (Source=Self) then exit; //internal DnD not allowed here
    (Source as TATTabs).DoTabDropToOtherControl(Self, Point(X, Y));
  end;
  
  end.
  
  
negative.code:   FMouseDown:= false;
    FMouseDownPnt:= Point(0, 0);
    FMouseDownDbl:= false;
  
    FColorBg:= clBlack;
    FColorDrop:= $6060E0;
  