Рисование многоугольников в Delphi

← →
Silica © (2006-11-28 07:45) [0]

Доброго время суток! Скажите, пожалуйста, как нарисовать и закрасить произвольный многоугольник.

← →
RASkov (2006-11-28 07:51) [1]

На чем рисовать?
Canvas.Brush.Color
Canvas.Rectangle();
Canvas.Polygon();
Canvas.Polyxxxx();

← →
Silica © (2006-11-28 08:31) [2]

мне нужно нарисовать многоугольник на форме любым способом и залить его.

← →
MBo © (2006-11-28 08:33) [3]

>Silica © (28.11.06 08:31) [2]
>мне нужно нарисовать многоугольник на форме любым способом и залить его.

Все, что нужно, в [1] уже сказали.

← →
RASkov (2006-11-28 08:34) [4]

На "голой" форме? Тогда [1]
и Canvas.Polygon();
создай двумерный массив точек и передай его параметром

← →
Silica © (2006-11-28 08:42) [5]

извините, конечно, но я в начинающих еще. с полигоном не сталкивалась пока. объясните, пожалуйста, как. хотя бы натолкните.

А что, начинающие не могут в хелпе по приведенным словам пример посмотреть?

← →
RASkov (2006-11-28 12:03) [7]

var arPxl: array [0..2] of TPoint;

Canvas.Brush.Color:=clRed;
arPxl[0].X:=50;
arPxl[0].Y:=10;
arPxl[1].X:=10;
arPxl[1].Y:=50;
arPxl[2].X:=100;
arPxl[2].X:=50;
Canvas.Polygon(arPxl);

вроде треугольник должен получиться:) красный.

← →
RASkov (2006-11-28 13:25) [8]

Ошибся чуть-чуть

var arPxl: array [0..2] of TPoint; Canvas.Brush.Color:=clRed; arPxl[0].X:=50; arPxl[0].Y:=10; arPxl[1].X:=10; arPxl[1].Y:=50; arPxl[2].X:=90; arPxl[2].Y:=50; Canvas.Polygon(arPxl);
Копипаст - зло.
И здесь

> создай двумерный массив точек

не двумерный, а одномерный массив TPoint

Рисование многоугольников в Delphi Найти похожие ветки