Delphi. Попадание точки в область.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Delphi. Попадание точки в область. - 2009-10-22 01:21:32.940000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Вопрос уж больно простой, но ни в какую не работает(( Прошу ткнуть меня в очевидное. Я проверяю попадание точки в область(ну там мышь будет,но не суть). Вот кусок функции(проверяю механизм):
var
RGN :HRGN;
ar : array of TPoint;
begin
SetLength(ar,4);
ar[0]:=Point(0,0);
ar[1]:=Point(100,0);
ar[2]:=Point(100,100);
ar[3]:=Point(0,100);
RGN:=CreatePolygonRgn(ar,4,WINDING);
Result:=PtInRegion(RGN,pt.X,pt.Y); Соответственно Result булевый, функция вызывается из MouseDown, всё чин чином. Тыркаю в левый верхний угол. НИЧЕГО. Вопрос: что за дела?
// Аууу!! Людии! А что так тихо, хотя бы Капитан Очевидность пусть объявится,ну,горю же….
|
|
|
|
|
RE: Delphi. Попадание точки в область. - 2009-10-23 13:04:40.500000
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
Что-то на ум ничего и не приходит…
Если только:
1. Посмотри в отладчике, чему равны pt.X,pt.Y (понимаю что глупо, но мало ли)
2. Как-то не так создается регион. Почитай поподробнее про функцию CreatePolygonRgn и посмотри, после создания региона равна ли чему-нибудь RGN.
|
|
|
|
|
RE: Delphi. Попадание точки в область. - 2009-10-23 15:22:25.376666
|
|
|
Таксист
Сообщений: 68
Оценки: 0
Присоединился: 2009-03-13 09:11:37.530000
|
Возможно полигон в координатах окна а мышь в координатах рабочего стола?
|
|
|
|
|
RE: Delphi. Попадание точки в область. - 2009-10-23 20:04:21.516666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ой,епта,топик можно сносить. Нет,координаты норм - я по недосыпу перепутал передаваемые в одну функцию числа, в другом порядке написал, вот точки и оказались крест-накрест перечислены. докатился(((
|
|
|
|
|
|
