Declaration

TDPoint = record
  X: double;
  Y: double;

  function ToPoint(): TPoint;
  procedure Offset(XOffset, YOffset: Double);
  class function Empty(): TDPoint; static;
end;

Description

A point type that supports real values.

The following operations are supported:

if dpt = dpt then...
if dpt <> dpt then...
dpt := TDPoint( MyPoint );
MyPoint := dpt.ToPoint();

---