IE2017

"пАздрАвлЯлкА" для семёрки ...

Сообщество - Поздравления

Решил сделать «поздравлялку» с праздниками в 1С 7.7.

Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует.

Решение искалось исключительно штатными средствами.

.

.

 

Решение следующее.

 

1. Создаём папку «Addition» в каталоге информационной базы.

 

2. В каталоге «Addition» создаём несколько внешних обработок по количеству праздников с разными картинками у формы обработок, например «Events_holiday_NewYear_1.ert» и «Events_holiday_NewYear_2.ert».

 

3. В каталоге «Addition» создаём обработку «Events.ert» которая и является программным шлюзом. Её задача, получив управление выполнить дополнительные функции - в данном случае в зависимости от текущей даты запускать соответствующие, ранее созданные, обработки с поздравлениями.

 

4. Делаем программный шлюз в глобальном модуле следующим образом:

 

Подключение шлюза:

 

 

Процедура ПриНачалеРаботыСистемы()

 …. текст модуля …

//Алекс 09.12.2010 начало   

        // Загрузка программного шлюза дополнительных возможностей    

                        Попытка

                                                           путь_КаталогИБ = КаталогИБ();

                                                           путь_КаталогОбработка = "Addition\Events.ert";  

                                               Путь = путь_КаталогИБ + путь_КаталогОбработка;

                                   ОткрытьФорму("Отчет",,Путь);

                        Исключение

                                   // Обработка исключительной ситуации;

                        КонецПопытки;

//Алекс 09.12.2010 конец    

            

КонецПроцедуры // ПриНачалеРаботыСистемы()


 

 

Небольшой пример обработок смотри в прилагаемом файле-архиве.

 

 

За последние 5 лет первая программа на 7-ке. Многое забыл или не знал.

 

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

 

Спасибо Арчибальду и Альтаиру за помощь и поддержку.

 

… вот …

 

С Уважением Шёпот теней …

 

.

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

Наименование Файл Версия Размер
Addition.rar
.rar 1,03Mb
18.11.14
107
.rar 1,03Mb 107 Скачать

См. также

Комментарии
1. Александр Шишкин (Шёпот теней) 1696 13.12.10 14:12 Сейчас в теме
... моя первая программа на 7-ке за последние пять лет ... уффф ... даже вспотел ... вот ...
2. Ирина Пятакова (Alraune) 1392 13.12.10 14:43 Сейчас в теме
(1) Лучше бы вспотели посильнее, но написали правильно название
3. Александр Шишкин (Шёпот теней) 1696 13.12.10 14:57 Сейчас в теме
... нуууу ... ужжж ... а мне понДравилось ... ))) ... вот ...

п.с. первый блин всегДА комом ...
4. Rusk Сухотеорин (Rusk51) 88 13.12.10 18:39 Сейчас в теме
Ох уж эти поздравлялки. Все надоело.
5. Аркадий Кучер (Abadonna) 3683 14.12.10 03:49 Сейчас в теме
Наконец-то! Свершилось! Додуматься ПриНачалеРаботыСистемы() запустить стартовую обработку - уже вспотеть можно, а придумать к ней название
"программный шлюз" - это уже за рамками реальности.
И где, простите,
Небольшой пример обработок смотри в прилагаемом файле-архиве.
?????
вОт таК КАк-ТО....
6. Александр Шишкин (Шёпот теней) 1696 14.12.10 08:06 Сейчас в теме
(4) ... в принципе СОгласен ... а чтоБЫ ВЫ хотели ? например как максимизировать окно обработки штатными 1С и Виндоус средствами ? ...
(5) ... СпАсиБО ! Абадонна ! ... испрАвил ... (хм, странно ... точно помню что вставлял. виноват не проверил) ...

... ОДНАКОвот ...
7. Игорь Исхаков (Ish_2) 981 14.12.10 08:36 Сейчас в теме
(6) Шепот , ты пугаешь людей своими последними разработками.
8. Александр Шишкин (Шёпот теней) 1696 14.12.10 09:45 Сейчас в теме
(7) ... да лаТно уж ... пугаю прямь ... ))) ...
9. Юрий Тимофеев (Tatitutu) 3660 14.12.10 12:47 Сейчас в теме
(0) это что ? и для чего ? Или где ?
Фон = СоздатьОбъект("Картинка");
Фон.Загрузить(КаталогИБ() + "Addition\Image\НГ_02.bmp");
10. Аркадий Кучер (Abadonna) 3683 14.12.10 13:00 Сейчас в теме
(9) Все нормал ;)
Просто надо подсократить
... моя первая программа на 7-ке за последние пять лет ...

