Difference between revisions of "ATPADimensions"

From SCAR Divi Manual
Jump to: navigation, search
(Created page with "==Definition== <source lang="scar" lines="false"> procedure ATPADimensions(const ATPA: T2DPointArray; out Width, Height: Integer); </source> ==Availability== SCAR Divi 3.28 > Cu...")
 
(No difference)

Latest revision as of 03:55, 23 October 2011

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