Форум: "Media";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

координаты точек пересечения фигур   Найти похожие ветки 

← →
ed_30   (2002-06-21 11:15) [0]

Добрый день!

Можно как-то определить координаты точек пересечения прямоугольников, зная координаты углов каждого прямоугольника?

Заранее спасибо.

---

← →
Song   (2002-06-21 11:28) [1]

IntersectRect()

---

← →
ed_30   (2002-06-21 11:53) [2]

Спасибо за ответ. А можно небольшой кусок кода, как этой функцией пользоваться?

Заранее спасибо.

---

← →
VDen   (2002-06-21 14:43) [3]

var R1, R2, R3: TRect;

begin
R1:=TRect(координаты верхнего левого, нижнего правого угла);
R2:=TRect(то же);
if IntersectRect(R3,R1,R2) then
ShowMessage(IntToStr(R3.Top)+ IntTostr(R3.Bottom))

---

← →
VDen   (2002-06-21 14:43) [4]

var R1, R2, R3: TRect;

begin
R1:=TRect(координаты верхнего левого, нижнего правого угла);
R2:=TRect(то же);
if IntersectRect(R3,R1,R2) then
ShowMessage(IntToStr(R3.Top)+ IntTostr(R3.Bottom));
end;

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.55 MB
Время: 0.065 c