Как определить пересекаются ли два повернутых контрола или нет?

[estra]

Вопрос в продолжении темы Как определить пересекаются ли два контрола или нет (так как та тема уже закрыта). Рекомендуемая функция IntersectsWith не учитывает, что прямоугольник может быть повернут на какой либо угол, в связи с чем результат может отличаться от ожидаемого.

 

 

Имеется ли в FM метод, корректно обрабатывающий проиллюстрированный выше случай?

[Brovin Yaroslav]

Тут есть варианты определения пересечения

 

1. Проверить, что хотя бы одна из вершин контрола находится в области расположения другого. 

Для этого нужно:

1. Получить абсолютные координаты вершин контрола
2. И проверить попадание каждой вершины в область другого контрола TControl.PointInObject.

Если хотя бы одна вершина будет в области другого, значит контролы пересекаются.

 

2. Воспользоваться известными алгоритмами поиска пересечения двух выпуклых многоугольников

Например: "Пересечение: Два выпуклых многоугольника"

[Dimonka]

Ну если уж брать алгоритмы нахождения пересечения, то универсальные. Например этот:
http://angusj.com/delphi/clipper.php