User Input - GetRect -- xfer from FD

User Input - GetRect

Prompts the user to click 2 points on the active plan to define a rectangle then returns the coordinates in p1 and p2.

Returns 1 if the function is successful or 0 if the user cancels.

Declaration:

GetRect(Var p1x: double; Var p1y: double; Var p2x: double; Var p2y: double; Hint: String): Integer;

API Call:

var
  x1, x2, y1, y2: double;

begin
  if GetRect(x1, y1, x2, y2, 'Click each corner of a rectangle.') = 1 then
    Showmessage('Draw rectangle here')
  else
    Showmessage('Canceled');
end;

To open any link in a new tab, preserving your position in the current article, just hold down the <CTRL> key on your keyboard before clicking the link or click using your mouse wheel.

User Input - GetRect -- xfer from FD

User Input - GetRect