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)
Вот это конструкция!
Ты с каком справочнике нашел вызов функции, у которой параметром идут операторы языка?

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

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

begin
end

забыл ))

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