Последние сообщения

Страницы1 2 3 ... 10
#1
FormEx / Не выводится Описание формы вн...
Последний ответ от leov-001 - Сегодня в 15:15
Код Выделить 
Перем ФормаРасш;
//*******************************************
Процедура Сформировать()
	Сообщить(ФормаРасш.Описание);
	Сообщить(ФормаРасш.ТекстМодуля);
КонецПроцедуры

Процедура ПослеОткрытия()
	ФормаРасш = СоздатьОбъект("РасширениеФормы"); 
	ФормаРасш.УстановитьФорму(Форма);
КонецПроцедуры
#2
Дружественные проекты / Re: Как принудительно типизиро...
Последний ответ от ADirks - Сегодня в 06:40
Цитата: Грузчик от Вчера в 16:32Бекапнулся и попробовал ваш набор. Как будто нет мучительного ожидания подсказки методов для объектов неопознанного типа, например:
Код Выделить 
База = СоздатьОбъект("SQLiteBase");
Запрос = База.НовыйЗапрос();
Запрос. // <- вот здесь у меня пауза секунд на 5, а в некоторых более других случаях можно и на перекур уходить.
Если за давностию лет не забылось ещё, ткните меня в то место, где эта бяка исправляется. Или это не "один регексп поправить", а комплексная проблема с комплексным же решением, раскиданным по многим файлам? Просто полностью переходить на вашу сборку скриптов не хочется, всё под себя настраивалось годами.
Честно говоря, даже не помню. Скорее всего, это действительно перенос части функционала из vbs в какие-то из .wsc, а там он на JS написан. Т.е. сами скрипты возможно и не надо трогать, заменить лишь wsc-библиотеки (скорее всего SyntaxAnalysis.wsc), и intellisence.vbs.
#3
Дружественные проекты / Re: Как принудительно типизиро...
Последний ответ от Грузчик - Вчера в 16:32
Бекапнулся и попробовал ваш набор. Как будто нет мучительного ожидания подсказки методов для объектов неопознанного типа, например:
Код Выделить 
База = СоздатьОбъект("SQLiteBase");
Запрос = База.НовыйЗапрос();
Запрос. // <- вот здесь у меня пауза секунд на 5, а в некоторых более других случаях можно и на перекур уходить.
Если за давностию лет не забылось ещё, ткните меня в то место, где эта бяка исправляется. Или это не "один регексп поправить", а комплексная проблема с комплексным же решением, раскиданным по многим файлам? Просто полностью переходить на вашу сборку скриптов не хочется, всё под себя настраивалось годами.
#4
Дружественные проекты / Re: Как принудительно типизиро...
Последний ответ от ADirks - Вчера в 13:38
Цитата: Грузчик от Вчера в 09:17А вообще странно: в вашем файле версия указана 1.73, в моём 1.75, но как будто у меня более старый вариант. Видимо, разные "ветки" разработки.
Да, в какой-то момент немного разъехались. Синхронизироваться было лень, а потом всё так и осталось.
В моей версии нет отладки, и местами какие-то косяки поправлены.
#5
Размышлизмы / Re: Личное: Антон Азанов aka D...
Последний ответ от cr - Вчера в 12:26
А c VZ есть связь?
#6
Дружественные проекты / Re: Как принудительно типизиро...
Последний ответ от Грузчик - Вчера в 09:17
Цитата: ADirks от Вчера в 07:26Intellisence.vbs
Начал сравнивать с тем, что у меня крутится, и узнал новое и интересное:
Код Выделить 
Функция Вася() // : ТипОбъекта
//...
КонецФункции
Так тоже типизация работает. Спасибо, Алексей.

А вообще странно: в вашем файле версия указана 1.73, в моём 1.75, но как будто у меня более старый вариант. Видимо, разные "ветки" разработки.
#7
Дружественные проекты / Re: Как принудительно типизиро...
Последний ответ от ADirks - Вчера в 07:46
на всякий случай, ещё набор скриптов, от которых может зависеть интеллисенс
#8
Дружественные проекты / Re: Как принудительно типизиро...
Последний ответ от ADirks - Вчера в 07:26
Этим занимается скрипт 'Intellisence.vbs'. Возможно, у тебя каким-то образом оказалась более старая версия, без этой фишки.
Попробуй приложенный скрипт, может заработает. Только текущую версию куда-нибудь сохрани, а то может и не заработать :)
#9
Дружественные проекты / Re: КОП "ПоставщикДанных.Дерев...
Последний ответ от Грузчик - 01 октября 2026, 09:03
На форме две кнопки с идентификаторами "ТП" и "ПУ".
Модуль:
Код Выделить 
Перем ПоставщикДанных;
    
//СтрокиДереваЗначений//:СтрокиДереваЗначений

Процедура ПослеСозданияФормы()
    ПоставщикДанных = СоздатьОбъект("ПоставщикДанных");
    ПоставщикДанных.ТипЗначений = "ДеревоЗначений";
    ПоставщикДанных.КонтейнерКоманднойПанели = "ПУ";
    ПоставщикДанных.КонтейнерТабличногоПоля  = "ТП";
    
    Данные = ПоставщикДанных.Данные;
    Данные.СоздатьКнопкиПоУмолчанию();
    
    
    Данные.НоваяКолонка("ИмяУровня","Строка",,,"Имя уровня");
    //Данные.НоваяКолонка("НомерУровня","Число",,,"№ уровня");
    Данные.НоваяКолонка("Значение","Число",,,"Значение",,1);
    Данные.КолонкаПиктограмм = "ИмяУровня";
    
    ДеревоЗначений = Данные.ДеревоЗначений;
    
    Для Н = 1 По 10 Цикл
        СтрокаН = ДеревоЗначений.НоваяСтрока();
        //    ДеревоЗначений.Пиктограмма    = Н;
        ДеревоЗначений.ИмяУровня   = "Уровень № "+ДеревоЗначений.Уровень;
        //ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
        ДеревоЗначений.Значение    = Н;
        
        Для Н1 = 1 По 5 Цикл
            СтрокаН1 = ДеревоЗначений.НоваяСтрока(СтрокаН);
        //    ДеревоЗначений.Пиктограмма    = Н1;
            ДеревоЗначений.ИмяУровня   = "Уровень № "+ДеревоЗначений.Уровень;
            //ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
            ДеревоЗначений.Значение    = Н1;
            
            Для Н2 = 1 По 4 Цикл
                СтрокаН2 = ДеревоЗначений.НоваяСтрока(СтрокаН1);
        //    ДеревоЗначений.Пиктограмма    = Н2;
                ДеревоЗначений.ИмяУровня   = "Уровень № "+ДеревоЗначений.Уровень;
                //ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
                ДеревоЗначений.Значение    = Н2;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;
    
    ПоставщикДанных.Обновить();
    Сообщить("ПоставщикДанных.Версия="+ПоставщикДанных.Версия);
КонецПроцедуры
Не знаю, насколько это "хрестоматийный пример от создателя", да и вообще откуда он у меня.
#10
Дружественные проекты / КОП "ПоставщикДанных.ДеревоЗна...
Последний ответ от newbas - 30 сентября 2026, 19:56
Думал уже завязал с клюшками, а нет - еще есть спрос..
Не поделится кто-нибудь примером работы с "ПоставщикДанных.ДеревоЗначений"
что-то никак не могу его победить.
Примеры и КОП в одной конфе с 1С++ форума не качаются, сам форум "READ-ONLY"
Страницы1 2 3 ... 10