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