TRectD

type TRectD = record

public

  function IsEmpty;

  function Width;

  function Height;

  function Normalize;

  function Contains();

  function MidPoint;

  case Integer of

    0: (

        Left: Double;

        Top: Double;

        Right: Double;

        Bottom: Double;

      );

    1: (

        TopLeft: TPointD;

        BottomRight: TPointD;

      );

end;