Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.17;
Скачать: CL | DM;

Вниз

Непонятная особенность в работе кода   Найти похожие ветки 

 
Angakok ©   (2007-04-19 20:59) [0]

Имеется эллипс(круг), который ограничен прямоугольником EllipseRect. Требуется заполнить множество S точками, которые принадлежат этому кругу(лежат внутри). Для этого использую следующий код:
[code]

 TMyPoint = class
 public
   x: Integer;
   y: Integer;
   constructor Create(tX: Integer; tY: Integer);
 end;
 ...
 constructor TMyPoint.Create(tX: Integer; tY: Integer);
 begin
   x := tX;  y := tY;
 end;
 ...

 S: DSet;
 EllipseRect: TRect;
 j,k: Integer;
 Rgn: HRGN;
 ...

 Rgn := CreateEllipticRgnIndirect(EllipseRect);
 if Rgn <> 0 then
   try
     for j := EllipseRect.Top to EllipseRect.Bottom do
       for k := EllipseRect.Left to EllipseRect.Right do
         if PtInRegion(Rgn,j,k) then
               S.add([TMyPoint.Create(j,k)]);  

   finally
     DeleteObject(Rgn);
   end;
   
[/code]

Данный код работает верно, только тогда, когда EllipseRect.Top=EllipseRect.Left.
В чем прикол ???


 
Vovan #2   (2007-04-19 22:55) [1]

Может быть...


if PtInRegion(Rgn,k,j) then
              S.add([TMyPoint.Create(k,j)]);


???


 
Angakok ©   (2007-04-20 01:29) [2]


> Может быть...if PtInRegion(Rgn,k,j) then               
> S.add([TMyPoint.Create(k,j)]);???


Точняк !!!!!!!! Это ведь координаты !!!!!! Работает!!!!

Спасибо !!!!!!!!!!!!!!



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

Текущий архив: 2007.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
15-1179987422
Kedr
2007-05-24 10:17
2007.06.17
Посоветуйте литературу


2-1179981178
=BuckLr=
2007-05-24 08:32
2007.06.17
RichEdit - полосы прокрутки


3-1174817975
Ломброзо
2007-03-25 14:19
2007.06.17
Быстрая проверка существования записи в Oracle


15-1179649389
Kltv
2007-05-20 12:23
2007.06.17
Progressbar с поддержкой скинов


6-1164180002
jorsand
2006-11-22 10:20
2007.06.17
Подскажите как получить доступ к сетевому ресурсу