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

Рисование многоугольников в 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]

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

---

← →
MBo ©   (2006-11-28 08:48) [6]

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

---

← →
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

---

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

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



Память: 0.46 MB
Время: 0.032 c