anchor.diff:      FTabColor: TColor;
       FTabModified: boolean;
       FTabSpecial: boolean;
  +    FTabSpecialWidth: integer;
  +    FTabSpecialHeight: integer;
       FTabRect: TRect;
       FTabImageIndex: integer;
       FTabPopupMenu: TPopupMenu;
  
positive.code:     procedure DoScrollLeft;
      procedure DoScrollRight;
      procedure DoScrollAnimation(APosTo: integer);
  
    protected
      procedure Paint; override;
  
negative.code:   Invalidate;
  end;
  
  procedure TATTabs.SetScrollPos(AValue: integer);
  begin
    AValue:= Max(0, Min(GetMaxScrollPos, AValue));
    if FScrollPos=AValue then exit;
    FScrollPos:= AValue;
    Invalidate;
  end;
  
  end.
  
  