Вниз
Скачать: CL | DM;

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

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


← →
Mihey ©   (2004-02-12 20:22) [5]

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


← →
Larry ©   (2004-02-13 06:42) [6]

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



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

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



Память: 0.46 MB
Время: 0.034 c
3-1081268959
GetIt
2004-04-06 20:29
2004.04.11
Фильтрация


4-1075882378
turonix
2004-02-04 11:12
2004.04.11
Как отловить нажатие клавиши Enter


7-1073743146
Angel_Forever
2004-01-10 16:59
2004.04.11
Quake & CS


1-1080216405
anton.
2004-03-25 15:06
2004.04.11
Компонент


3-1081841088
skostigin
2004-04-13 11:24
2004.04.11
Delphi 6, InterBase




   Наверх