anchor.diff:        DoPaintArrowTo(C,
           atriRight,
           R,
  -        IfThen(bOver, FColorArrowOver, FColorArrow),
  -        FColorBg);
  +        IfThen(bOver, FColorArrowOver, FColorArrow)
  +        );
         DoPaintAfter(ElemType, -1, C, FRectArrowRight);
       end;
   end;
  
positive.code:   C.LineTo(X2, Y2);
  end;
  
  procedure DrawTriangleRaw(C: TCanvas; const P1, P2, P3: TPoint; Color: TColor);
  begin
    C.Brush.Color:= Color;
  
negative.code:         FRectArrowDown,
          IfThen(bOver and not _IsDrag,
            FColorArrowOver,
            FColorArrow)
          );
        DoPaintAfter(ElemType, -1, C, FRectArrowDown);
      end;
  end;
  