Когда речь заходит о 1С:Бухгалтерии, первое, что приходит на ум – проводки, налоги и отчетность. Но что, если мы добавим в строгий мир бухгалтерского учета немного уюта? Давайте представим, что в вашей конфигурации поселился… виртуальный котик!

А как "поселить" котика в 1С:Бухгалтерию?

Чтобы не нарушать логику учета, просто добавим обработку, которая рисует котика прямо в интерфейсе программы.

Шаг 1. Создаем обработку

  1. Откройте Конфигуратор → Файл → Новый → Обработка.

2.  Назовите её, например, "КотикБухгалтер".

Шаг 2. Добавляем форму с рисунком

         В элементы формы добавьте:

  • Поле рисунка (назовите его "РисунокКотика").
  • Кнопку "Показать котика".

Шаг 3. Код для рисования котика

В модуле формы пропишите:

&НаКлиенте
Процедура ПоказатьКотика(Команда)
    
    // Создаем графический контекст
    Графика = Новый ГрафическийКонтекст(РисунокКотика);
    Графика.Очистить();
    
    // Настройки кистей
    ЧерноеПеро = Новый Перо(Цвета.Черный, 2);
    СерыйКотик = Новый Кисть(Цвета.Серый);
    БелыйФон = Новый Кисть(Цвета.Белый);
    
    // Рисуем голову (круг)
    Графика.Эллипс(50, 30, 100, 100, ЧерноеПеро, СерыйКотик);
    
    // Ушки (треугольники)
    Точки = Новый Массив();
    Точки.Добавить(Новая Точка(70, 20));
    Точки.Добавить(Новая Точка(50, 50));
    Точки.Добавить(Новая Точка(90, 50));
    Графика.Многоугольник(Точки, ЧерноеПеро, СерыйКотик);
    
    // Глаза
    Графика.Эллипс(80, 70, 15, 15, ЧерноеПеро, БелыйФон);
    Графика.Эллипс(120, 70, 15, 15, ЧерноеПеро, БелыйФон);
    Графика.Эллипс(85, 75, 5, 5, ЧерноеПеро, Новый Кисть(Цвета.Зеленый));
    Графика.Эллипс(125, 75, 5, 5, ЧерноеПеро, Новый Кисть(Цвета.Зеленый));
    
    // Носик и ротик
    Графика.Эллипс(105, 90, 5, 5, ЧерноеПеро, Новый Кисть(Цвета.Розовый));
    Графика.Кривая(105, 95, 105, 105, 115, 105, ЧерноеПеро);
    
    // Усы
    Графика.Линия(105, 95, 70, 100, ЧерноеПеро);
    Графика.Линия(105, 95, 140, 100, ЧерноеПеро);
    
КонецПроцедуры