powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Мигающий текст - как ?
13 сообщений из 13, страница 1 из 1
Мигающий текст - как ?
    #34879698
ALEXPFR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кто знает как заставить мигать текст (Label) на форме ?
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #34879757
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помести на форму таймер и по его событию мигай текстом.
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #34879813
ALEXPFR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А если без таймера...
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #34879855
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"Вам шашечки или ехать?" (с)
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #34879897
ALEXPFR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И то и другое, желательно без хлеба !
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #34880386
Рома Б.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ALEXPFRА если без таймера...

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

а так либо таймер, либо анимация,....
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #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
Мигающий текст - как ?
    #34880643
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нарисуйте анимированный гиф и положите на форму
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #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
Мигающий текст - как ?
    #34881011
Рома Б.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Выставь свойство таймера:
Interval=1000 (частота в миллисекундах).
Убедись, что свойство Enabled=.T. (по умолчанию).
Используй любую переменную/свойство (например, как в предыдущем примере) в качестве переключателя.
...
Рейтинг: 0 / 0
Мигающий текст - как ?
    #34881051
ALEXPFR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
FOR AleksMed

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

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


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