TPdfObjectList.AddRect

Declaration

function AddRect(X, Y, Width, Height: Single): TPdfObject; overload;
function AddRect(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 a rectangle object to the current page at the specified position (in terms of PDF points).

Note: You must call ApplyChanges before saving to apply object changes to the document

PDF Page Points

Objects on a PDF page are specified in points that originate at the bottom-left, i.e. when X,Y = (0,0). The top-left of the page is specified by (PageWidth, PageHeight).
To convert PDF points to screen values, use PageToScr.

Example

const
  Rect_Width   = 150;
  Rect_Height = 100;
  Rect_Color   = clGreen;
  Rect_Border = 3;
  Rect_Fill    = clYellow;
  Rect_Opacity = 255;
var
  obj: TPdfObject;
begin
  obj := ImageEnView1.PdfViewer.Objects.AddRect( 100, 800, Rect_Width, Rect_Height );

  obj.StrokeColor := TColor2TRGBA( Rect_Color, 255 );
  obj.PathStrokeWidth := Rect_Border;
  obj.FillColor := TColor2TRGBA( Rect_Fill, Rect_Opacity );
  obj.PathFillMode := pfAlternate;
end;

TPdfObjectList.AddRect