Курилка 1 апреля наступает!

Думал сделать банальную убегающую кнопку с вопросами, да что-то так и не нашел как это реализовать в 1С 8.
Коллеги, кто что делал, планирует, поделитесь... Уж больно хочется поиздеватся...

Супер, но это нужно на всех компах для всех пользователей домена... как-то уж сильно затратно

Я тоже самое хотел с убегающей кнопкой замутить... твоя идея - отличная альтернатива ))))

Итак, обработка по идее BabySG во вложении
+ отсканированная статья об убегающей кнопке в 1С. Посмотреть вложение 3679

Спасибо за данную обработку
Мои работники склада смеялись около часа

У нас есть удаленное подразделение где тетка СОВСЕМ БЕЗ ЧУВСТВА ЮМОРА
она пыталась минут 5 понять что это такое !!!!

Оказывается НАЧАЛЬНИК УВИДАЛ у ТЕТКИ на мониторе и закричал: Скорее закрывай! Это вирус!!

Потом ТЕТКА начала названивать моему сисадмину и разобраться сним что это такое ....

А он тоже СОВСЕМ БЕЗ ЧУВСТВА ЮМОРА ....

я в одном кабинете - и когда услышал про сапог - подсказал что это шутка ....

ТЕТКА и мой СИСАДМИН сошлись во мнении что 1С - КОЗЛЫ
когда сказал что это моя шутка -- второй час со мной не разговаривает

------------------------------------------------
а реакция складских работников была приблизительно такая

------------------------------------------------
:unsure: ой не могууууууууууууууу
------------------------------------------------
Витка рыдает уже :smile:
------------------------------------------------
ну всё
мы под столом
вам не слышно как мы ржем??? :aua:
------------------------------------------------

Всегда пожалуйста )) я, к сожалению, сегодня отстуствовал по личным причинам, не смог насладиться ((

А таких товарищей я настроечкой отрубил от обработки... от греха подальше )))

А вот и проверилось кто же у нас без чувства юмора ,
я предположить не мог что у меня системщик , не понимает юмора

А что это, простите, за издание 1С-овой направленности?

Журнал Сестемный администратор, из названия понятно, что он не 1С-овской направленности, но иногда проскакивает

Я бы процедуры в обработке исправил на нечто такое:

Код:

Процедура ЭлементУправления1MouseMove(Элемент, Button, Shift, X, Y)

ГСЧ = Новый ГенераторСлучайныхЧисел();
СЧ = ГСЧ.СлучайноеЧисло(ЭлементыФормы.КоманднаяПанель1.Высота, ЭтаФорма.Высота);
Если СЧ >= ЭтаФорма.Высота Тогда

СЧ = СЧ + 10;
ЭлементыФормы.ЭлементУправления1.Верх = СЧ;
СЧ = СЧ + 5;
ЭлементыФормы.ЭлементУправления1.Лево = СЧ;

Иначе

СЧ = СЧ - 10;
ЭлементыФормы.ЭлементУправления1.Верх = СЧ;
СЧ = СЧ - 5;
ЭлементыФормы.ЭлементУправления1.Лево = СЧ;

КонецЕсли; 

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


Процедура ЭлементУправления2MouseMove(Элемент, Button, Shift, X, Y)

ГСЧ = Новый ГенераторСлучайныхЧисел();
СЧ = ГСЧ.СлучайноеЧисло(ЭлементыФормы.КоманднаяПанель1.Высота, ЭтаФорма.Высота);
Если СЧ >= ЭтаФорма.Высота Тогда

СЧ = СЧ + 10;
ЭлементыФормы.ЭлементУправления2.Верх = СЧ;
СЧ = СЧ + 5;
ЭлементыФормы.ЭлементУправления2.Лево = СЧ;

Иначе

СЧ = СЧ - 10;
ЭлементыФормы.ЭлементУправления2.Верх = СЧ;
СЧ = СЧ - 5;
ЭлементыФормы.ЭлементУправления2.Лево = СЧ;

КонецЕсли; 

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

Цихварки прибавления и вычитания из СЧ можно сделать под себя...)))

:/

Леплю такие предупреждения везде где только можно. И все равно умудряются напартачить. ))