anchor.diff:      if FOptVarWidth then
       begin
         C.Font.Style:= Data.TabFontStyle;
  +
  +      if FOptActiveFontStyleUsed then
  +        if i=FTabIndex then
  +          C.Font.Style:= FOptActiveFontStyle;
  +
         TempCaption:=
           Format(FOptShowNumberPrefix, [i+1]) +
           FOptShowModifiedText +
  
positive.code:       Result:= AIndex=FTabIndex;
      atbxShowMouseOver:
        Result:= AIndex=FTabIndexOver;
      else
        Result:= false;
    end;
  
negative.code:     atbxShowNone,
      atbxShowAll,
      atbxShowActive,
      atbxShowMouseOver,
      atbxShowActiveAndMouseOver
      );
  
  //int constants for GetTabAt
  