ATPADimensions

From SCAR Divi Manual
Jump to: navigation, search

Definition

procedure ATPADimensions(const ATPA: T2DPointArray; out Width, Height: Integer);

Availability

SCAR Divi 3.28 > Current

Description

Returns the dimensions of the area covered by a given T2DPointArray ATPA in Width and Height.

Example

var
  ATPA: T2DPointArray;
  w, h: Integer;

begin
  SetLength(ATPA, 3);
  ATPA[0] := [];
  ATPA[1] := [Point(1, 1), Point(2, 2)];
  ATPA[2] := [Point(5, 10)];
  ATPADimensions(ATPA, w, h);
  WriteLn(IntToStr(w) + 'x' + IntToStr(h));
end.

Output:

5x10

See Also