В QBasic'e была такая функция как Point, которая закрашивала все как ты сказал.

Синтаксис функции забыл...

Ответить

Это я знаю, только по моему Paint, а Point – это определение цвета точки, но это не важно. В VB определить цвет точки можно, а залить не получается. Можно только нарисовать круг, овал квадрат и т.д. пустой или закрашенный, а вот  произвольные области никак. Думаю без спецконтрола не обойтись.

Может в Delphi есть что-то приемлемое, кто сталкивался с таким?

Ответить

Paint

Ерунда, никаких Delphi. Все замечательно делается на VB. Все, что для этого надо - волновой алгоритм. (На Delphi тем более, он там еще сложнее будет). Если не в курсе, могу рассказать и даже примерчик выложить.

2Admins: нужен пример демонстрации волнового алгоритма?

Ответить

Гемор, конечно, но попробуй юзать API FillRgn.

Ща, еще потыкаюсь, может че умное и скажу

Ответить

Нашел! Есть API BOOL FloodFill( int x, int y, COLORREF crColor )

Она делает как раз то, что надо.

Ответить

Сорри, вот как все это работает:

1. Кидаем пикчубокс (Pic1) и две кнопки (Command1 и Command2)

2. В коде

Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()

Pic1.ScaleMode = 3 'pixel

Pic1.Line (10, 10)-(10, 50), 0

Pic1.Line -(60, 70), 0

Pic1.Line -(20, 50), 0

Pic1.Line -(80, 30), 0

Pic1.Line -(10, 10), 0

End Sub

Private Sub Command2_Click()

Pic1.FillStyle = 0 ' Выбираем кисть

FloodFill Pic1.hdc, 25, 25, 0 'Закрашиваем

End Sub

Ответить

Ответить

Только маленький(ОГРОМНЫЙ) ньюанс: если что-нибудь закрасить, а потом нажать на другую форму, чтоб та перекрыла эту, а потом опять посмотреть на рисунок.....

о мля все труды дочки пропали в мастдае...

Ответить

а вот и решение:

pic1.autoredraw=true

и после каждого деётвия c pic1 надо ставить pic1.refrech!!!!!!

Ответить

2TheOne - надо при рисовании делать pic.autoredraw=true, рисовать, а потом pic.autoredraw=false (или наоборот )

2Павел: [ПОЗА]Я примеры не ворую![/ПОЗА] Я их просто изменяю до неузнаваемости и хорошенько оформляю . А без приколов - где можно своровать исходник закрашивания волновым алгоритмом? Они обычно на паскале пишутся, без всяких примеров...

2Славик: "Хочу своей дочурке сделать разукрашку. Я знаю что существует множество готовых программ, но я хочу сам её изготовить." - Я растроган! Аж слезы на глаза наворачиваются (а может это от холода, мы окна в общаге не заклеили ). Ну почему мне в детстве никто не писал игрушки на БК0010???

Пример сейчас кину (если найду, хе-хе...)

Ответить

А я и на БК0010 писал игрушки, только у меня это получалось гораздо лучше чем на VB.

Спасибо за помощь, пока все работает. Будут проблемы снова обращусь к вам. Как только закончу прогу обязательно закину её в бета-тест, может еще чего придумаем. 

На самом деле я собираюсь написать не только разукрашку, еще планируется изготовить красочные обучалки математике, чтению и пр. и ко всему этому приляпаю 700 мегов детских песенок в Мр3.

Ответить

Руль. Тогда можно будет болванки нарезать... "Программы для самых маленьких"... нигде такое не видел.

Ответить

Нарезать то можно, а как 700 Мб пересылать?

Да, и еще, не думайте, что завтра все будет готово. Я человек очень занятой, так что работа может затянуться на месяц и более (если еще и украшать все по уму).

Чур никому не повторять, обвиню в плагиате

Ответить

700 метров пересылать по почте. На болванке.

Ответить

Ответить