Небольшое украшение для 1С-Предприятие-7.7

1) Демо-обработка: Обои для 1С-Предприятие-7.7

2) Демо-обработка: Выбор файла с обоями из списка

3) Демо-обработка: прокрутка обоев в обратном направлении и обновление списка файлов с обоями

Поздравляю всех девушек с 8 марта!
Желаю им цвесть-расцветать и радовать глаз всех окружающихю
По поводу такого случая предлагаю небольшое украшение для 1С-Предприятие-7.7 + тематичекую подборку слайдов.

Травка зеленеет,
 Солнышко блестит;
 Ласточка с весною
 В сени к нам летит.

Предлагаемая обработка устанавливает обои в главном окне 1С и меняет их с установленным интервалом в секундах (Рис.1).

Так же позволяет «прокрутить» текущие обои вручную (кнопками) или выбрать их из списка файлов (Рис.2).

Отрицательное значение интервала прокрутки соответствует просмотру слайдов в обратном направлении.

В качестве файлов с обоями используются картинки *.bmp из каталога обработки (к сожалению другие форматы объектом ‘Сервис’ не понимаются).

При удалении или добавлении файлов картинки можно кнопкой обновить список файлов без переоткрытия обработки (Рис.3).

Для обработки нужна ВК FormEx.dll (все есть в файле поставки SlideShow.rar).

Если файл библиотеки FormEx.dll лежит в каталоге обработки, то специально ее загружать не требуется. Обработка при необходимости сама ее загрузит.

ИСПОЛЬЗОВАНИЕ:

Для использования обработки нужно прото ее открыть.

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

Далее с указаной периодичностью (по умолчанию 5 минут) обработка меняет картинку обоев на следующую в списке.

При установке картинки в качестве обоев также меняется цвет фона окна.

Кнопки «В лево», «В право» позволяют установить в качестве обоев следующую (предыдущую) картинку из списка.

Кнопка «Вниз» (Рис.3) позволяет непосредственно выбрать из списка картинку для установки обоев.

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

ПРИМЕНЕНИЕ:

Обработка носит демонстрационный характер.

Конкретная реализация — на усмотрение разработчика.

PS:

Лично я использовал этот механизм в одной,
гарантированно открываемой при начале работы форме

для поздравления с 8 марта (всех прекрасных пользователей),

с 1 апреля (всех избранных пользователей ) и с днями рождения (персонально).

22 Comments

yuraos 28.12.2011 at 17:10

Еще раз с новым годом! 😀

Reply ↓
yuraos 28.12.2011 at 22:52

Всем доброго времени суток!

Постарался учесть замечания Tatitutu:

Подрезал размер картинок в архиве.

Добавил кнопки для листания обоев не дожидаясь обработчика ожидания.

При закрытии обработка отключает обои.

Reply ↓
Шёпот теней 28.12.2011 at 23:32

нуууу, наДОжеее … и знАтоки «НЕломаются» делать рабочие столы … )))

… вотПРЯМЬвот …

п.с.1. ноКомментс-с …

п.с.2. а «простые» смерды это делали на штатной 1С … без ДЛЛ-ок разных …

п.с.3. надеюсь «включение» картинок под различные прАздники автоматическое ?!

п.с.4. и замена слАйдов ?!

п.с.5. … вотПРОСТОвот …

Reply ↓

yuraos 29.12.2011 at 09:13

(3) Шёпот теней,

дык «смерд» же он гигимон был и езьм!

он как известно на выдумки горазд,

;)))))) и пишет что-то вроде этого:

Процедура РаспаковатьBin(ИмяФайла,ИдентификаторФайла,РазмерФайла)
ИмяВременногоФайла=КаталогФормы+ИмяФайла;
ТекстСкрипта=»
|Sub Main
| Dim FSO,F
| Set FSO = CreateObject(«»Scripting.FileSystemObject»»)
| Set F = FSO.OpenTextFile(«»»+КаталогФормы+ИмяФормы+»»»,1)
| Str = «»»»
| BeginFind = 0
| Do
|  Char = F.Read(1)
|  Str = Str & Char
|  If BeginFind = 0 Then
|   If Right(Str,»+СокрЛП(СтрДлина(ИдентификаторФайла))+»)=»»»+ИдентификаторФайла+»»» Then
|    BeginFind = 1
|    Str = «»»»
|   End If
|  Else
|   If Right(Str,2) = «»BM»» Then
|    F.Skip(1076)
|    Str=F.Read(«+СокрЛП(РазмерФайла)+»)
|    F.Close
|    Set F=FSO.CreateTextFile(«»»+ИмяВременногоФайла+»»»)
|    F.Write(Str)
|    F.Close
|    Exit Do
|   End If
|  End If
| Loop While F.AtEndOfStream=0
|End Sub
|»;
VBS=СоздатьОбъект(«MSScriptControl.ScriptControl»);
VBS.Language=»vbscript»;
VBS.Timeout=-1;
VBS.AddCode(ТекстСкрипта);
VBS.Run(«Main»);
КонецПроцедуры

