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