anchor.diff:  const
     cSmoothScale = 5;
   
  +procedure TATTabData.UpdateTabSet;
  +begin
  +  if Collection is TATTabListCollection then
  +    if TATTabListCollection(Collection).AOwner is TATTabs then
  +      TATTabListCollection(Collection).AOwner.Invalidate;
  +end;
  +
  +procedure TATTabData.SetTabImageIndex(const Value: TImageIndex);
  +begin
  +  FTabImageIndex := Value;
  +  UpdateTabSet;
  +end;
  +
  +procedure TATTabData.SetTabCaption(const Value: TATTabString);
  +begin
  +  FTabCaption := Value;
  +  UpdateTabSet;
  +end;
  +
  +procedure TATTabData.SetTabColor(const Value: TColor);
  +begin
  +  FTabColor := Value;
  +  UpdateTabSet;
  +end;
  +
  +procedure TATTabData.SetTabHideXButton(const Value: boolean);
  +begin
  +  FTabHideXButton := Value;
  +  UpdateTabSet;
  +end;
  +
  +procedure TATTabs.SetOptShowPlusTab(const Value: boolean);
  +begin
  +  FOptShowPlusTab := Value;
  +  Invalidate;
  +end;
  +
   function IsDoubleBufferedNeeded: boolean;
   begin
     {$ifdef FPC}
  
positive.code:     property DragMode;
      property Enabled;
      property Font;
      property ParentFont;
      property ParentShowHint;
      property PopupMenu;
      property ShowHint;
      property Visible;
      property Tabs: TCollection read FTabList write FTabList;
  
      property OnClick;
      property OnDblClick;
  
negative.code:     attcDotsMiddle,
      attcDotsRight
      );
  
  type
    TATTabListCollection = class(TCollection)
    public
      AOwner: TCustomControl;
    end;
  
  type
    { TATTabData }
  