Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Циклы [D7, XP]


Alll ©   (2007-04-03 03:27:00) 

Уважаемые мастера помогите c организацией правильного цикла для
следующей задачи:жунжно закрасить все чёрные линии красным цветом
нарисованных на форме способом (MoveTo(x,y);LineTo(x,y)).
Я делал так: если на какойто линии имеется красный пиксел и есть чёрные пикселы рядом(т.е на один пиксел в каждую сторону) то этим чёрным пикселям присваевается красный цвет, затем опять проверяется
условие(т.е находится красный пиксел циклом) и тоже самое
Сделал этот цикл в таймере короче получился полный дурдом


Knight   (2007-04-03 09:26:00) [1]

Можно взять стандартный алгоритм и вставить в него паузы..


ЮЮ   (2007-04-03 09:20:00) [2]

Похоже, ему нужна визуализация процесса "растекания" красного по черному, отсюда и таймер.

Вот только изобретать свой дурдом, не видя твоего - не особо хочется :)
Для нахождения приемлимого решения надо:
1) четко описать, что надо (у тебя этого нет)
2) показать, что сделал и чем это не устраивает (дурдом, не худшее решение)


Сергей М.   (2007-04-03 09:00:00) [3]


> Сделал этот цикл в таймере короче получился полный дурдом


Действительно дурдом)
Таймер-то тут причем ?


> пикселы рядом


"Рядом" это как ?
Дай четкоеопределение этому самому "рядом" - и проблема исчезнет сама собой)


Knight   (2007-04-03 08:57:00) [4]

Для ручной заливки есть алгоритмы... если вручную лениво, то есть готовые стандартные функции... и то и другое пора научиться искать ;)


annn   (2007-04-03 04:02:00) [5]

Это потому что так просто нада в программе, чтобы красный цвет
"растекался" от красного пиксела


Джо   (2007-04-03 03:49:00) [6]

> жунжно закрасить все чёрные линии красным цветом
> нарисованных на форме способом (MoveTo(x,y);LineTo(x,y))
> .

А почему бы их и не нарисовать снова, только уже красным цветом? Именно способом  (MoveTo(x,y);LineTo(x,y)).


Наверх

Титульная страница Поиск, карта сайта Написать письмо