Создаёт величину TRect с указанием 2 точек или 4 координат
Classes unit
1 function Rect ( Left, Top, Right, Bottom : Integer ) : TRect;
2 function Rect ( TopLeft, BottomRight : TPoint ) : TRect;
Описание
Delphi функция Rect создает объект TRect (прямоугольник), для создания прямоугольника необходимо указать 4 координаты или 2 точки.
При создании с указанием двух точек TopLeft и BottomRight, вы можете передать две величины TPoint или использовать функцию Point.
Примечания
Важно
В модулях Classes и Types есть две функции Rect. Только прежняя поддерживает второй синтаксис.
При использовании в вашем коде обоих из этих модулей, и Вы указали Types после Classes, то вы должны использовать Rect с прификсом Classes, чтобы использовать этот второй синтаксис.
Похожие команды
Bounds Передаёт координаты вершин объекта типа TRect (прямоугольник)
Point Генерирует значение TPoint из значений X и Y
PointsEqual Сравнивает два значения TPoint на предмет равенства
PtInRect Проверяет, находится ли точка в пределах прямоугольника
Пример кода : Создание двух прямоугольников с использованием обоих синтаксисов
var
rectangle1, rectangle2 : TRect;
begin // Установка
первого прямоугольника, используя 1-ый синтаксис
rectangle1 := Rect(20, 40, 60, 80); // Установка второго прямоугольника,
используя функцию Rect
rectangle2 := Classes.Rect(Point(20, 40), Point(60, 80)); // Отображение верхней левой и правой
нижней координаты каждого прямоугольника
ShowMessageFmt('Координаты 1-го Прямоугольника = %d,%d,%d,%d',
[rectangle1.Left,
rectangle1.Top,
rectangle1.Right,
rectangle1.Bottom]);
ShowMessageFmt('Координаты 2-го Прямоугольника = %d,%d,%d,%d',
[rectangle2.Left,
rectangle2.Top,
rectangle2.Right,
rectangle2.Bottom]);
end;
Координаты 1-го Прямоугольника = 20,40,60,80
Координаты 1-го Прямоугольника = 20,40,60,80
