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

[Heng]

http://files.mail.ru/7C2553DE5E3440F1A08450173338FB05 вот

[Stilet]

Пожалуй твою прогу мне не осилить, но вот могу показать легкую наработку:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then begin
    Canvas.LineTo(x,y);
  end;
  if Button =mbRight  then begin
    Canvas.Brush.Color:=clRed;
    Canvas.FloodFill(x,y,Color,fsBorder);
  end
end;

Она работает как надо. Заливка ведется. Не представляю что у тебя там не так, возможно проблема в Image. Я на нем никогда не рисую, и не использую под канву. Для этого мне больше удобен PaintBox.

[Heng]

согласен, я не умею понятно писать)))
на счет image я его использовал потому что, для рисования линии используется дополнительный графический объект"bm", и командой

bm.Assign(img1.Picture.Graphic);

не удается связать PictureBox, или как то можно ???

[Stilet]

Ну там, да. Придется повыделоваться. Однако это все что я могу из опыта предложить, ибо действительно Image не юзаю.
Под "повыделоваться" имею ввиду загрузить в TBitmap картинку, а уже из нее CopyRect на канву PaintBox.

Ты вот что: Создай другой проект. Кинь на него Image и попробуй на нем мой пример. Если сработает, значит я не прав и Image святейший из компонентов, а ошибка в твоей стратегии (тогда только отладчик). Иначе... Иначе я уже свое мнение сказал.

[DpolenST]

Сообщение от 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;

замени

img1.Canvas.FloodFill(x,y,panel4.Color,fsSurface);

на

img1.Canvas.Brush.Color:=clRed;
img1.Canvas.FloodFill(x,y,img1.Canvas.Pixels[x,y],fsSurface);

img1.Canvas.Pixels[x,y] - цвет который мы заменяем

[Heng]

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

Пожалуй твою прогу мне не осилить, но вот могу показать легкую наработку:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then begin
    Canvas.LineTo(x,y);
  end;
  if Button =mbRight  then begin
    Canvas.Brush.Color:=clRed;
    Canvas.FloodFill(x,y,Color,fsBorder);
  end
end;

Она работает как надо. Заливка ведется. Не представляю что у тебя там не так, возможно проблема в Image. Я на нем никогда не рисую, и не использую под канву. Для этого мне больше удобен PaintBox.

Все скопировал и при попытке залить замкнутый кусок, заливает всю форму. КАК ТАК ?

[Heng]

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

замени

img1.Canvas.FloodFill(x,y,panel4.Color,fsSurface);

на

img1.Canvas.Brush.Color:=clRed;
img1.Canvas.FloodFill(x,y,img1.Canvas.Pixels[x,y],fsSurface);

img1.Canvas.Pixels[x,y] - цвет который мы заменяем

ОООООООООООО помогло, спасибо! Но, я не понял почему не работало, можно описать словами эту строку в сравнении с предыдущей ?

[Stilet]

А. ну да. Логично.
img1.Canvas.Pixels[x,y] стал тем цветом, который на Image нужно залить. Правильно, я в своем примере брал цвет канвы, где рисовал, стало быть и тебе нужно было брать цвет канвы img.
Значит я не прав по отношению к этому компоненту.

[DpolenST]

FloodFil закрашивает до границы заданного цвета (для fsSurface). В вашем случае в качестве цвета, который надо залить другим цветом, я взял цвет пикселя с которого начинается заливка.

[Аватар]

Вот оно и закрашивает все, где цвет Color. А нужен какой-то контур. В пример контур круг и закрашивается потом красным

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Ellipse(100,100,400,400);
  Canvas.Brush.Color:=clRed;
  Canvas.Brush.Style:=bsSolid;
  Canvas.FloodFill(250,250,ColorToRGB(Color),fsSurface);
end;