anchor.diff:    RectText: TRect;
     NIndentL, NIndentR, NIndentTop: Integer;
     AType: TATTabElemType;
  -  AInvert: Integer;
  +  AInvert, NAngle: Integer;
     TempCaption: atString;
     bNeedMoreSpace: boolean;
   begin
  
positive.code:   Data: TATTabData;
    R: TRect;
  begin
    R.Left:= FTabIndentInit+FTabAngle;
    R.Right:= R.Left;
    R.Top:= FTabIndentTop;
    R.Bottom:= R.Top+FTabHeight;
  
negative.code:   else
      AInvert:= 1;
  
    NAngle:= RealTabAngle;
    RectText:= Rect(ARect.Left+NAngle, ARect.Top, ARect.Right-NAngle, ARect.Bottom);
    bNeedMoreSpace:= (RectText.Right-RectText.Left<=30) and (ACaption<>TabShowPlusText);
    NIndentL:= IfThen(not bNeedMoreSpace, NAngle+FTabIndentLeft, 2);
    NIndentR:= NIndentL+IfThen(ACloseBtn, FTabIndentXRight);
    C.FillRect(RectText);
    RectText:= Rect(ARect.Left+NIndentL, ARect.Top, ARect.Right-NIndentR, ARect.Bottom);
  