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

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

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

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

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