Versions Compared

Key

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

...

ResultPointX: Double;

Source Code:

Code Block
languagedelphi
titleScripting
linenumberstrue
collapsetrue
var
  x, y: double;

begin
  if getpoint(x, y, 'Click Point') = 1 then
    result := resultpointx;  // should be same as x
end;