FNC PDFLib RoundRectangle

[Josep_M_Dalmases1 (Josep M Dalmases)]

Hi,

Using FNC PDFLib how can i draw a Round Rectangle...

I can see the function DrawRectangle, but i cannot use DrawRoundRectangle ?

Thanks

[Pieter_Scheldeman (Pieter)]

You can use the TAdvGraphicsPDFEngine for more complex shapes

uses
  AdvPDFLib, AdvGraphicsPDFEngine, AdvGraphicsTypes, Types ;

procedure TForm28.FormCreate(Sender: TObject);
var
  p: TAdvPDFLib;
  g: TAdvGraphicsPDFEngine;
  pth: TAdvGraphicsPath;
begin
  p := TAdvPDFLib.Create;
  g := TAdvGraphicsPDFEngine.Create(p);
  try
    p.BeginDocument('test.pdf');
    p.NewPage;
    pth := TAdvGraphicsPath.Create;
    try
      pth.AddRectangle(RectF(50, 50, 400, 400), 30, 30);
      g.DrawPath(pth);
    finally
      pth.Free;
    end;
    p.EndDocument(True);
  finally
    g.Free;
    p.Free;
  end;
end;

[Josep_M_Dalmases1 (Josep M Dalmases)]

Hi PIeter,

I try it and runs fine.

Thanks for the support !