День добрый!
Много чего перерыла.....
Можно ли бегущую строку повесить на кнопку?
Спасибо.

При желании можно и в космос полететь... Было бы время и желание...

хоспадя.... нафига?

А можно тут спрошу? Отдельную ветку заводить смысла нет... Короче, вопрос такой: я тут как-то приводил ссылку с картинкой. Дату не помню, ветку тоже. Можно мне эту ссылку быстренько найти?

+3 на картинке была форма отчета.

(3) http://www.forum.mista.ru/mytopics.php?user_id=6029

(5) Это я умею делать... А как дальше? Каждую ветку тыкать?

(6) да

(7) Жестоко...

Все, нашел. Спасибо.

Можно. Но не нужно.
Используя недокументированный _GetPerformanceCounter показывай часть строки со смещением в 1 символ.

Для ъ=1 По ДлинаСтроки Цикл
   БегущаяСтрока = Сред(ИсходнаяСтрока, ъ, СколькоСимволовНаКнопке)
   Форма.КнопкаСБегущейСтрокой.Заголовок = БегущаяСтрока;
КонецЦикла

При нажатии на кнопке нжно:
вывести текст (типа "работаем")
чтобы он (текст) бежал.

В процедуре по кнопке добавила:
s="    Делу - время, делу - время, делу - время, а потехе - час!       ";
Форма.Обновить();
s=right(s,1)+mid(s,1,strlen(s)-1);
Выводи, но не бежит :(((((

децкий сад

(11) Вот:

Перем Замер;
Перем ТекстСтроки;

Процедура Сформировать()

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

Функция БегущаяСтрока()
   Если _GetPerformanceCounter() - Замер > 100 Тогда // 100 миллисекунд
       Замер = _GetPerformanceCounter();
       ПозицияСтроки = ПозицияСтроки + 1;
       Если ПозицияСтроки > СтрДлина(ТекстСтроки) Тогда
           ПозицияСтроки = 1;
       КонецЕсли;
       
       Форма.кнСформировать.Заголовок(Сред(текстСтроки, ПозицияСтроки, 10));
   КонецЕсли;
   Форма.Обновить();
КонецФункции;

Замер = _GetPerformanceCounter();
ТекстСтроки = "            Ничего не хочу делать, я устал ..... ";
ПозицияСтроки = 0;


ТОлько она автоматом не стартует. Срабатывает после клика по любому элементу, например, по кнопке Сформировать с пустым обработчиком.

А, надо еще на форму поместить текстовую метку с формулой БегущаяСтрока(), а у кнопки Сформировать должен быть идентификатор кнСформировать

(0) бгыыыы

накуя????

вы еще на флажок повесьте бегущую строку

готовая поделка... http://depositfiles.com/files/edvsvczsg

(15) На вот, с флажком... http://depositfiles.com/files/bpwmfhbc6

Спасибо.....

надо жмякнуть кнопку или флажок, тогда форма обновится и сработает формула на форме .
---------------------
пожалуйста

У меня еще есть Xonix на 7.7 и тетрис)))

=) любопытно какое действие выполняет кнопка с таким названием

Баловство все это ;)

(22) bynthtcyj jndktxmcz jn ye;yjq hf,jns/

интересно отвлечься от нудной работы

Да, ёлки-моталки! Текст (бегущая строка) на форме, но отображаться должна только при нажатии на определенную кнопку.
Но, по-моему, ничего не выйдет: при нажатии на кнопке происходит поиск в большом exl-файле. Хотелось, чтобы пока идет поиск - бегала строчка. Но чего-то тормоза - жуть....

потому что это не нужно

(25) сделай, как у меня - и всё получится.

Вот думаю, не заинфостартить ли эту поделку - http://s60.radikal.ru/i168/1207/75/aa1e8221cfba.png

(27) Получилось, но тормозит.... Говорю же, большой exl-файл. В нем поиск...
Все равно - СПАСИБО. Интересно же.
(28) Сразу мне исходник. :))))

(29) Да на:

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   ЭлементыФормы.Индикатор.МинимальноеЗначение = 1;
   ЭлементыФормы.Индикатор.МаксимальноеЗначение = КоличествоЭлементов;
   ЭлементыФормы.Индикатор.Шаг = Интервал;
   
   НачалоПроцесса = ТекущаяДата();
   Для ъ=1 По КоличествоЭлементов Цикл
       ОбработкаПрерыванияПользователя();
       Если ъ%Интервал=0 Тогда
           РазницаВремени = ТекущаяДата() - НачалоПроцесса;
           ДоляВыполнения = ъ/КоличествоЭлементов;
           ОценкаОкончания = КоличествоЭлементов/ъ*РазницаВремени;
           ОценкаВремениОкончания = НачалоПроцесса + ОценкаОкончания;
           ОставшеесяВремя = ОценкаВремениОкончания - ТекущаяДата();
           ЭлементыФормы.НадписьОсталось.Заголовок = "Осталось " + ОставшеесяВремя + " с.";
       КонецЕсли;
       ъъ = 0;
       Пока ъъ < 100 Цикл
           ъъ = ъъ + 1;
           Состояние(""+ъ+" "+ъъ);
       КонецЦикла;
       ЭлементыФормы.Индикатор.Значение = ъ;
       ТекущаяДата = ТекущаяДата();
   КонецЦикла;
   Сообщить("Готово " + ТекущаяДата());
   
КонецПроцедуры

(30) Спасибо.

На вот готовую. на 8.1 рисовал. http://depositfiles.com/files/m3ohx8j9q

А теперь давайте усложним задачу... Пусть прога рендерит 3д-сцену склада с указанием занятых и не занятых ячеек склада и помечает нужную ячейку куда можно воткнуть указанную палетту. А лучше не одну ячейку, а все, куда влезет палетта.

(33) Ну ты просто гений-генератор идей.
Для начала - предоставь конфу с реализованным адресным хранением, а потом придумаем, как отрендерить ячейку.

(28)Фигня, на управляемом приложении твоя поделка и гроша ломанного не стоит ;)

(0) можно

(36) А чо, на ИС только УФ?

(37) Эх, месье, опоздал, в (16) об этом свидетельство )))

(33) зачем? мультик для генерала с практически нулевой информативностью для реально й работы?