Как залить всё пространство определённого цвета вокруг точки (заливка в графическом редакторе)
Привожу краткое описание и пример:
FloodFill(
HDC : hdc,
nXStart : integer,
nYStart : integer,
crFill : clref
) : boolean;
Параметры
hdc
Контекст устройства, куда будет производится вывод
nXStart
x - координата по x, для точки, вокруг которой будет произведена заливка, то есть проще говоря, все что вокуруг этой
точки и цвета crFill будет залито, пока на пути не встретится другой цвет
nYStart
То же саймое, что и выше, только y координата
crFill
Цвет который будет заливаться.
Пример:
procedure TForm1.Button1Click(Sender: TObject);
begin
Rectangle(Image1.Canvas.Handle, 10, 10, 200, 200);
FloodFill(Image1.Canvas.Handle, 40, 40, clWhite);
end;
SLAyer
Другие статьи
По всем вопросам и предложениям по сайту пишите на info@comp-info.ru  
|