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:     FMouseDownDbl: boolean;
      FMouseDownButton: TMouseButton;
      FMouseDownShift: TShiftState;
      FMouseDrag: boolean;
  
      //colors
      FColorBg: TColor; //color of background (visible at top and between tabs)
  
negative.code:   AColorXBorder:= FColorCloseBg;
    AColorXMark:= FColorCloseX;
  
    if DragManager.IsDragging then Exit;
  
    if IsShowX(AIndex) then
      if AIndex=FTabIndexOver then
  