anchor.diff:        DoPaintArrowTo(C,
           atriLeft,
           R,
  -        IfThen(bOver, FColorArrowOver, FColorArrow),
  -        FColorBg);
  +        IfThen(bOver, FColorArrowOver, FColorArrow)
  +        );
         DoPaintAfter(ElemType, -1, C, FRectArrowLeft);
       end;
   end;
  
positive.code:         FRectArrowDown,
          IfThen(bOver and not _IsDrag,
            FColorArrowOver,
            FColorArrow),
          FColorBg);
        DoPaintAfter(ElemType, -1, C, FRectArrowDown);
      end;
  end;
  
negative.code: {$endif}
  
  procedure TATTabs.DoPaintArrowTo(C: TCanvas; ATyp: TATTabTriangle; ARect: TRect;
    AColorArr: TColor);
  begin
    DrawTriangleType(C, ATyp, ARect, AColorArr, FOptArrowSize div 2);
  end;
  
  
  