Алгоритм заливки замкнутой области рисунка

[ODmitrijS]

Подскажите алгоритм или готовый пример заливки замкнутой области рисунка произвольной формы определенным цветом?
Моё решение часто приводит к переполнению стека.

Изменено 18 декабря, 2016 пользователем ODmitrijS

[Alexander]

Вопрос точнее ставьте, используете функции Pascal для заливки цветом или нужно написать алгоритм заливки?

Если первое, то выкладывайте код; если второе - то описание алгоритма и код... 

 

[Brovin Yaroslav]

Полагаю это поможет: https://habrahabr.ru/post/116398/

[ODmitrijS]

Интересуют любые варианты.
Использую XE10

Мой вариант. Можно конечно подумать, только вероятно всё придумано до меня:

procedure TForm1.fill(x,y: integer);
begin
  if bitdata1.GetPixel(x,y)=TAlphacolors.white then bitdata1.SetPixel(x,y,Talphacolors.Red);
  if bitdata1.GetPixel(x+1,y) = TAlphacolors.White then
    fill(x+1,y);
  if bitdata1.GetPixel(x-1,y) = TAlphacolors.White then
    fill(x-1,y);
  if bitdata1.GetPixel(x,y+1) = TAlphacolors.White then
    fill(x,y+1);
  if bitdata1.GetPixel(x,y-1) = TAlphacolors.White then
    fill(x,y-1);
end;

 

Изменено 21 декабря, 2016 пользователем Brovin Yaroslav

[kami]

ой-ё... рекурсия, метод лесного пожара, емнип.

Не, если нельзя ограничить глубину вложенности - само собой можно схватить преполнение стека.

понятно, что всё придумано до нас, но если изобретать велосипеды - я бы завел список из TPoint с невозможностью добавления дубликатов (например - TDictionary) и проходил бы по нему вашим алгоритмом, но вместо рекурсивного вызова - добавление точек в список. Точки, закрашиваемые красным - удаляются из списка. Если на очередном проходе списка количество элементов  = 0 - мы обошли всю фигуру.

Изменено 19 декабря, 2016 пользователем kami