anchor.diff:      Result:= Data.TabRect
     else
       Result:= Rect(0, 0, 200, 50); //dummy
  +
  +  Dec(Result.Left, FScrollPos);
   end;
   
   procedure TATTabs.DoUpdateTabRects;
  
positive.code:   i: Integer;
    RBottom: TRect;
    AColorXBg, AColorXBorder, AColorXMark: TColor;
    ARect, ARectArrowDown, FRectArrowLeft, FRectArrowRight: TRect;
    AType: TATTabElemType;
    Data: TATTabData;
  begin
  
negative.code:   cAtTabNone = -1; //none tab
    cAtTabPlus = -2;
    cAtArrowDown = -3;
    cAtArrowScrollLeft = -4;
    cAtArrowScrollRight = -5;
  
  type
    { TATTabs }
  