anchor.diff:              cSmoothScale,
               ampnBottomLeft,
               AColorBg,
  -            AColorBorder);
  +            AColorBorder,
  +            FBitmapAngle);
             DrawTriangleRectFramed(C,
               ARect.Right-1,
               ARect.Top+IfThen(not ATabActive, 1),
  
positive.code: procedure DrawTriangleRectFramed(C: TCanvas;
    AX, AY, ASizeX, ASizeY, AScale: integer;
    ATriKind: TATMissedPoint;
    AColorFill, AColorLine: TColor);
  var
    b: TBitmap;
    p0, p1, p2, p3: TPoint;
    line1, line2: TPoint;
    ar: array[0..2] of TPoint;
  begin
    b:= TBitmap.Create;
    try
      {$ifdef fpc}
      b.SetSize(ASizeX*AScale, ASizeY*AScale);
      {$else}
      b.Width:= ASizeX*AScale;
      b.Height:= ASizeY*AScale;
      {$endif}
  
      p0:= Point(0, 0);
      p1:= Point(b.Width, 0);
  
negative.code:             cSmoothScale,
              ampnTopRight,
              AColorBg,
              AColorBorder,
              FBitmapAngle);
          end;
        atpBottom:
          begin
  