Функция "Заливка"

[Saber]

Скажите, пожалуйста, как сделать в проге функцию "Заливка", как в Paint?
Спасибо.

[GSerg]

Если реализуешь с нуля, то топай на [url]algolist.manual.ru[/url], там загрузишься по полной.
Но лучше юзать апишки FillRect и FillRgn.

[Black_Star]

Но лучше юзать апишки FillRect и FillRgn.

И что мы сможем этим закрасить ?

[Oxygen]

На http://algolist.manual.ru/ есть только заливка многоугольников, а что же делать с со скругленными фигурами или фигурами нарисованными от руки? Может быть здесь можно обойтись рекурсивным перебором и методом поиска в глубину (когда точка становится источником волны (проверяются смежные вершины) - метод работы с графами)?

[_NeoN_]

тогда картинка 100х100 пикселей будет у тебя минуту краситься...

[Oxygen]

Ага, это точно, но предложи что-нибудь еще. Какие еще алгоритмы есть закраски объестов с произвольными границами?

[GSerg]

Ввиду конечной точности экранного представления, любой гладкий объект можно представить многоугольником, нарисованным на "пиксельной бумаге" (по аналогии с миллиметровой бумагой).

[WEB_13]

Если просто заливка формы, то...

Sub Dither(vForm As Form)
Dim intLoop As Integer
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode = vbPixels
vForm.DrawWidth = 2
vForm.ScaleHeight = 256
For intLoop = 0 To 255
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B
Next intLoop
End Sub

Private Sub Form_Activate()
Dither Me
End Sub

[DiSe]

Люди, пользуйтесь WinAPI. И быстро и удобно. ExtFloodFill - заливка любого региона.