Difference between revisions of "TPADimensions"

Revision as of 09:02, 3 July 2011

procedure TPADimensions(const TPA: TPointArray; out Width, Height: Integer);

SCAR Divi 3.26 > Current

Returns the dimensions of the area covered by a given TPointArray TPA in Width and Height.

var
  w, h: Integer;

begin
  TPADimensions([Point(0, 0), Point(1, 2), Point(5, 4)], w, h);
  WriteLn(IntToStr(w) + 'x' + IntToStr(h));
end.

Output:

6x5