Вниз
Скачать: 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.032 c
14-1082549527
ИМХО
2004-04-21 16:12
2004.04.11
the rpc server is unavailable


3-1081343780
YurikGl
2004-04-07 17:16
2004.04.11
DBExpres Проблемы SQLStoredProc


3-1078983315
lovres
2004-03-11 08:35
2004.04.11
Как в таблице Paradox SQL-запросом удалить столбец


6-1075797259
kkostik
2004-02-03 11:34
2004.04.11
иня домена


1-1082356834
_новый_
2004-04-19 10:40
2004.04.11
TSaveDialog




   Наверх