ViewPortType

type ViewPortType = record

  x1: SmallInt;

X coordinate of upper-left corner.

  y1: SmallInt;

Y coordinate of upper-left corner.

  x2: SmallInt;

X coordinate of lower-right corner.

  y2: SmallInt;

Y coordinate of lower-right corner.

  Clip: Boolean;

Should drawing be clipped to the current rectangle?

end;