gifts2017

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

Опубликовал Юрий Осипов (yuraos) в раздел Программирование - Работа с интерфейсом

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

 Wink

 



 

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

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

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

 

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

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

 

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

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

 

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

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

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

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

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

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

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

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

 

ПРИМЕНЕНИЕ:

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

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

PS:

Лично я использовал этот механизм в одной,
гарантированно открываемой при начале работы форме
для поздравления с 8 марта (всех прекрасных пользователей), 
с 1 апреля (всех избранных пользователей Cool) и с днями рождения (персонально). 

Скачать файлы

Наименование Файл Версия Размер
SlideShow.rar 56
.rar 5,57Mb
03.03.12
56
.rar 5,57Mb Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Юрий Осипов (yuraos) 28.12.11 17:10
2. Юрий Осипов (yuraos) 28.12.11 22:52
Всем доброго времени суток!
Постарался учесть замечания Tatitutu:
Подрезал размер картинок в архиве.
Добавил кнопки для листания обоев не дожидаясь обработчика ожидания.
При закрытии обработка отключает обои.
3. Александр Шишкин (Шёпот теней) 28.12.11 23:32
нуууу, наДОжеее ... и знАтоки "НЕломаются" делать рабочие столы ... )))

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

п.с.1. ноКомментс-с ...
п.с.2. а "простые" смерды это делали на штатной 1С ... без ДЛЛ-ок разных ...
п.с.3. надеюсь "включение" картинок под различные прАздники автоматическое ?!
п.с.4. и замена слАйдов ?!
п.с.5. ... вотПРОСТОвот ...
4. Юрий Осипов (yuraos) 29.12.11 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-ками забавляемся, напрашиваясь гнев великий и правидный админов государевых.
Шёпот теней; +1 Ответить
5. Юрий Осипов (yuraos) 29.12.11 09:20
(3) Шёпот теней,
а что, друг мой Гораций, мы можем сказать ...
... о природе мышиной возни ???
ВОТонаГИПЕРССЫЛКАонаВОТ
Шёпот теней; +1 Ответить
6. Александр Лыткин (TrinitronOTV) 29.12.11 14:08
что-то больно злобно выглядит змейка на скриншоте...
7. Юрий Осипов (yuraos) 29.12.11 22:24
TrinitronOTV пишет:

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

ага, конец света же!
;))))))))))))))))))))
это когда со ЗЛОМ борется другое ЗЛО
РИДДДДДДДДИК !!!!!!!
8. Vladimir (Boroda) 29.12.11 22:38
Оригинально....! Уже и семёрка преображается! А может поспешили с 8-кой, и с 7-ки не всё ещё выжали...?
9. Юрий Осипов (yuraos) 29.12.11 22:51
(8) Boroda, и уже давно "преображается", вот почитай на досуге:
www.1cpp.ru
http://www.dorex.pro/
--
по поводу спешки - это ты Боре Нуралиеву отпеши :)))))))
--
ЗЫ
ДА! и восьмерку тоже в последнее начали "преображать" потихоньку:
http://snegopat.ru
10. Алексей (АлексейН) 30.12.11 11:47
Спасибо классно.
Так может не все еще из семерки выжали???
12. Юрий Осипов (yuraos) 05.01.12 19:47
Всем привет, с наступившим новым годом!
13. Юрий Осипов (yuraos) 05.01.12 20:09
Всем доброе время суток!
Обновлен файл поставки SlideShow.rar.

Текущие изменения:
1) В форму демо-обработки добавлена кнопка для выбора файла обоев из списка значений.
2) Добавлена кнопка для обновления списка файлов обоев, полезна
после добавления новых картинок в каталог обработки или удаления старых.
3) Теперь допустимо задания интервала прокрутки слайдов меньше нуля.
Отрицательное значение соответствует прокрутке слайдов в обратном направлении с тем же интервалом.
14. Василий Третьяков (Sanches36) 06.01.12 16:01
Не плохо, как-нибудь сам попробую сотворить что то похожее.
16. Иляна Кандаурова (lilly) 12.01.12 22:11
Спасибо))) Создает новогоднее настроение)))
17. Оля К (ssst) 13.01.12 11:31
18. Светлана Корнеева (kler_2009) 16.01.12 15:18
19. анна Анютка (anna30) 21.01.12 15:28
20. Alexandr (xklos) 15.02.12 09:40
А ничо так :) а кого есть решение типа рабочего стола для 7ки давно хотел типа на права завязать картинку символ организации если права обрезанные и рабочий стол с документами справочниками отчетами и обработками под конкретного сотрудника :)
21. Владимир Тимофеев (vladtimof) 12.03.12 19:33
22. Алексей (Rockman) 14.03.12 16:15
23. selesta (selesta) 30.03.12 11:38
использую для установки обоев в 1с в виде матрицы (сетки) из логотипа компании, в конфигурации которую масово используют клиенты - брендирование, так сказать :)
24. Роман Сафонов (mt111) 31.07.14 17:45
(6) да она не злобная а замученная просто ее бухгалтера достали))
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа