| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
координаты точек пересечения фигур [D4, Win95/98]
ed_30 © (2002-06-21 11:15:00)Добрый день!
Можно как-то определить координаты точек пересечения прямоугольников, зная координаты углов каждого прямоугольника?
Заранее спасибо.
VDen (2002-06-21 14:43:00) [1]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:00) [2]var R1, R2, R3: TRect;
begin
R1:=TRect(координаты верхнего левого, нижнего правого угла);
R2:=TRect(то же);
if IntersectRect(R3,R1,R2) then
ShowMessage(IntToStr(R3.Top)+ IntTostr(R3.Bottom));
end;
ed_30 (2002-06-21 11:53:00) [3]Спасибо за ответ. А можно небольшой кусок кода, как этой функцией пользоваться?
Заранее спасибо.
Song (2002-06-21 11:28:00) [4]IntersectRect()
| |
