anchor.diff:    Data.TabColor:= AColor;
     Data.TabImageIndex:= AImageIndex;
     Data.TabPopupMenu:= APopupMenu;
  +  Data.TabFontStyle:= AFontStyle;
   
     if IsIndexOk(AIndex) then
       FTabList.Insert(AIndex, Data)
  
positive.code:         NColorXMark,
          false,
          false,
          -1 //no icon
          );
        DrawPlusSign(C, RRect, FOptArrowSize, Font.Color);
        DoPaintAfter(ElemType, -1, C, RRect);
  
negative.code:   _InitOptSpaceInitial = 5;
    _InitOptSpaceBeforeText = 6;
    _InitOptSpaceBetweenTabs = 0;
    _InitOptSpaceBetweenIconCaption = 0;
    _InitOptSpacer = 4;
    _InitOptSpacer2 = 15;
    _InitOptSpaceXRight = 10;
  