Привет всем!
Я нарисовал прямоугольник и разбил его на части, теперь надо закрасить эти части(хотя бы одну для примера).
uses crt,graph;
var
a,b:integer;
procedure pryam;
begin
rectangle(170,90,470,390);
line(170,90,470,390);
line(170,390,470,90);
line(170,240,470,240);
line(170,240,320,90);
line(320,90,470,240);
line(320,390,170,240);
line(320,390,470,240);
setfillstyle(2,6);
floodfill(175,100,0); //<-- вот тут не получается
end;
begin
a:=detect;
initgraph(a,b,'');
pryam;
readkey
end.
Получается, только заливается один-единственный пиксель, поскольку неверно указан цвет границы заливаемой области (да,да... FloodFill принимает третьим параметром именно цвет границы, а не цвет, который надо залить...)
floodfill(175,100,White); //<-- У тебя разве где-то есть ЧЕРНАЯ граница области?
У тебя на картинке что, есть зеленая граница области? Вот когда будет - будешь писать Green. А пока весь контур отрисован белым - делай FloodFill(..., ..., White).
Еще раз спасибо!