anchor.diff:    FTabIndexOver:= -1;
     FTabList:= TList.Create;
     FTabMenu:= nil;
  +  FScrollPos:= 0;
   
     FOnTabClick:= nil;
     FOnTabPlusClick:= nil;
  
positive.code:   cAtTabNone = -1; //none tab
    cAtTabPlus = -2;
    cAtArrowDown = -3;
  
  type
    { TATTabs }
  
negative.code:   end;
  
    //paint arrows
    GetRectArrowDown(FRectArrowDown);
    GetRectArrowLeftRight(FRectArrowLeft, FRectArrowRight);
  
    if FTabShowMenu then
    begin
      DoPaintArrowTo(C,
        tabTriDown,
        FRectArrowDown,
        IfThen((FTabIndexOver=cAtArrowDown) and not DragManager.IsDragging, FColorArrowOver, FColorArrow),
        FColorBg);
    end;
  
    if FTabShowScrollArrows then
    begin
      DoPaintArrowTo(C,
        tabTriLeft,
        FRectArrowLeft,
        IfThen(FTabIndexOver=cAtArrowScrollLeft, FColorArrowOver, FColorArrow),
        FColorBg);
  
      DoPaintArrowTo(C,
        tabTriRight,
        FRectArrowRight,
        IfThen(FTabIndexOver=cAtArrowScrollRight, FColorArrowOver, FColorArrow),
        FColorBg);
    end;
  
    //paint drop mark
  