Воскресенье, 09.02.2025, 06:35
Главная Регистрация RSS
Приветствую Вас, Гость
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Портативные 3.94.1, консоль запросов, комментирование строк
stepangalaktionovДата: Понедельник, 30.01.2017, 06:33 | Сообщение # 1
Сержант
Группа: Проверенные
Сообщений: 37
Репутация: 36
Статус: Оффлайн
Добрый день!

Портативные 3.94.1, платформа 8.2.19.130
В консоли запросов при (рас)комментировании строк горячими клавишами "Ctrl-/" и "Ctrl-Shift-/" комментарий ставится только на первую строку выделения. При этом эти же команды контекстного меню работают корректно. В консоли кода этой ошибки нет.
 
tormozitДата: Понедельник, 30.01.2017, 07:24 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 6607
Репутация: 173
Статус: Оффлайн
Спасибо. Ошибку самостоятельно можно исправить заменой функций в модуле обработки ирКлсПолеТекстовогоДокументаСКонтекстнойПодсказкой
Код
Процедура Закомментировать() Экспорт

    Для Счетчик = мНачальнаяСтрока По мКонечнаяСтрока Цикл
        ПолеТекстовогоДокумента.УстановитьГраницыВыделения(Счетчик, 1, Счетчик, 1);
        ПолеТекстовогоДокумента.ВыделенныйТекст = "//";
    КонецЦикла;

КонецПроцедуры

Процедура Раскомментировать() Экспорт

    Текст = ПолеТекстовогоДокумента.ПолучитьТекст();
    Для Счетчик = мНачальнаяСтрока По мКонечнаяСтрока Цикл
        СтрокаТекста = СтрПолучитьСтроку(Текст, Счетчик);
        Если Лев(СокрЛ(СтрокаТекста), 2) = "//" Тогда
            ПозицияМаркера = Найти(СтрокаТекста, "//");
            ПолеТекстовогоДокумента.УстановитьГраницыВыделения(Счетчик, 1, Счетчик, 10000);
            ПолеТекстовогоДокумента.ВыделенныйТекст = Сред(СтрокаТекста, 1, ПозицияМаркера - 1) + Сред(СтрокаТекста, ПозицияМаркера + 2);
        КонецЕсли;
    КонецЦикла;

КонецПроцедуры
 
tormozitДата: Вторник, 31.01.2017, 23:06 | Сообщение # 3
Генералиссимус
Группа: Администраторы
Сообщений: 6607
Репутация: 173
Статус: Оффлайн
Исправлено в 3.95
 
  • Страница 1 из 1
  • 1
Поиск: