Заливка многогранника

← →
Larry © (2004-02-11 20:01) [0]

Как с помощью Brush залить многогранник, т.е. область определения фигуры задать с помощью пяти или шести точек???

← →
KilkennyCat © (2004-02-11 22:39) [1]

procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);

Description

Use FloodFill to fill a possibly non-rectangular region of the image with the value of Brush. The boundaries of the region to be filled are determined by moving outward from the point (X,Y) until a color boundary involving the Color parameter is encountered.

FillStyle determines what type of color changes define the boundaries, as indicated in the following table.

fsSurface Fill all area that has the color indicated by the Color parameter. Stop when another color is encountered.
fsBorder Fill all area that does not have the color indicated by the Color parameter. Stop when Color is encountered.

Use the Pixels property to get the exact value of the color at the point (X,Y) when using a FillStyle of fsSurface. Similarly, when FillStyle is fsBorder, use Pixels to get the exact value of the boundary color if a point on the boundary is known.

← →
Larry © (2004-01-23 13:18) [2]

А если подробнее и на русском. Блин, ну это же форум. Неужели нельзя своими словами?!

← →
able © (2004-02-12 15:33) [3]

Нет нельзя! Тут подробный ответ!!

← →
Dmyk (2004-02-12 19:52) [4]

FllodFill - заливка уже нарисованного прямоугольника.

ИМХО, если мы знаем точки и их кол-во фиксировано, то лучше использовать Polygon.
var MyPoints: array [0..5] of TPoint; I: Integer; begin for I := 0 to 5 do begin MyPoints[I} := Point(Random(Width), Random(Height) end; {вообще-то лучше это в другом месте формировать} with Canvas do begin Brush.Color := $00FFFFC0; //типа clSkyBlue Pen.Width := 0; Polygon(MyPoints); end; end;

Dmyk верно говорит - порой может оказаться сложно определить такую точку для FloodFill, чтобы она была внутри многоугольника.

Спасибо, Dmyk! Bv[j? енто мне и нужно было!!!

Заливка многогранника Найти похожие ветки