Показать

эх а мы разнесчастные дворяне-разночинские (или там разночинцы-дворянские)

dll-ками забавляемся, напрашиваясь гнев великий и правидный админов государевых.

Reply ↓

yuraos 29.12.2011 at 09:20

(3) Шёпот теней,

а что, друг мой Гораций, мы можем сказать …

… о природе мышиной возни ???

ВОТонаГИПЕРССЫЛКАонаВОТ

Reply ↓
TrinitronOTV 29.12.2011 at 14:08

что-то больно злобно выглядит змейка на скриншоте…

Reply ↓
yuraos 29.12.2011 at 22:24

TrinitronOTV пишет:

что-то больно злобно выглядит змейка на скриншоте…

ага, конец света же!

;))))))))))))))))))))

это когда со ЗЛОМ борется другое ЗЛО

РИДДДДДДДДИК !!!!!!!

Reply ↓
Boroda 29.12.2011 at 22:38

Оригинально….! Уже и семёрка преображается! А может поспешили с 8-кой, и с 7-ки не всё ещё выжали…?

Reply ↓
yuraos 29.12.2011 at 22:51

(8) Boroda, и уже давно «преображается», вот почитай на досуге:

http://www.1cpp.ru

http://www.dorex.pro/

—

по поводу спешки — это ты Боре Нуралиеву отпеши :)))))))

—

ЗЫ

ДА! и восьмерку тоже в последнее начали «преображать» потихоньку:

http://snegopat.ru

Reply ↓
АлексейН 30.12.2011 at 11:47

Спасибо классно.

Так может не все еще из семерки выжали???

Reply ↓
yuraos 05.01.2012 at 19:47

Всем привет, с наступившим новым годом!

Reply ↓
yuraos 05.01.2012 at 20:09

Всем доброе время суток!

Обновлен файл поставки SlideShow.rar.

Текущие изменения:

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

2) Добавлена кнопка для обновления списка файлов обоев, полезна

после добавления новых картинок в каталог обработки или удаления старых.

3) Теперь допустимо задания интервала прокрутки слайдов меньше нуля.

Отрицательное значение соответствует прокрутке слайдов в обратном направлении с тем же интервалом.

Reply ↓
Sanches36 06.01.2012 at 16:01

Не плохо, как-нибудь сам попробую сотворить что то похожее.

Reply ↓
lilly 12.01.2012 at 22:11

Спасибо))) Создает новогоднее настроение)))

Reply ↓
ssst 13.01.2012 at 11:31

Со старым новым годом

Reply ↓
kler_2009 16.01.2012 at 15:18

Прикольно!

Reply ↓
anna30 21.01.2012 at 15:28

классненько!

Reply ↓
xklos 15.02.2012 at 09:40

А ничо так 🙂 а кого есть решение типа рабочего стола для 7ки давно хотел типа на права завязать картинку символ организации если права обрезанные и рабочий стол с документами справочниками отчетами и обработками под конкретного сотрудника 🙂

Reply ↓
vladtimof 12.03.2012 at 19:33

большое спасибо автору

Reply ↓
Rockman 14.03.2012 at 16:15

Спасибо.

Reply ↓
selesta 30.03.2012 at 11:38

использую для установки обоев в 1с в виде матрицы (сетки) из логотипа компании, в конфигурации которую масово используют клиенты — брендирование, так сказать 🙂

Reply ↓
mt111 31.07.2014 at 17:45

(6) да она не злобная а замученная просто ее бухгалтера достали))

Reply ↓

Небольшое украшение для 1С-Предприятие-7.7

Related Posts

22 Comments

Leave a Comment Отменить ответ