anchor.diff:      procedure SetTabImageIndex(const Value: TImageIndex);
       procedure SetTabCaption(const Value: TATTabString);
       procedure SetTabColor(const Value: TColor);
  +    procedure SetTabColorActive(const Value: TColor);
  +    procedure SetTabColorOver(const Value: TColor);
       procedure SetTabHideXButton(const Value: boolean);
     public
       constructor Create(ACollection: TCollection); override;
  
positive.code:     property TabCaption: TATTabString read FTabCaption write SetTabCaption;
      property TabHint: TATTabString read FTabHint write FTabHint;
      property TabColor: TColor read FTabColor write SetTabColor default clNone;
      property TabModified: boolean read FTabModified write FTabModified default false;
      property TabImageIndex: TImageIndex read FTabImageIndex write SetTabImageIndex default -1;
      property TabFontStyle: TFontStyles read FTabFontStyle write FTabFontStyle default [];
  
negative.code:   UpdateTabSet;
  end;
  
  procedure TATTabData.SetTabColorActive(const Value: TColor);
  begin
    FTabColorActive := Value;
    UpdateTabSet;
  end;
  
  procedure TATTabData.SetTabColorOver(const Value: TColor);
  begin
    FTabColorOver := Value;
    UpdateTabSet;
  end;
  
  procedure TATTabData.SetTabHideXButton(const Value: boolean);
  begin
    FTabHideXButton := Value;
  