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



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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка пересечения двух прямоугольников (TRect)
Функция использовалась для проверки пересекаемости 2-х форм,
панелей и т.п. Причем пересекаться они могут и не углами, а,
например, находиться один полностью в другом.
Зависимости: нет
Автор:       MikeZ, [email protected], 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;

Далее: Простое число »»