anchor.diff:      procedure DragDrop(Source: TObject; X, Y: integer); override;
   
       function GetTabRectWidth(APlusBtn: boolean): integer;
  -    function GetTabRect(AIndex: integer): TRect;
  -    function GetTabRect_Plus: TRect;
  +    function GetTabRect(AIndex: integer; AWithScroll: boolean= true): TRect;
  +    function GetTabRect_Plus(AWithScroll: boolean= true): TRect;
       function GetTabRect_X(const ARect: TRect): TRect;
       function GetTabAt(X, Y: integer; out APressedX: boolean): integer;
       function GetTabData(AIndex: integer): TATTabData;
  
positive.code:   if FOptButtonLayout=AValue then Exit;
    FOptButtonLayout:= AValue;
    ApplyButtonLayout;
  end;
  
  
  
negative.code: end;
  
  
  function TATTabs.GetTabRect(AIndex: integer; AWithScroll: boolean=true): TRect;
  var
    Data: TATTabData;
  begin
  