anchor.diff:      function    ButtonHeight: integer;
       function    ButtonWidth(AText: string): integer;
       procedure   SetFixedTabWidth(const AValue: integer);
  +    procedure   SetFixedTabHeight(const AValue: integer);
       function    GetTabText(AText: string): string;
       procedure   LeftButtonClick(Sender: TObject);
       procedure   RightButtonClick(Sender: TObject);
  
positive.code:   if AValue > 5 then
    begin
      FFixedTabWidth := AValue;
      RePaint;
    end;
  end;
  
negative.code:     property    ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex;
      property    BackgroundColor;
      property    FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0;
      property    FixedTabHeight: integer read FFixedTabHeight write SetFixedTabHeight default 21;
      property    Hint;
      property    ParentShowHint;
      property    ShowHint;
  