Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Мигающий текст - как ? / 13 сообщений из 13, страница 1 из 1
19.10.2007, 08:52
    #34879698
ALEXPFR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
Кто знает как заставить мигать текст (Label) на форме ?
...
Рейтинг: 0 / 0
19.10.2007, 09:16
    #34879757
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
Помести на форму таймер и по его событию мигай текстом.
...
Рейтинг: 0 / 0
19.10.2007, 09:34
    #34879813
ALEXPFR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
А если без таймера...
...
Рейтинг: 0 / 0
19.10.2007, 09:48
    #34879855
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
"Вам шашечки или ехать?" (с)
...
Рейтинг: 0 / 0
19.10.2007, 09:57
    #34879897
ALEXPFR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
И то и другое, желательно без хлеба !
...
Рейтинг: 0 / 0
19.10.2007, 12:01
    #34880386
Рома Б.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
ALEXPFRА если без таймера...

Никак.
Или уж ставить на форму OLE-объект "Анимация какая-нибудь". Но это извращение.
...
Рейтинг: 0 / 0
19.10.2007, 12:07
    #34880412
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
Ну зачем так глобально - достаточно анимационого gif-а
...
Рейтинг: 0 / 0
19.10.2007, 12:17
    #34880458
Мигающий текст - как ?
для извращения на скорую руку придумал только вот это....

а так либо таймер, либо анимация,....
...
Рейтинг: 0 / 0
19.10.2007, 12:19
    #34880468
ALEXPFR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
Использую в Timer1.Timer следующий код
IF MOD(SECONDS(),2)=0
THISFORM.TEXT7.ForeColor=RGB(255,0,0)
THISFORM.Refresh
ELSE
THISFORM.TEXT7.FORECOLOR=RGB(0,255,0)
THISFORM.Refresh
ENDIFE

и ничего не происходит - только один цвет.
Запарился уже - не понимаю где ошибка.
...
Рейтинг: 0 / 0
19.10.2007, 12:52
    #34880643
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
нарисуйте анимированный гиф и положите на форму
...
Рейтинг: 0 / 0
19.10.2007, 13:47
    #34880919
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
ALEXPFRИспользую в Timer1.Timer следующий код
IF MOD(SECONDS(),2)=0
THISFORM.TEXT7.ForeColor=RGB(255,0,0)
THISFORM.Refresh
ELSE
THISFORM.TEXT7.FORECOLOR=RGB(0,255,0)
THISFORM.Refresh
ENDIFE

и ничего не происходит - только один цвет.
Запарился уже - не понимаю где ошибка.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
IF EMPTY(This.Tag)
	ThisForm.lABEL1.ForeColor=RGB( 255 , 0 , 0 )
	This.Tag="*"
ELSE
	ThisForm.lABEL1.ForeColor=RGB( 0 , 255 , 0 )
	This.Tag=""
ENDIF
...
Рейтинг: 0 / 0
19.10.2007, 14:09
    #34881011
Рома Б.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
Выставь свойство таймера:
Interval=1000 (частота в миллисекундах).
Убедись, что свойство Enabled=.T. (по умолчанию).
Используй любую переменную/свойство (например, как в предыдущем примере) в качестве переключателя.
...
Рейтинг: 0 / 0
19.10.2007, 14:17
    #34881051
ALEXPFR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающий текст - как ?
FOR AleksMed

Вот то, что надо !

Спасибо.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Мигающий текст - как ? / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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