Доброго времени суток.Как сделать заливку в графическом редакторе.Вроде это может показаться просто.Но я долго мучался.Так и не смог ничего сделать. программа
Доброго времени суток.Как сделать заливку в графическом редакторе.Вроде это может показаться просто.Но я долго мучался.Так и не смог ничего сделать. программа
Теоретически это делается так. При клике на канвас берётся цвет пикселя под курсором и запоминаем его. Проходимся по каждому смежному пикселю и если он цветом равный запомненному пикселю, то заливаем его нужным цветом и так до тех пор пока не будет смежным пикселей цветом который был у запомненного пикселя.
__________________
TAleD = class(TUser) public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList); end;
Посмотри алгоритм обхода графа в глубину или в ширину (для рисунка лучше в ширину) b сделай аналогично, за смежные вершины возьми пиксели слева, справа, сверху и сниху от текущего (можно и по диаогонали)
__________________
...сказал, и загрустил от бесспорной своей правоты