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.
...
GetRect(Var p1x: double; Var p1y: double; Var p2x: double; Var p2y: double; Hint: String): Integer;
API Call
...
Delphi
Code Block | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
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; |
...