Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рисование многоугольников в Delphi [D7, XP]

Silica © (2006-11-28 07:45:00)
Доброго время суток! Скажите, пожалуйста, как нарисовать и закрасить произвольный многоугольник.

RASkov (2006-11-28 13:25:00) [1]
Ошибся чуть-чуть

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

RASkov (2006-11-28 12:03:00) [2]
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);

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

MBo (2006-11-28 08:48:00) [3]
А что, начинающие не могут в хелпе по приведенным словам пример посмотреть?

Silica (2006-11-28 08:42:00) [4]
извините, конечно, но я в начинающих еще. с полигоном не сталкивалась пока. объясните, пожалуйста, как. хотя бы натолкните.

RASkov (2006-11-28 08:34:00) [5]
На "голой" форме? Тогда [1]
и Canvas.Polygon();
создай двумерный массив точек и передай его параметром

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

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

Silica (2006-11-28 08:31:00) [7]
мне нужно нарисовать многоугольник на форме любым способом и залить его.

RASkov (2006-11-28 07:51:00) [8]
На чем рисовать?
Canvas.Brush.Color
Canvas.Rectangle();
Canvas.Polygon();
Canvas.Polyxxxx();

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »