Имя: Пароль:
1C
1С v8
Как сделать мигающую надпись на форме ?
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.ЦветТекста = Красный;
   КонецЕсли;        

КонецПроцедуры