до
... моя первая программа последние пять лет ...

:D
Ёпрст; artbear; +2 Ответить
11. Ольга Гельман (OlgaG) 17 14.12.10 14:09 Сейчас в теме
12. Александр Шишкин (Шёпот теней) 1696 14.12.10 14:24 Сейчас в теме
(9) ... блин ... это надо удалить ... совсем вспотел, в двух соснах блуждаю ... исправил ...
(10) злые "вы" ...
(11) удачи ! ...

... вот ...
13. Аркадий Кучер (Abadonna) 3683 14.12.10 14:49 Сейчас в теме
(12)
злые "вы" ...

Конечно, злой. И ты должен догадываться, где и когда меня разозлил.
А я не злопамятный: просто злой с отличной памятью ;)
14. Александр Шишкин (Шёпот теней) 1696 14.12.10 15:08 Сейчас в теме
(13) ... ))) ... знАмо где ...

... хм ... может стоит посмотреть на проблему шире ... к тому же задача "злить" - не ставилась и не подразумевалась и вОООбще "никак" ... ОДНОЗНАЧНО ...

... вот ...

п.с. часто то что "есть" - не есть "что" а есть "то" ... )))
15. Аркадий Кучер (Abadonna) 3683 14.12.10 15:16 Сейчас в теме
(14)
к тому же задача "злить" - не ставилась и не подразумевалась

Пізно, панна: померла так померла
16. Аркадий Кучер (Abadonna) 3683 15.12.10 10:38 Сейчас в теме
(0)
Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет.

Шёпот, зачем смущаешь неокрепшие умы? Есть такая возможность, вполне штатная. Если ты не нашел, не значит, что её нет.
Перем ТекНомер;   
Перем КаталогКартинок;     

Процедура СменитьКартинку() 
	ТекНомер=ТекНомер+1;
	Если ТекНомер>4 Тогда
		ТекНомер=1;
	КонецЕсли;
	ТекФайл=КаталогКартинок+"К"+Строка(ТекНомер)+".bmp";
	КартинкаФормы.Загрузить(ТекФайл);  
	//КартинкаФормы - идентификатор объекта на форме типа "Картинка"
	Форма.Обновить();
КонецПроцедуры

Процедура ПриОткрытии()  
	КаталогКартинок="c:\Картинки\";
	Форма.ОбработкаОжидания("СменитьКартинку",2); // тут таймер на 2 секунды 
	ТекНомер=0;                                                                         
	СменитьКартинку(); // чтобы сразу первая появилась
КонецПроцедуры
...Показать Скрыть

Как два байта отослать, однако
17. Игорь Исхаков (Ish_2) 981 15.12.10 11:16 Сейчас в теме
(13) "Пізно, панна: померла так померла"
Не сразу понял, что "Пізно" это вполне приличное : "Поздно".
Подумал , что ты озорничаешь..
18. Аркадий Кучер (Abadonna) 3683 15.12.10 11:17 Сейчас в теме
(17) Я ж хохол, причем западный ;) Как и Кушнир
19. Альтаир (Altair777) 638 15.12.10 14:08 Сейчас в теме
(0) > Спасибо Арчибальду и Альтаиру за помощь и поддержку
надо было дать мне возможность получить "спасибо" и за бета-тестинг :D
почему не сказал что выложил?! :evil:
20. Аркадий Кучер (Abadonna) 3683 15.12.10 14:38 Сейчас в теме
(19) Это ты ему рассказал, что "такой возможности в 7-ке нет" :?:
:D
21. Альтаир (Altair777) 638 15.12.10 15:07 Сейчас в теме
22. freetype vas (freetype) 14 15.12.10 18:32 Сейчас в теме
А я сделал на основе использования компонента вэб-браузер :|
23. Алексей Константинов (alexk-is) 6155 15.12.10 20:18 Сейчас в теме
Программный код в тексте публикации можно раскрасить... :)
24. Аркадий Кучер (Abadonna) 3683 16.12.10 03:35 Сейчас в теме
(23) Алекс, ты стал напоминать мне мужика из рекламы:
Вы всё еще кипятите? Тогда мы идем к Вам!

