Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.12.2007, 17:57
Jintys Jintys вне форума
Прохожий
 
Регистрация: 06.12.2007
Сообщения: 5
Репутация: 10
По умолчанию Фракталы.........

Здравствуйте!
Написал фрактал,множество Жулиа!Все работает!но появилась необходимость сделать следующее...
При нажатии на кнопочку цвет фрактала должен изменяется до тех пор пока не нажата ента кнопка второй раз!!!
Как енто сделать???подскажите плиззз!!!
Ответить с цитированием
  #2  
Старый 07.12.2007, 18:45
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
По умолчанию

Поставь таймер, рисуй по тем же координатам (т.е заново) но другим цветом.
Ответить с цитированием
  #3  
Старый 08.12.2007, 00:12
Jintys Jintys вне форума
Прохожий
 
Регистрация: 06.12.2007
Сообщения: 5
Репутация: 10
По умолчанию

Что то есть!но немного нето!как сделать так чтобы цвет менялся динамически, т.е. черный......прошли все цвета.....черный , и так по кругу!какой интервал ставить в таймере??количество итераций влияет на скорость???программа когда таймер в режиме вкл. висит .т.е не реагирует на мои деиствия!как енто справить???хотелось бы получить что то похожее как в программе Infi-)))
Спасибо заранее!!
Ответить с цитированием
  #4  
Старый 20.12.2007, 12:53
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Восклицание

Если тормозит сделай всю отрисовку в отдельном потоке, тогда и с таймером заморачиваться не придётся( про потоки можно почитать например тут: http://www.delphiworld.narod.ru/base...velopment.html)
а чтобы цвета шли по кругу(кстати определись, сколько тебе их надо)
то проще забить их все в массив констант, напр:
Код:
const
  Colors:array[1..5] of TColor = (clBlack,clGreen,clYellow,clLime,clRed);
и при каждой прорисовке брать из массива следующий цвет(сделать переменную типа integer для текущего индекса в массиве и увеличивать на 1 при каждой прорисовке и ставить равной 1 если она будет больше 5(в моём случае макс индекс массива).
Про фракталы можно посмотреть исходники тут:
http://fract.narod.ru/down.html
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:14.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter