Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Вычисления



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

 Прислал: MikeZ (Kiev) ( 8 октября 2003 г. )
©  MikeZ (C) 2003
 Описание:
Функция использовалась для проверки пересекаемости 2-х форм, панелей и т.п. Причем пересекаться они могут и не углами, а, например, находиться один полностью в другом.

 Зависимости:
нет

 Ограничения:
нет

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Проверка пересечения двух прямоугольников (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;


Вернуться к списку функций

Наверх ▲