anchor.diff:    Caption:= '';
     BorderStyle:= bsNone;
     ControlStyle:= ControlStyle+[csOpaque];
  +  DoubleBuffered:= IsDoubleBufferedNeeded;
   
     Width:= 400;
     Height:= 35;
  
positive.code:   ACloseBtn, AModified: boolean);
  var
    PL1, PL2, PR1, PR2: TPoint;
    RText: TRect;
    NIndentL, NIndentR, NIndentTop: Integer;
    AType: TATTabElemType;
    AInvert: Integer;
  
negative.code: 
    NIndentL:= FTabAngle+FTabIndentLeft;
    NIndentR:= NIndentL+IfThen(ACloseBtn, FTabIndentXRight);
    RectText:= Rect(ARect.Left+FTabAngle, ARect.Top, ARect.Right-FTabAngle, ARect.Bottom);
    C.FillRect(RectText);
    RectText:= Rect(ARect.Left+NIndentL, ARect.Top, ARect.Right-NIndentR, ARect.Bottom);
  
    //left triangle
    PL1:= Point(ARect.Left+FTabAngle*AInvert, ARect.Top);
  