Проблема с заливкой замкнутой области

[Heng]

Пытаюсь залить область на Image, которую до этого нарисовал(Карандашом)
но почему-то область не наливается, а когда щелкаю на границу этой произвольной области то она стирается, Как исправить ?

procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (btn2.Down = true) and (flag = true) then   
  begin
  img1.Canvas.FloodFill(x,y,panel4.Color,fsSurface);
  end;
end;

[Stilet]

А для img1.canvas. выставлен brush и нужный цвет заливки?

[Heng]

ну я выставил
pen.color := pnl4.Color;
brush.style:=bsclear;

только это же для элипсов и прямоугольников, а я про фигуру от руки нарисованную(карандашом). Хотя ни там ни там не работает ))))

[Stilet]

только это же для элипсов и прямоугольников

Use FloodFill to fill a possibly non-rectangular region of the image with the value of Brush.

это из хелпа.

brush.style:=bsclear;

А колор выставил? И выставил для какого компонента?

[Heng]

if (btn2.Down = true) and (flag = true) then   
 //Çàëèâàåì çàìê
íóòóþ îáëàñòü
  begin
  img1.Canvas.Brush.Style:=bsSolid;
  img1.Canvas.Brush.Color:=pnl4.Color;
  img1.Canvas.FloodFill(x,y,0441,fsSurface);
  end;

вот так вот переделал всеравно не работает, вообще не действий никаких

[Stilet]

pnl4.Color

Э-э-э это ты указал "Заливать цветом фона панели"?
Поставь clBlack для проверки - зальет?
И поставь fsBorder.

[Heng]

Сообщение от Stilet

Э-э-э это ты указал "Заливать цветом фона панели"?
Поставь clBlack для проверки - зальет?
И поставь fsBorder.

СДЕЛАЛ теперь как то странно заливает, не тем цветом которым я хочу
цветом границы, а если выбираю другой цвет то вообще весь холст заливает

[Rin]

http://programmersforum.ru/showthrea...ight=floodfill вот тут почитай, я там вложение выкладывал. Все заливает цветом, которым нужно.

[Heng]

Никак не заливает

if (btn2.Down = true) and (flag = true) then    //Çàëèâàåì çàìêíóòóþ îáëàñòü
  begin
  img1.Canvas.Brush.Style:=bsSolid;
  img1.Canvas.Pen.Color:=clBlack;
  img1.Canvas.Brush.Color:=clRed;
  img1.Canvas.FloodFill(x,y,clRed,fsSurface);
  end;

Возьмите кто-нибуть мой код попробуйте у себя.

[Stilet]

Тогда выкладывай проект в архиве. Этот кусок кода ни о чем не говорит.