anchor.diff:    Data.TabColor:= AColor;
     Data.TabImageIndex:= AImageIndex;
     Data.TabPopupMenu:= APopupMenu;
  +  Data.TabFontStyle:= AFontStyle;
   
     if IsIndexOk(AIndex) then
       FTabList.Insert(AIndex, Data)
  
positive.code:     C.Font.Assign(Self.Font);
      if AModified then
        C.Font.Color:= FColorFontModified;
  
      TempCaption:= IfThen(AModified, FOptShowModifiedText) + ACaption;
  
      NIndentTop:= (FOptTabHeight - C.TextHeight('Wj')) div 2 + 1;
  
      {$ifdef WIDE}
      ExtTextOutW(C.Handle,
  
negative.code:     property OptScrollMarkSizeY: integer read FOptScrollMarkSizeY write FOptScrollMarkSizeY default _InitOptScrollMarkSizeY;
      property OptDropMarkSize: integer read FOptDropMarkSize write FOptDropMarkSize default _InitOptDropMarkSize;
  
      property OptPosition: TATTabPosition read FOptPosition write FOptPosition default _InitOptPosition;
      property OptIconPosition: TATTabIconPosition read FOptIconPosition write FOptIconPosition default aipIconLefterThanText;
      property OptCaptionAlignment: TAlignment read FOptCaptionAlignment write FOptCaptionAlignment default taLeftJustify;
      property OptShowFlat: boolean read FOptShowFlat write FOptShowFlat default _InitOptShowFlat;
      property OptShowScrollMark: boolean read FOptShowScrollMark write FOptShowScrollMark default _InitOptShowScrollMark;
      property OptShowDropMark: boolean read FOptShowDropMark write FOptShowDropMark default _InitOptShowDropMark;
      property OptShowXButtons: TATTabShowClose read FOptShowXButtons write FOptShowXButtons default _InitOptShowXButtons;
  