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

Polygon   Найти похожие ветки 

← →
hgd   (2006-07-12 12:36) [0]

Подскажите, мне необходимо построить полигон из точек. Такая форма не работает, как сделать, чтобы массив можно было подставить в полигон.

 PointArray : array [1..100] of TPoint;

          Image1.Bitmap.Canvas.Polygon
          ([
             for i:=1 to PointPol do
             point(PointArray[i].X, PointArray[i].Y)
          ]);

---

← →
Юрий Зотов ©   (2006-07-12 13:00) [1]

Попробуйте так:

PointArray: packed array [1..100] of TPoint;

Windows.Polygon(Canvas.Handle, @PointArray, 100);

---

← →
-=S..S=-   (2006-07-12 13:00) [2]

var
 PointArray : array [1..100] of TPoint;
 i:integer;
begin
 for i:=1 to 100 do begin
   PointArray[i].X := RandomRange(2,50);
   PointArray[i].Y := RandomRange(2,50);
 end;
 Image1.Canvas.Polygon(PointArray)

---

← →
Desdechado ©   (2006-07-12 13:12) [3]

hgd   (12.07.06 12:36)
Вот это конструкция!
Ты с каком справочнике нашел вызов функции, у которой параметром идут операторы языка?

---

← →
Ketmar ©   (2006-07-12 20:15) [4]

я тоже хочу так, как в [0]! %-))

---

← →
Антибайт   (2006-07-13 08:56) [5]

begin
end

забыл ))

---

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

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



Память: 0.45 MB
Время: 0.028 c