Кнопка реагирует на движение мыши или как поймать координаты курсора

Это не шутка и не розыгрыш !
КНОПКА реагирует на движение мышки, при приближении перемещается в свободное место на форме.
Это реальная обработка с открытым кодом, которая демонстрирует возможность только встроенными средствами 1С отлавливать все действия мыши и нажатие кнопок.
Поймай меня, если сможешь.

 

Шутка старая. Баян не мой. Но сегодня со мной ОЧеНЬ СИЛЬНО спорили , что такое нельзя реализовать без внешних компонент.

Без внешних компонент — лично я имею ввиду, что нет встроенных и подключаемых библиотек (встроенных макетов в обработке нет)

Но у кого нет MS OFFICE на компьютере — может «не взлететь». Почему? Догадайтесь сами — вы же программист.

Оценивайте, комментриуйте. Все гениальное — просто, как мир (с) Ваш Tatitutu

17 Comments

  1. eugeniezheludkov

    т.е по вашему ActiveX компонента это «встроенные средства» и никак не внешние? ) а еще эта обработка не будет работать на Linux, а на Windows XP к примеру ActiveX Radiobutton работает по иному и все это нужно учитывать в коде, я в 2012 хотел огромный бизнес процесс «замутить»/реализовать на «стандартных» ActiveX компонентах и оно даже взлетело на 7, но когда выяснилось что у половины пользователей стоит XP (9000 пользователей) и все это перестало работать, пришлось переделывать заново…ИМХО: мне кажется вы проиграли оппоненту.

    Reply
  2. Tatitutu

    (1) Спасибо за позитивный отзыв.

    Отличное чувство юмора.

    А как бы сделал ты ?

    Завтра (1 апреля) береги спину от мела))))

    Улыбнись, выдыхай и иногда отдыхай.

    Tatitutu — никогда не проигрывает априори. (С)

    Reply
  3. kraynev-navi

    Тогда уж проще в html-поле засунуть javascript, который исполнит этот функционал. И со совместимостью будет получше. Хотя это «такие же» встроенные средства как вам и объяснили в (1).

    Reply
  4. ИНТЕГРА

    Бездельники 🙂

    Reply
  5. Tatitutu

    (3) Этим и прекрасна 1С — что практически любую задачу можно решить различными способами.

    Один будет оптимальный,другой быстрый , третий оригинальный, четвертый — жалкой попыткой.

    Ты еще предложи приложение на смартфон скачать. Если можешь написать — пиши, делись, будем посмотреть.

    Но, еще раз обращаю ваше внимание — это не НОМИНАЦИЯ на Нобелевскую премию.

    Это хороший пример с ОТКРЫТЫМ КОДОМ

    — как отловить нажатие клавиш мыши (промахнитесь по кнопке и кликнетите по форме)

    — нетриваильная работа с КАРТИНКОЙ

    — пример создания программно объекта на форме

    — псевдозаблуждение в коде )))

    — и кучка маленьких секретов

    ну и самое главное — это конечно же ЮМОР и ПОЗИТИВ данной обработки

    Дословно вопрос стоял так : «Хочу сделать убегающую кнопку на форме для бухглатера (достала)» можно ли такое организовать ?»

    около 50 уважаемых мною людей — категорично ответили «НЕТ».

    Что в 1С на форме нельзя получить координаты мыши, что нужно подключать различные БИБЛИОТЕКИ ( *.dll)

    Я сказал , что можно «Засекайте время» 10 строчек кода + бантики = около 15 минут.

    Цель : показать возможность и расширить навыки программирования.

    Применение : указано в теме заголовка 1 АПРЕЛЯ — розыграть коллегу бухгалтера, поднять настроение.

    Я думаю удалось на все 100% — оригинально, без лишних затрах. Думаю для многих будет интересно и полезно.

    В голове уже есть пример двух игрушек — будет время обязательно реализую.

    (4) Не поверишь и рядом не стояли. Шутка ложь- да в ней намек (с)

    Reply
  6. fishca

    Понравилось! Спасибо!

    Reply
  7. Жолтокнижниг

    (5)

    Этим и прекрасна 1С — что практически любую задачу можно решить различными способами

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

    Reply
  8. Tatitutu

    (7) Жолтокнижниг,

    Мне одному кажется , что у этого сайта основное направление 1С

    Ну если тебе смешно, это уже хорошо — значит не все потеряно )))

    Reply
  9. Tatitutu

    C 1 апреля всех и вся ! Налетай !

    Reply
  10. sick_russian

    у меня не сработала.. кнопка тупо зависла на середине формы.. а по клику реклама какой то разработки для магазина))

    Reply
  11. Tatitutu

    (10) sick_russian,

    Какая платформа ? Конфигурация ?

    Microsoft Office установлен на компьюторе ?

    Так как используется объект Microsoft Forms 2.0 Frame

    он то и позволяет «отлавливать» все действия и движения мыши на форме.

    (и не какой-то , а самой лучшей! (с) право автора)

    Reply
  12. Дмитрий74Чел

    (11) в описание добавьте — а то розыгрыш не удался(((

    Reply
  13. bulpi

    Юмор — это хорошо, товарищи. Но «только встроенными средствами 1С» — это не юмор, а обман.

    Reply
  14. Tatitutu

    (13) bulpi, И в чем обман ?

    Ребята, господа, коллеги , друзья , товарищи — где вы все ? Что с вами случилось ?

    Неужели это не элегантное решение — не ужели вы не подчеркнули для себя ,что то нового ?

    Только и гундешь — обман, обман, меня развелииииииииииииииииии.

    А это НЕ «только встроенными средствами 1С» ?

    Reply
  15. Tatitutu

    (12) Дмитрий74Чел,

    Удался ! Еще как удался — и это не розыгрыш и не обман

    Это конкретное решение поставленной задачи и 6 бутылок коньяка.

    И я их честно выиграл в споре.

    Удачи все и ваших начинаниях.

    Вчера хотел выложить НОВУЮ КРЕАТИВНУЮ ИДЕЮ — как сжимать КАРТИНКИ в офисе

    без ВНЕШНИХ КОМПОНЕНТ без АКТИВ Х без всего — один маленький прием и вы в дамках.

    Теперь думаю , а зачем ?

    Все серьезные и злые — неужели так жизнь достала ?

    Вот тут раньше времена были — сайт аж тресся так,что провайдет думал — это блохи.

    За один день можно было стать и ХАРД МОДЕРАТОРОМ и три раза быть забаненным.

    Господа ! Если ВЫ ВСЕ ТАКИЕ УМНЫЕ — предложите АЛЬТЕРНАТИВНЫЙ ВАРИАНТ данной постановки задачи !

    Reply
  16. sikuda

    (15) без ВНЕШНИХ КОМПОНЕНТ без АКТИВ Х без всего

    с тебя одна бутылка. Пример кода даже на УФ.

    &НаКлиенте

    Процедура ПриОткрытии(Отказ)

    ПодключитьОбработчикОжидания(«Отсчет», 0.1, Истина);

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

    &НаКлиенте

    Процедура Отсчет()

    Элементы.Up.Высота = ТекущаяУниверсальнаяДатаВМиллисекундах() % 20;

    Элементы.Left.Ширина = ТекущаяУниверсальнаяДатаВМиллисекундах() % 40;

    ПодключитьОбработчикОжидания(«Отсчет», 0.1, Истина);

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

    &НаКлиенте

    Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)

    ОтключитьОбработчикОжидания(«Отсчет»);

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

    &НаКлиенте

    Процедура СделатьВсе(Команда)

    Сообщить(«Молодец! Возьми пирожок, понюхай его и положи на место.»);

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

    Так, что про сжатие катринок не томи. JPEG это сжатый уже формат, как правило с потерей качества. Как ты предлагаешь еще качество понизить?

    Reply
  17. Tatitutu

    (16) sikuda,

    За идею — спасибо, молодец.

    Но у меня — кнопка реагирует на ПРИБЛЕЖЕНИЕ курсора мышка.

    Изюминка мой идеи : это как раз и отлавливание координат мышки и ее действий

    в простом состоянии она неподвижна.

    В твоем же предложение — она «бегает» как больная ))))

    Так что , бутылку я не проспорил, но с удовольствием бы выпил ее вместе.

    Про картинки помню, спасибо. До конца недели постараюсь отписаться.

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *