anchor.diff:      procedure DoPaintXTo(C: TCanvas; const R: TRect; ATabBg, ATabCloseBg,
         ATabCloseBorder, ATabCloseXMark: TColor);
       procedure DoPaintDropMark(C: TCanvas);
  +    procedure GetRectArrowDown(out R: TRect);
  +    procedure GetRectArrowLeftRight(out RL, RR: TRect);
       function RealTabAngle: Integer;
       procedure SetTabAngle(AValue: Integer);
       procedure SetTabAngleMaxTabs(AValue: Integer);
  
positive.code:   Pnt:= Point(X, Y);
  
    //arrows?
    GetArrowRect(RDown);
  
    {
    if FTabShowScroll then
  
negative.code:   FTabIndentArrowLeft:= 4;
    FTabIndentArrowRight:= 20;
    FTabIndentColor:= 3;
  
    FTabShowScrollArrows:= true;
    FTabShowClose:= tbShowAll;
    FTabShowPlus:= true;
    FTabShowPlusText:= ' + ';
  