|
Как сделать мигающую надпись на форме ? |
☑ |
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.ЦветТекста = Красный;
КонецЕсли;
КонецПроцедуры
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший