Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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

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

Автор: 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;

Статья Проверка пересечения двух прямоугольников (TRect) раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
05.07.2020 10:26:44/0.012588977813721/0