anchor.diff:  end;
   
   function TATTabs.IsPaintNeeded(AElemType: TATTabElemType;
  -  AIndex: Integer; ACanvas: TCanvas; const ARect: TRect): boolean;
  +  AIndex: integer; ACanvas: TCanvas; const ARect: TRect): boolean;
   begin
     Result:= true;
     if Assigned(FOnTabDrawBefore) then
  
positive.code:     procedure GetRectArrowDown(out R: TRect);
      procedure GetRectArrowLeftRight(out RL, RR: TRect);
      function GetScrollPageSize: integer;
      function RealTabAngle: Integer;
      procedure SetTabAngle(AValue: Integer);
      procedure SetTabAngleMaxTabs(AValue: Integer);
      procedure SetTabIndex(AIndex: Integer);
      procedure GetTabCloseColor(AIndex: Integer; const ARect: TRect; var AColorXBg,
        AColorXBorder, AColorXMark: TColor);
      function IsIndexOk(AIndex: Integer): boolean;
      function IsShowX(AIndex: Integer): boolean;
      function IsPaintNeeded(AElemType: TATTabElemType;
        AIndex: Integer; ACanvas: TCanvas; const ARect: TRect): boolean;
      function DoPaintAfter(AElemType: TATTabElemType;
        AIndex: Integer; ACanvas: TCanvas; const ARect: TRect): boolean;
      procedure TabMenuClick(Sender: TObject);
      function GetTabWidth_Plus_Raw: Integer;
      procedure DoUpdateTabWidths;
      procedure DoTabDrop;
      procedure DoTabDropToOtherControl(ATarget: TControl; const APnt: TPoint);
  
negative.code: 
  procedure TATTabs.DoUpdateTabWidths;
  var
    Value, Count, NAngle: integer;
  begin
    Count:= TabCount;
    if Count=0 then Exit;
  