anchor.diff:    AModified: boolean = false;
     AColor: TColor = clNone;
     AImageIndex: integer = -1;
  -  APopupMenu: TPopupMenu = nil);
  +  APopupMenu: TPopupMenu = nil;
  +  AFontStyle: TFontStyles = []);
   var
     Data: TATTabData;
   begin
  
positive.code:         NColorXMark,
          false,
          false,
          -1 //no icon
          );
        DrawPlusSign(C, RRect, FOptArrowSize, Font.Color);
        DoPaintAfter(ElemType, -1, C, RRect);
  
negative.code:   Data:= GetTabData(NTab);
    if Data=nil then Exit;
  
    ATabs.AddTab(NTabTo,
      Data.TabCaption,
      Data.TabObject,
      Data.TabModified,
      Data.TabColor,
      Data.TabImageIndex,
      Data.TabPopupMenu,
      Data.TabFontStyle
      );
  
    //correct TabObject parent
    if Data.TabObject is TWinControl then
  