anchor.diff:  
   procedure TATTabs.SetTabAngle(AValue: Integer);
   begin
  -  {$ifdef darwin}
  -  //macOS paints angled tabs badly
  -  exit;
  -  {$endif}
  -
     if FTabAngle=AValue then Exit;
     FTabAngle:= AValue;
   end;
  
positive.code:     R:= GetTabRect(i);
      R.Left:= IfThen(i<=FTabIndex, R.Left, R.Right);
      R.Left:= R.Left - FTabIndentDropI div 2;
      R.Right:= R.Left + FTabIndentDropI - FTabIndentDropI div 2 + 1;
      C.Brush.Color:= FColorDrop;
      C.FillRect(R);
    end;
  
negative.code:   FColorArrowOver:= $E0E0E0;
  
    FTabBottom:= false;
    FTabAngle:= 4;
    FTabAngleMaxTabs:= 10;
    FTabHeight:= 24;
    FTabWidthMin:= 20;
  