Melifaro писал(а) 29. Октября 2008 :: 08:39:


Зачем? Слова из доп. списков подсвечиваются в любом регистре

Поставил 1.0.0.1, событие отрабатывает, список закладок открывается.

Melifaro писал(а) 31. Октября 2008 :: 07:19:


Нет, " бОльшие блоки "поглощают" меньшие, внутренние блоки разбивают родительские на части"
имелась ввиду установка цвета по комманде из меню/панели. Если например, выделен блок уже содержащий в себе цветные блоки, то весь он перекрашивается в новый, и наоборот, если выделена внутрянняя часть большого цветного блока, то новый цветной блок "вставляется" внутрь.

По поводу такой свертки:

Дело в том что, две пограничные строки блоков
//color
//color2000
считают себя комментариями, и пытаются тоже свернутся, но так как они  - границы блоков, то свертка "нейтрализуется"...
Как-то так...
Такие коллизии из за того что, и комментарии и цветовые блоки и произвольные блоки  - они все начинаются с "//", и получается что приоритет у "нормальных" комментариев.
Например если в настройках снять галку "сворачивать комментарии", то эти два блока будут сворачиваться каждый отдельно.

раскопал drag'n'drop формат синтаксис-помошника, так что теперь можно из него перетаскивать, попутно сделал перетаскивание файлов на редактор, в этом случае в текст вставляется путь к этому файлу

Смотри на скрипт Brackets.vbs
там твой скрипт превращается в добавлении всего одной строчки:

BracketsDict.Add "Блок","//++¦_._//==" 

По остальным проблемам, думаю, что там же найдёшь ответы.

Еще хотелка: сделать бы подсветку синтаксиса SQL-запросов...
Доп. ключевые слова внутри строковых констант не работают...

2artbear - что-то не сработало. Вот что получилось в итоге:

       if InStr(Text, "!") > 0 then ' СокрЛП(!)
               if str2 <> "" then
                       if bDontInsertEndCommaInTelepatReplaceFlag then
                               Text = Replace(Text, "!", str2)
                       else
                               replStr = "! )"
                               if InStr(1, Text, "!);") > 0 then
                                       replStr = "!);"
                               end if
                               Text = Replace(Text, replStr, "!" & str2)
                       end if
               end if
       else ' КакаяТоФункция()
               if bDontInsertEndCommaInTelepatReplaceFlag then
                       Text = Replace(Text, "()", "(" & str2 & ")")
               else
                       replStr = "()"
                       if InStr(1, Text, "();") > 0 Then
                               replStr = "();"
                       end if
                       Text = Replace(Text, replStr, "( !" & str2)
               end if
       end if

и не текст по прежнему без пробелов со скобками

Выше неверную подсказку указал.
Правильный вариант такой
Две строки в двух местах кода каждая
Цитата:

нужно поменять на
Цитата:
соответственно

код проверил, теперь точно работает.