Versions Compared

Old Version 4

changes.mady.by.user Former user

Saved on

compared with

New Version 5

changes.mady.by.user Former user

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
languagedelphi
titleScripting
linenumberstrue
collapsetrue
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;