Заливка с допуском

[devi409]

Скажите пожалуйста как в собственном графическом редакторе осуществить инструмент заливку с допуском?

[mutabor]

не знаю что ты имеешь в виду с допуском, в любом случае Canvas может заливать двумя способами - fsSurface, fsBorder.

type TFillStyle = (fsSurface, fsBorder);
procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);

[JTG]

С допуском в смысле как в фотошопе, т.е. когда цвет границы может лежать в определённом диапазоне.
Ну наверно надо применить заливку несколько раз, изменяя 3й параметр в цикле. Тормозно однако будет Должны быть варианты получше

[devi409]

Ну дак и че? Никаких предложений не будет?
Хотя бы скажте как заливка работает? Как мне ее осуществить? Как выбераются пиксели? а допуск я сам по цветовой гамме подберу.

[devi409]

Люди... ну плиз помогите... как заливку обычную запрограммить?

[JTG]

Блин, ну сказали ж уже.
Заполняет данную область цветом текущей кисти, до тех пор пока не будет достигнут край.
Canvas.FloodFill(10, 10, clBlack, fsBorder);
и в цикле меняешь значение цвета границы (clBlack) на другое, вот тебе и допуск. Но опять же, это тормозной вариант.

есть ещё ExtFloodFill...
Сам алгоритм заливки тут http://home.hccnet.nl/david.dirkse/math/floodfill.html

[devi409]

ну вот!!! что я и спрашивал... сам алгоритм... а случайно на паскале есть?

[bill]

есть алгоритм на паскале. Там сразу идет пример заливки.

[devi409]

что то ссылочка не работа...


ОЙ ... все заработала...

Псиб...

[devi409]

Да... близок локоток да не укусишь...
Алгоритм конечно простой и в коментариях не нуждается... НО
При большом вызове рекурсии возникает ошибка переполнения стека...
Воть...
Хто поможет?