PASCAL ABC. Модуль PointRect

PASCAL ABC.

Модуль PointRect

Модуль PointRect содержит типы, процедуры и функции для работы с координатами точек и прямоугольников.

Координаты точки и прямоугольника описываются следующими типами:

Point=record
  x,y: integer;
end;
Rect=record
  Left,Top,Right,Bottom: integer;
end;

Для работы с координатами точек и прямоугольников используются следующие процедуры и функции:

function PointF(x,y: integer): Point;

Возвращает запись типа Point по координатам точки x, y.

function RectF(l,t,r,b: integer): Rect;

Возвращает запись типа Rect по координатам двух противоположных вершин прямоугольника (l,t) и  (r,b).

function PtInRect(r: Rect; p: Point): boolean;

Возвращает True, если точка p находится внутри прямоугольника r, и False в противном случае.

function EqualRect(r1,r2: Rect): boolean;

Возвращает True, если прямоугольники r1 и r1 равны, и False в противном случае.

function IntersectRect(r1,r2: Rect): boolean;

Возвращает True, если прямоугольники r1 и r1 пересекаются, и False в противном случае.

procedure OffsetRect(var r: Rect; dx,dy: integer);

Сдвигает прямоугольник r на вектор (dx,dy);

procedure InflateRect(var r: Rect; n: integer);

"Надувает" прямоугольник r на n пикселей; если n отрицательно, то прямоугольник "сдувается".