|
Как сделать мигающую надпись на форме ? | ☑ | ||
---|---|---|---|---|
0
Родной
17.10.11
✎
11:20
|
Нужно сфокусировать внимаение пользователя на определенном сообщений. Хочется сделать мигающую надпись. Как оптимальней всего это сделать ?
Спасибо. |
|||
1
КВАДРО2
17.10.11
✎
11:21
|
Выводить сначала серую надпись, потом черную, получится эффект мигания
|
|||
2
butterbean
17.10.11
✎
11:22
|
gif-ку кинь на форму
|
|||
3
Родной
17.10.11
✎
11:24
|
(1)Мне бы в обновление отображения этот вызов запихнуть. Наверное будет слишком часто...
|
|||
4
Родной
17.10.11
✎
11:24
|
(2)Заморочено, потому что текст сообщений может быть самый разный.
|
|||
5
Сергей Д
17.10.11
✎
11:27
|
Делал когда-то вот такую надпись, меняющую цвет.
перем мШагК; перем мШагЗ; перем мШагС; перем мЗнакК; перем мЗнакЗ; перем мЗнакС; Функция ПолучитьНовыйЦвет(Цвет) к=Цвет.Красный; з=Цвет.Зеленый; с=Цвет.Синий; если к<0 тогда к=1; конецесли; если з<0 тогда з=1; конецесли; если с<0 тогда с=1; конецесли; к=к+мШагК*мЗнакК; з=з+мШагЗ*мЗнакЗ; с=с+мШагС*мЗнакС; если к<=0 или к>=255 тогда если к<0 тогда к=0; иначеесли к>255 тогда к=255; конецесли; мЗнакК=-мЗнакК; мШагК=мГСЧ.СлучайноеЧисло(5,10); конецесли; если з<=0 или з>=255 тогда если з<0 тогда з=0; иначеесли з>255 тогда з=255; конецесли; мЗнакЗ=-мЗнакЗ; мШагЗ=мГСЧ.СлучайноеЧисло(5,10); конецесли; если с<=0 или с>=255 тогда если с<0 тогда с=0; иначеесли с>255 тогда с=255; конецесли; мЗнакС=-мЗнакС; мШагС=мГСЧ.СлучайноеЧисло(5,10); конецесли; возврат новый Цвет(к,з,с); КонецФункции Процедура НовыйЦвет() ЭлементыФормы.Надпись2.ЦветТекста=ПолучитьНовыйЦвет(ЭлементыФормы.Надпись2.ЦветТекста); КонецПроцедуры Процедура ПередОткрытием(Отказ, СтандартнаяОбработка) ПодключитьОбработчикОжидания("НовыйЦвет",1); КонецПроцедуры мШагК=мГСЧ.СлучайноеЧисло(5,10); мШагЗ=мГСЧ.СлучайноеЧисло(5,10); мШагС=мГСЧ.СлучайноеЧисло(5,10); мЗнакК=1; мЗнакЗ=1; мЗнакС=1; |
|||
6
Nallama
17.10.11
✎
11:27
|
Можно на обработчик ожидания смену цвета повесить.
|
|||
7
Nallama
17.10.11
✎
11:29
|
(5) =)
&НаКлиенте Процедура Мигать() Красный = Новый Цвет(255,0,0); Синий = Новый Цвет(0,0,255); Если Элементы.Декорация7.ЦветТекста = Красный Тогда Элементы.Декорация7.ЦветТекста = Синий; Иначе Элементы.Декорация7.ЦветТекста = Красный; КонецЕсли; КонецПроцедуры |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |