Pt2Rect
To determine the smallest rectangle that encloses two given points, use thePt2Rectprocedure.
PROCEDURE Pt2Rect (pt1,pt2:�Point; VAR dstRect: Rect);
pt1- The first of two points to enclose.
pt2- The second of two points to enclose.
dstRect- The smallest rectangle that can enclose them.
DESCRIPTION
ThePt2Rectprocedure returns in thedstRect parameterthe smallest rectangle that encloses the two points you specify in thept1andpt2parameters.