anchor.diff:    ARect, FRectArrowDown, FRectArrowLeft, FRectArrowRight: TRect;
     AType: TATTabElemType;
     Data: TATTabData;
  -  i: Integer;
  +  i: integer;
   begin
     AType:= aeBackground;
     ARect:= ClientRect;
  
positive.code: 
  procedure TATTabs.DoUpdateTabWidths;
  var
    Value, Count, NAngle: Integer;
  begin
    Count:= TabCount;
    if Count=0 then Exit;
  
negative.code:   end;
  end;
  
  function TATTabs.RealTabAngle: integer;
  begin
    {$ifdef darwin}
    //macOS paints angled tab bad
  