TPABounds

Definition

function TPABounds(const TPA: TPointArray): TBox;

Availability

SCAR Divi 3.26 > Current

Aliases

• GetTPABounds (SCAR Divi 3.20 > 3.35)

Description

This function calculates the bounds of a given TPointArray TPA by searching the most outer coordinates of a box which can contain all of the points and returns that box as a TBox.

Example

var
  TPA: TPointArray;
  Box: TBox;

begin
  TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
  Box := TPABounds(TPA);
  WriteLn('Box(' + IntToStr(Box.x1) + ',' + IntToStr(Box.y1) + ',' +
    IntToStr(Box.x2) + ',' + IntToStr(Box.y2) + ')');
end.

Output:

Box(0,0,5,10)

See Also

• TPADimensions
• TPAArea
• TPADensity