TPdfObjectList.AddEllipse

Declaration

function AddEllipse(X, Y, Width, Height: Single): TPdfObject; overload;
function AddEllipse(X, Y, Width, Height: Single;
LineColor: TColor; LineWidth: Single = 1.0; LineOpacity: Single = 1.0;
Filled: boolean = false; FillColor: TColor = clBlack; FillOpacity: Single = 1.0): TPdfObject; overload;

Description

Add an ellipse (made up of bezier curves) to the current page at the specified position (in terms of PDF points).

Note: PDF pages are specified Bottom-Up, i.e. Y=0 refers to the bottom of the page/screen. Y=PageHeight refers to the top of the page/screen

Example

const
  Ellipse_Width   = 150;
  Ellipse_Height = 100;
  Ellipse_Color   = clGreen;
  Ellipse_Border = 3;
  Ellipse_Fill    = clYellow;
  Ellipse_Opacity = 255;
var
  obj: TPdfObject;
begin
  obj := ImageEnView1.PdfViewer.Objects.AddEllipse( 100, 800, Ellipse_Width, Ellipse_Height );

  obj.StrokeColor := TColor2TRGBA( Ellipse_Color, 255 );
  obj.PathStrokeWidth := Ellipse_Border;
  obj.FillColor := TColor2TRGBA( Ellipse_Fill, Ellipse_Opacity );
  obj.PathFillMode := pfAlternate;
end;

TPdfObjectList.AddEllipse