ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пауза или мигающий текст
11 сообщений из 11, страница 1 из 1
Пауза или мигающий текст
    #32975192
Влад (Чернигов,Украина)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Влад (Чернигов,Украина)
Гость
Посоветуйте более красивое решение. Хотел сделать мигающий текст, но в Fox вроде не нашел пауз менее 1 сек - эффект получился не очень. Вот текст:


FOR i=1 TO 3
thisform.label2.ForeColor=RGB(255,0,0)
Form1.paint
INKEY(1)
thisform.label2.ForeColor=RGB(255,255,255)
Form1.paint
INKEY(1)
endfor
...
Рейтинг: 0 / 0
23.03.2005, 09:09
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32975220
Andrey Ts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey Ts
Участник
1. Можно и
Код: plaintext
  thisform.label2.Refresh && быстрее paint

2. Зачем, скажите? может есть лучший выход?
...
Рейтинг: 0 / 0
23.03.2005, 09:20
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32975246
Ilhom_uz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ilhom_uz
Участник
Эта вся твоя прога будет работать на мигание лабел, круто...
Может просто поставить таймер. А в нем в событии timer прописать твой код без inkey(), а у таймера есть свойство INTERVAL-ТАМ ВСЕ В МИЛЛИСЕКУНДАХ
...
Рейтинг: 0 / 0
23.03.2005, 09:34
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32975249
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Таймер - интервал 500 мс и моргай лейбелом пока не надоест
...
Рейтинг: 0 / 0
23.03.2005, 09:35
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32975950
Влад (Чернигов,Украина)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Влад (Чернигов,Украина)
Гость
Я так попытался немного разобраться с таймером и есть непонятность (заодно поправьте если не так понимаю):
1. В программе я активирую таймер когда нужно (Timer.enabled=True).
2. По событию Timer текст свой:

FOR i=1 TO 3
thisform.label2.ForeColor=RGB(255,0,0)
thisform.label2.Refresh
thisform.label2.ForeColor=RGB(255,255,255)
thisform.label2.Refresh
endfor

3. После мигания я деактивирую таймер (Timer.enabled=False).Кстати где это делать - после конца цикла?

Вопрос - событие срабатывает и выполняется код - а в коде у меня 2 смены цвета текста - т.е. тоже нужна задержка - тогда чтобы правильно было нужно делать 2 таймера или я чего-то не понимаю?
...
Рейтинг: 0 / 0
23.03.2005, 12:53
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32975963
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Вставь, вместо цикла в таймере, примерно такой текст

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
do case
	case thisform.label1.forecolor = rgb( 255 , 0 , 43 )
		thisform.label1.forecolor = rgb( 28 , 0 , 255 )
	case thisform.label1.forecolor = rgb( 28 , 0 , 255 )
		thisform.label1.forecolor = rgb( 255 , 255 , 0 )
	case thisform.label1.forecolor = rgb( 255 , 255 , 0 )
		thisform.label1.forecolor = rgb( 255 , 0 , 43 )
endcase
...
Рейтинг: 0 / 0
23.03.2005, 12:57
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32976185
Влад (Чернигов,Украина)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Влад (Чернигов,Украина)
Гость
Все попробовал - спасибо
...
Рейтинг: 0 / 0
23.03.2005, 14:08
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32977430
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi Влад!

Ответы "в лоб":
1) Inkey(0.5) && Интервал может и не быть выдержан - если скажем кнопень надавить какую.

2) DECLARE INTEGER Sleep IN WIN32API INTEGER
Sleep(500) && Интервал всегда выдерживается.
*В описании имён АПИ функций (т.е. после DECLARE ...) рЕгИсТр букв играет огромное значение! Не ошибись.

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
24.03.2005, 02:49
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32979113
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
2 igor
хорошая апи функция
а моно ее при блокировках применять? не пробывали ?
типа попытка блока пауза и так № раз потом запрос пользователю на продолжение процесса
...
Рейтинг: 0 / 0
24.03.2005, 16:29
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32979855
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
2leaf Если использовать Set Reprocess To 0 seconds результат попытки блокирования будет самый быстрый - поэтому можно огранизовать свой цикл ожидания блокировки - с анимацией, киношками и картинками
обсуждалось там http://]http://forum.foxclub.ru/read.php?f=5&i=91652&t=91591&cp=1
...
Рейтинг: 0 / 0
25.03.2005, 07:24
| Ответить | Цитировать | Написать  
Пауза или мигающий текст
    #32980478
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
2piva
не плохо правда не до конца понял но идею схватил спасибо
...
Рейтинг: 0 / 0
25.03.2005, 12:12
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пауза или мигающий текст
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]