Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c
4-69055
megadeth
2002-09-06 15:04
2002.10.21
Получить код нажатой клавиши из консольного приложения


3-68664
BJValentine
2002-09-27 19:33
2002.10.21
Украинские символы в dbf


1-68834
Prok12
2002-10-10 11:14
2002.10.21
Пара вопросов от перешедшего на Delphi 7


1-68692
Mixvictor
2002-10-10 18:15
2002.10.21
Rxlib под Delphi6.0


3-68659
NeyroSpace
2002-09-30 15:29
2002.10.21
CREATE TRIGGER под FireBird (SQL dialect 3)




   Наверх