:D :D :D
25. Алексей Константинов (alexk-is) 6155 16.12.10 05:24 Сейчас в теме
(24) Я знаю и твердо убежден в том, что любое действие или бездействие можно трактовать с различных позиций: хорошее смешать с грязью или найти оправдание любым гадостям.

В данном случае я бы хотел в первую очередь, чтобы публикации на infostart.ru были оформлены наилучшим образом, а всё остальное потом.
26. Аркадий Кучер (Abadonna) 3683 16.12.10 06:59 Сейчас в теме
(25)
чтобы публикации на infostart.ru были оформлены наилучшим образом

Раскрасить код - дело вкуса, однако. Знаю кучу людей, которые в Дельфи просто отключают раскраску - ну не нравится им цветной!
27. Александр Шишкин (Шёпот теней) 1696 16.12.10 08:31 Сейчас в теме
(16) ... менять картинку ... можно конечно ... мне важен был "фон" формы ... чтобы изменение формы приводило к растягиванию и картинки ... спАсиБО за код и помощь ...
(19) ... не думал что "помощь" и "поддержка" являются морально-наказуемым деянием ... п.с. могу убрать ваше имя если вас ЭТО смущает ...
(22) ... как можно посмотреть ? ...
(23) ... можно и раскрасить ... (неужели это тАААк важно) а если это важно то важно и форматирование текста в описаниях - которое вАААще непонятно как работает ...

... вОт ...
28. Альтаир (Altair777) 638 16.12.10 10:50 Сейчас в теме
Шёпот теней пишет:
п.с. могу убрать ваше имя если вас ЭТО смущает

наоборот! :D
можно было в (0) не просто имена написать, а вставить гиперссылку со ссылками на профиль
29. Александр Шишкин (Шёпот теней) 1696 16.12.10 13:27 Сейчас в теме
(28) ... совершенно прАвильно ... виноват ... испрАвился ... вотВЕДЬ ...
30. Сергей Шадрин (neo-rsx11) 17.12.10 07:47 Сейчас в теме
Автор, вот мне до сих пор интересно, смысл выкладывать что-то если не давать подробнейшего описания. Зато хвалиться что написал.
За изобретение 5, за инструкцию 2
31. Александр Шишкин (Шёпот теней) 1696 17.12.10 08:09 Сейчас в теме
(30) ... к сожалению сколько людей столько и мнений ... отсутствие стандартов и разного понимания - какое уж тут однозначное отношение ...

п.с. сделайте краткое ТЗ для написания "описания" и я исправлю обработку под ваше понимание ... или дайте пример ... к тому же мы должны понимать что стоимость любой обработки с "описанием" и "без" это разная стоимость ... написание инструкций пользователю занимает значителную часть времени программиста * нормоЧас = как минимум удвоенную стоимость ...

... вот ...
32. Сергей Шадрин (neo-rsx11) 17.12.10 08:29 Сейчас в теме
если ты работал ради денег, то зачем выкладывал. Выложил бы обявление о продаже и все дела.
ИМХО, если выкладываешь свое творение для общего скачивания, то делай подробную инструкцию, либо невыкладывай вообще. Зачем людям голову морочить. Без обид
33. Иван Т (Spartan) 305 17.12.10 08:53 Сейчас в теме
(30) Стесняюсь спросить... Что именно в описании публикации Вам не понятно и насколько подробная инструкция Вам нужна?
alexk-is; Шёпот теней; +2 Ответить 1
34. Сергей (Che) Коцюра (CheBurator) 3387 18.12.10 00:14 Сейчас в теме
Плохо искал.
как минимум одна точно есть, в которую можн втопатать список любой и она будет его "поздравлять".
Шёпот теней; +1 Ответить 1
35. Александр Шишкин (Шёпот теней) 1696 20.12.10 09:20 Сейчас в теме
(33) ... спАсиБО ...!
(34) ... Че! мог бы и ссылку дать ...
36. ion mue (m818rt) 14.11.11 13:57 Сейчас в теме
Спасибо) Порадовало)
Шёпот теней; +1 Ответить
Оставьте свое сообщение