anchor.diff:    RL, RR: TRect;
   begin
     if FOptPosition in [atpLeft, atpRight] then
  -    if FOptButtonLayout<>'' then
  +    if not GetButtonsEmpty then
       begin
         RL:= GetRectOfButtonIndex(0, true);
         RR:= GetRectOfButtonIndex(0, false);
  
positive.code:   TabIndex:= FTabIndexLoaded;
  end;
  
  function TATTabs.GetInitialVerticalIndent: integer;
  begin
    if FOptButtonLayout='' then
      Result:= FOptSpaceInitial
    else
      Result:= FOptTabHeight;
  
negative.code:     procedure MoveTab(AFrom, ATo: integer; AActivateThen: boolean);
      procedure DoScrollLeft;
      procedure DoScrollRight;
      procedure DoScrollAnimation(APosTo: integer);
  
    protected
      procedure Paint; override;
  