Проверка пересечения двух прямоугольников (TRect)

Delphi , Синтаксис , Математика

Автор: MikeZ
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка пересечения двух прямоугольников (TRect)

Функция использовалась для проверки пересекаемости 2-х форм,
панелей и т.п. Причем пересекаться они могут и не углами, а,
например, находиться один полностью в другом.

Зависимости: нет
Автор:       MikeZ, Zhuravsky2@Yandex.ru, Kiev
Copyright:   MikeZ (C) 2003
Дата:        8 октября 2003 г.
***************************************************** }

function OverlapRects(R1, R2: TRect): Boolean;
var
  Temp: TRect;
begin
  Result := False;
  if not UnionRect(Temp, R1, R2) then
    Exit;
  if (Temp.Right - Temp.Left <= R1.Right - R1.Left + R2.Right - R2.Left) and
    (Temp.Bottom - Temp.Top <= R1.Bottom - R1.Top + R2.Bottom - R2.Top) then
    Result := True;
end;

Перевод контента на русский язык:

Это фрагмент кода Delphi, который проверяет, пересекаются ли два прямоугольника (TRect). Функция OverlapRects принимает два параметра TRect, R1 и R2, и возвращает булевое значение, указывающее, пересекаются они или нет.

Разбивка кода:

1. Функция инициализирует переменную Result значением False, предполагая, что прямоугольники не пересекаются изначально.
2. Затем она использует функцию UnionRect (которая является частью библиотеки Delphi) для объединения двух входных прямоугольников в временное прямоугольник, Temp. Если это fails, то это означает, что прямоугольники не пересекаются вообще, и функция может выйти из цикла с Result по-прежнему установленным в False.
3. Код затем проверяет, если ширина объединенного прямоугольника (Temp.Right - Temp.Left) меньше или равна сумме ширин оригинальных двух прямоугольников (R1.Right - R1.Left + R2.Right - R2.Left). Если это условие истинно, то это означает, что ширина объединенного прямоугольника полностью содержится в одном из оригинальных прямоугольников.
4. Аналогично код проверяет, если высота объединенного прямоугольника (Temp.Bottom - Temp.Top) меньше или равна сумме высот оригинальных двух прямоугольников (R1.Bottom - R1.Top + R2.Bottom - R2.Top). Если это условие истинно, то это означает, что высота объединенного прямоугольника полностью содержится в одном из оригинальных прямоугольников.
5. Если оба условия истинны, то это означает, что объединенное прямоугольник представляет собой корректное пересечение между двумя входными прямоугольниками, и функция устанавливает Result в True.

Автор, MikeZ, предоставляет уведомление о правах авторства и credits Zhuravsky2@Yandex.ru за их вклад.

Альтернативное решение можно достичь, используя более прямой подход, проверяя, если выполняются следующие условия:

• Сокращение двух прямоугольников имеет ненулевую площадь.
• Один прямоугольник полностью содержится в другом.
• Прямоугольники делят грань или вершину.

Это можно достичь с помощью простых арифметических операций над координатами и размерами прямоугольников. Однако оригинальный код использует UnionRect, что обеспечивает более robust решение, которое обрабатывает случаи, когда прямоугольники частично пересекаются или имеют сложные формы.

Описание функции OverlapRects, которая проверяет пересечение двух прямоугольников (TRect), определяя, лежат ли они друг в друге частично или целиком.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Математика ::