[Vofka]

При открытии формы раскрашивает цветами радуги табличную часть.
Выглядит очень симпатично.

Реализовано в глобальном модуле:

Раскрашивать можно табличные части, таблицы значений и списки (справочников, документов и т.д.)

Перем глМассивЦветов; // 01.04.2011

Перем глГСЧ; // 01.04.2011


#Если Клиент Тогда
Функция РаскраситьСтрокиРадиШутки() Экспорт // 01.04.2011

    Если Формат(ТекущаяДата(), "ДФ=ddMM")="0104" Тогда
        Возврат Ложь;
    КонецЕсли;

    Если глГСЧ.СлучайноеЧисло(0, 100)>13 Тогда
        Возврат Ложь;
    КонецЕсли;

    Возврат Истина;

КонецФункции

Процедура РаскраситьТЧ(Элемент, ОформленияСтрок) Экспорт  // 01.04.2011
    Попытка

        Сч = 0;
        макс = глМассивЦветов.Количество();
        ЭтоТЗ = ТипЗнч(Элемент.Значение)=Тип("ТаблицаЗначений") Или Найти(ТипЗнч(Элемент.Значение), "табличная часть")>0;

        Для Каждого Оформление Из ОформленияСтрок Цикл

            Если ЭтоТЗ Тогда
                Оформление.ЦветФона = глМассивЦветов[ Элемент.Значение.Индекс(Оформление.ДанныеСтроки) % макс];
            Иначе
                Оформление.ЦветФона = глМассивЦветов[ Сч % макс ];
                Сч = Сч+1;
            КонецЕсли;

        КонецЦикла;

    Исключение
    КонецПопытки;
КонецПроцедуры
#КонецЕсли

глГСЧ = Новый ГенераторСлучайныхЧисел;
глМассивЦветов = Новый Массив;
глМассивЦветов.Добавить(Новый Цвет(255, 255, 255));
глМассивЦветов.Добавить(Новый Цвет(254, 251, 251));
глМассивЦветов.Добавить(Новый Цвет(254, 192, 192));
глМассивЦветов.Добавить(Новый Цвет(254, 106, 106));
глМассивЦветов.Добавить(Новый Цвет(254, 68, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 84, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 116, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 164, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 215, 62));
глМассивЦветов.Добавить(Новый Цвет(249, 249, 64));
глМассивЦветов.Добавить(Новый Цвет(165, 234, 74));
глМассивЦветов.Добавить(Новый Цвет(99, 207, 86));
глМассивЦветов.Добавить(Новый Цвет(62, 230, 200));
глМассивЦветов.Добавить(Новый Цвет(62, 237, 254));
глМассивЦветов.Добавить(Новый Цвет(62, 181, 232));
глМассивЦветов.Добавить(Новый Цвет(62, 109, 190));
глМассивЦветов.Добавить(Новый Цвет(160, 62, 185));
глМассивЦветов.Добавить(Новый Цвет(254, 95, 219));
глМассивЦветов.Добавить(Новый Цвет(254, 207, 243));

Для раскраски нужно приписать событие в обработчик ПриПолученииДанных:

Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)

    РаскраситьТЧ(Элемент, ОформленияСтрок); //01.04.2011

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

Взято [необходимо зарегистрироваться для просмотра ссылки]

[logist]

Вот так над нами пошутил отдел АСУ первого апреля два года назад. Все пользователи получили такое сообщение:

[Small sa]

Скоро 1 апреля! =) Есть свежие идеи приколов?

Вот ... наковыряла чего-то..

1. На рабочий стол пользователям можно добавить демотиваторы: [необходимо зарегистрироваться для просмотра ссылки]

2. Бешеные кнопки: [необходимо зарегистрироваться для просмотра ссылки]

3. Можно нарисовать предупреждение о какой-нибудь ошибке (вроде при запуске системы была обнаружена фатальная ошибка, приложение будет закрыто, потеря данных за последний год..), вывести его на центр рабочего стола 1С, сделать ПринтСкрин и запостить как рабочий стол. Или это же предупреждение, только с выбором действия "Обратится к администратору?", при нажатие на которую пользователям предлагается расслабится и получать удовольствие от жизни..и с 1 апреля заодно..

4. Можно по какому-нибудь действию выдавать пользователям анекдоты, байки.

5. При нажатии кнопки ВЫПОЛНИТЬ (где угодно) - "проверка что вы не бот": сосчитайте слоников, назовите столицу Парижа, страну где находится Франция и пр...

[MATEVI]

Потом над Вами прикольнется бухгалтерия и др. отделы Не дадут з/п, или не всю, скажут не хватило. Приказ об увольнении в шутку подсунут Вызовут уборщицу которая основательно помоет короба и системные блоки

[Zaval]

Блин, была идея прикола... так руки и не дошли, а уже и монитров с ЭЛТ не осталось.
Вывести в полноэкранном режиме на черном поле три уменьшающиеся цветные пятна)))

[Small sa]

Потом над Вами прикольнется бухгалтерия и др. отделы Не дадут з/п, или не всю, скажут не хватило. Приказ об увольнении в шутку подсунут Вызовут уборщицу которая основательно помоет короба и системные блоки

Жизненый опыт?

[MATEVI]

Жизненый опыт?

Не! Такого не было. Я так не прикалываюсь. Но если бы был не на этой стороне, то обязательно ответил

[Small sa]

А идеи забавных приколов, которые не вызывут у пользователей желания отомстить, есть?

Мне, кстати еще это понравилось! =)
http://pro1c.org.ua/index.php?showtopic=3612

+ Сканер отпечатков пальцев
[необходимо зарегистрироваться для просмотра ссылки]

[Vofka]

+ Сканер отпечатков пальцев

Прикольно . Только кто потом будет залапанные мониторы вытирать?

[Small sa]

Прикольно . Только кто потом будет залапанные мониторы вытирать?

Сам пользователь?!

[Vofka]

Сам пользователь?!

Честно говоря не понял контекста вопроса. Пользователь чего, монитора? Да, пользуюсь.

[Small sa]

Честно говоря не понял контекста вопроса. Пользователь чего, монитора? Да, пользуюсь.

=))) Это был ответ вопросом на вопрос! =)

Вопрос: Кто будет мониторы вытирать? Ответ: Сам пользователь? (перевожу: Возможно сам пользователь, который монитор заляпает и вытрет?)

[MATEVI]

сам пользователь, который монитор заляпает

Заляпает чем?

[Vofka]

Заляпает чем?

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

[Small sa]

Заляпает чем?

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

[umnica]

Здравствуйте! А кто может Сканер отпечатков пальцев переделать для 8.2? Очень хочется пользователей повеселить на 1 апреля. Спасибо.