anchor.diff:      b.Canvas.LineTo(line2.X, line2.Y);
       b.Canvas.Pen.Width:= 1;
   
  -    {$ifdef fpc}
  -    C.StretchDraw(Rect(AX, AY, AX+ASizeX, AY+ASizeY), b);
  -    {$else}
  -    //Delphi: StretchDraw cannot draw smooth
  -    StretchBlt(
  -      C.Handle, AX, AY, ASizeX, ASizeY,
  -      b.Canvas.Handle, 0, 0, b.Width, b.Height,
  -      C.CopyMode);
  -    {$endif}
  -  finally
  -    b.Free;
  -  end;
  +    CanvasStretchDraw(C, Rect(AX, AY, AX+ASizeX, AY+ASizeY), b);
   end;
   
   function _ShortenStringEx(C: TCanvas;
  
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:   FreeAndNil(FCaptionList);
    FreeAndNil(FTabList);
    FreeAndNil(FBitmapRound);
    FreeAndNil(FBitmapAngle);
    FreeAndNil(FBitmap);
    inherited;
  end;
  