Проверка пересечения двух прямоугольников (TRect)Delphi , Синтаксис , МатематикаПроверка пересечения двух прямоугольников (TRect)
Автор: MikeZ { **** 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; Статья Проверка пересечения двух прямоугольников (TRect) раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |