В общем, поюзал Delphi 8 и обнаружил там классную новую подсветку - когда курсор расположен возле одной из парных скобок, обе скобки выделены голубым бэкграундом. Сильно упрощает чтение выражений со скобками. Реализовано ли это у вас а если нет, то можно ли сделать?

Сделать можно. Вот пример кода:

Код

var  // позиция скобок при предыдущем выделении цветом  PrevPos1, PrevPos2: TBufferCoord; const  BracketSet = ['{', '[', '(', '}', ']', ')', '<', '>'];  OpenChars: array[0..3] of Char = ('{', '[', '(', '<');  CloseChars: array[0..3] of Char = ('}', ']', ')', '>');  BgColorHighlight = clAqua; // фоновый цвет выделения  FgColorHighlight = $FFFFFF - BgColorHighlight; // цвет шрифта выделения  needHighlightBrackets = True; // Флаг - нужно ли подсвечивать скобки function GetOppositeBracket(C: Char): Char; // Поиск соответствующей скобки var  i: integer; begin  Result := #0;  for i := 0 to High(OpenChars) do    if C = OpenChars[i] then begin      Result := CloseChars[i];      Exit;    end;  for i := 0 to High(CloseChars) do    if C = CloseChars[i] then begin      Result := OpenChars[i];      Exit;    end; end; procedure TForm1.SynEditPaintTransient(Sender: TObject; Canvas: TCanvas;  TransientType: TTransientType); // Процедура для рисования на канве редактора var  Pos1, Pos2: TBufferCoord; // позиции парных скобок  P1, P2: TPoint; // координаты скобок на канве Canvas  Token: string;  Bracket1, Bracket2: Char; // символы скобок  Attri: TSynHighlighterAttributes; // атрибуты скобки (из подсветки)  Rect1, Rect2: TRect; // прямоугольник скобки на канве Canvas begin  if (not needHighlightBrackets) or (SynEdit.Highlighter = nil) then    Exit;  Pos1 := SynEdit.CaretXY;  SynEdit.GetHighlighterAttriAtRowCol(Pos1, Token, Attri);  Pos2 := SynEdit.GetMatchingBracketEx(Pos1); // поиск парной скобки  if (Pos1.char > 1) and (Pos2.char = 0) then begin    // если не найдена парная скобка    Dec(Pos1.char); // проверить для предыдущего символа    SynEdit.GetHighlighterAttriAtRowCol(Pos1, Token, Attri);    Pos2 := SynEdit.GetMatchingBracketEx(Pos1);  end;  if (PrevPos1.char <> Pos1.char) or (PrevPos1.line <> Pos1.line) or     (PrevPos2.char <> Pos2.char) or (PrevPos2.line <> Pos2.line) then  begin // если позиция подсвечиваемой скобки изменилась, то перерисовать    SynEdit.InvalidateLine(PrevPos1.line);    PrevPos1 := Pos1;    SynEdit.InvalidateLine(PrevPos2.line);    PrevPos2 := Pos2;  end;    if ((Pos2.char = 0) and (Pos2.line = 0)) or SynEdit.SelAvail or    (Length(Token) <> 1) then      Exit;  Bracket1 := Token[1];  if Bracket1 in BracketSet then begin    Bracket2 := GetOppositeBracket(Bracket1); // парная скобка    // получение для скобок экранных координат на канве    P1 := SynEdit.RowColumnToPixels(SynEdit.BufferToDisplayPos(Pos1));    P2 := SynEdit.RowColumnToPixels(SynEdit.BufferToDisplayPos(Pos2));    // установка свойств шрифта для рисования скобки    with Canvas do begin      Font.Assign(SynEdit.Font);      Font.Style := Attri.Style;      Font.Color := FgColorHighlight;      Brush.Color := BgColorHighlight;    end;    // рисование подсвеченной скобки    Rect1.Top := P1.Y;    Rect1.Left := P1.X;    Rect1.Bottom := Rect1.Top + Canvas.TextHeight(Bracket1);    Rect1.Right := Rect1.Left + Canvas.TextWidth(Bracket1);    Canvas.FillRect(Rect1);    Canvas.TextOut(P1.X, P1.Y, Bracket1); // была опечатка    // рисование парной подсвеченной скобки    Rect2.Top := P2.Y;    Rect2.Left := P2.X;    Rect2.Bottom := Rect2.Top + Canvas.TextHeight(Bracket2);    Rect2.Right := Rect2.Left + Canvas.TextWidth(Bracket2);    Canvas.FillRect(Rect2);    Canvas.TextOut(P2.X, P2.Y, Bracket2); // была опечатка  end; end;

Если есть вопросы по коду - задавай!

P.S. Была небольшая опечатка в коде, только что исправил.

Это сообщение отредактировал(а) Vitalik - 23.2.2005, 00:12

Не работает, так как не может найти парную скобку. Не работает почему-то GetMatchingBracketEx - все время возвращает нулевую позицию. Pos2 = (0,0) и обработчик события завершается по условию

Код

if ((Pos2.char = 0) and (Pos2.line = 0)) or SynEdit1.SelAvail or    (Length(Token) <> 1) then      Exit;

Странно...

А у тебя какая подсветка для SynEdit'а выбрана?

SynUniSyn

В правилах этой подсветки есть список ключевых слов, в которых присутствуют скобки? Если нет - создай такое правило

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:13

Quadr0, добро пожаловать к нам на огонёк! (я про форум)
Очень рад новому участнику!

Цитата(Quadr0 @ 10.5.2005, 21:27)

procedure TMainForm.FindBracketExecute(Sender: TObject); ...

Эта процедура только найдёт парную скобку, а Kordub просил сделать подсветку парной скобки при попадании на неё курсора
Но всё равно спасибо за попытку помочь!

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:15

Цитата(Quadr0 @ 11.5.2005, 20:42)

Тогда ему прямая дорога в сэмплы SynEdut 2.0b. Там лежит дэмка PaintTransient которая этим как раз и занимается.

А чем не устраивает приведённый мной код?
А за демку - спасибо, не замечал её до селе...

Нефигасебе здоровый код! Чтобы реализовать эту удобственность...
В смысле это вообще в синэдите не предусмотрено... А ведь такая удобная весчь!
Странно.

Добавлю, что код Vitalik работает, а из демки - нет.

Quadr0, Vitalik, а у вас случайно нету готового рабочего кода на C++ Builder'e для реализации этой функции?

угу, у меня тот же вопрос. Не могу перевести

Вот, вернулся к проекту, возникла трябла.
В ключевых словах у меня прописаны операторы.
Существуют и переменные с именем оператора.
Поэтому возникает ситуация: переменная подсвечивается как оператор.
Чтобы избежать этого я начал извращаться: в ключевых словах к операторам добавляю символы, например
Операторы:
B
S
M
B:
M:
S:

Вот, и ещё создал набор KeyWords, с названием NOToperators, и цветом как обычные символы:
B=
B,
B)
M=
M,
M)
S=
S,
S)
т.е. операторы не могут встречаться в тексте рядом с такими символами.
Но вот проблема: код для подсветки парных скобок, который привёл Vitalic, не видет такой скобки. Не могу понять - почему.
пример:
s a=$$abc^abc(1,2,s)
Первую скобку видит, а последнюю - нет. Игнорирует.

Coriolis, извини, что не ответил вчера. Сейчас немного не хватает времени... Плюс я немного приболел

Цитата(Coriolis @ 28.10.2005, 18:44)

Существуют и переменные с именем оператора.

А что это за язык такой, если не секрет?
Можешь также прислать мне свою подсветку для него? Пиши на highlighters[at]gmail.com

Цитата(Coriolis @ 28.10.2005, 18:44)

Поэтому возникает ситуация: переменная подсвечивается как оператор.

Гм... А по каким правилам определяется является слово переменной или оператором?..

Цитата(Coriolis @ 28.10.2005, 18:44)

Но вот проблема: код для подсветки парных скобок, который привёл Vitalik, не видет такой скобки. Не могу понять - почему.

А это всё из-за того, что в приведённом алгоритме скобки будут подсвечиваются только если они в тексте являются отдельными лексемами... (или что-то вроде того)

Цитата

var   ...   Token: string;   ... begin   ...   Pos1 := SynEdit.CaretXY;   SynEdit.GetHighlighterAttriAtRowCol(Pos1, Token, Attri);   Pos2 := SynEdit.GetMatchingBracketEx(Pos1); // поиск парной скобки   if (Pos1.char > 1) and (Pos2.char = 0) then begin     // если не найдена парная скобка     Dec(Pos1.char); // проверить для предыдущего символа     SynEdit.GetHighlighterAttriAtRowCol(Pos1, Token, Attri);     Pos2 := SynEdit.GetMatchingBracketEx(Pos1);   end;   ...     if ((Pos2.char = 0) and (Pos2.line = 0)) or SynEdit.SelAvail or (Length(Token) <> 1) then       Exit;   Bracket1 := Token[1];   ...

В принципе можешь удалить эти строчки и проверку... Но тогда получай Bracket1 другим способом...

Цитата(Vitalik @ 29.10.2005, 21:02)

Coriolis, извини, что не ответил вчера. Сейчас немного не хватает времени... Плюс я немного прибол

Да брось - не за что. Выздоравливай.

Цитата(Vitalik @ 29.10.2005, 21:02)

А что это за язык такой, если не секрет?

Язык - M, процедурный, идёт вместе с БД. Интерпретируется, программы хранятся на сервере.
Чё ещё сказать? О! Cashe - это потомок эМа, просто прикрутили (как кто-то сказал - за уши) объекты. А так - cashe тот же эМ.
Конкретно - для СУБД MSM (Micronetic Systems M кажется).

а чем переменные отличаются - это от контекста зависит. Для экономии памяти принято сокращать операторы до одной буквы, напр оператор SET (аналог в васике - LET) - s, GOTO - g, DO (аналог в вdвасике GOSUB) - d.
вот, напр
s s=13
переменной s присваевается значение 13, т.е.
SET s=13
Поэтому если перед и после s стоит пробел - это оператор.
Если после/перед s запятая или скобка - это переменная (например её передали как параметр)
Вот пример кода:
; функция find - чего-то там ищет в файле
find(fstr)
n str,findfl
s findfl=""
f d q:((findfl)!($zc))
.s str=$$read()
.q:str=""
.;s str=$zzup($zzdsp(str,5))
.s:str[fstr findfl=1
q:$zc ""
q str
(табуляция в начале строки, кста -обязат)

Цитата(Vitalik @ 29.10.2005, 21:02)

Можешь также прислать мне свою подсветку для него? Пиши на highlighters[at]gmail.com

Не понял - куда слать?

Цитата(Coriolis @ 29.10.2005, 21:45)

Для экономии памяти принято сокращать операторы до одной буквы, напр оператор SET (аналог в васике - LET) - s, GOTO - g, DO (аналог в вdвасике GOSUB) - d.

Ничего себе Бывает же такое!
По-моему читабельность программы от этого сильно падает

Цитата(Coriolis @ 29.10.2005, 21:45)

(табуляция в начале строки, кста -обязат)

Это там надо считать, что вместо точек стоит табуляция?

Цитата(Coriolis @ 29.10.2005, 21:45)

Не понял - куда слать?

Шли на мыло: highlighters (собачка) gmail.com
Или можешь прикрепить здесь к своему сообщению (этот вариант более желателен)

Цитата(Vitalik @ 29.10.2005, 21:56)

Ничего себе  Бывает же такое!

Ага, я тоже так подумал - когда знакомился с языком.
Но это позволяет уменьшить память, т.к. текст интерпретируется.

Цитата(Vitalik @ 29.10.2005, 21:56)

По-моему читабельность программы от этого сильно падает

Да не, быстро привыкаешь и без проблем читаешь исходняк, поверь мне.

Цитата(Vitalik @ 29.10.2005, 21:56)

Это там надо считать, что вместо точек стоит табуляция?

Нет-нет, точки - это часть синтаксиса, это аналок {} в сях или begin end в паскале - уровень обозначают. А табуляция - именно #9.

Сейчас прикреплю, но учти - сырой файл, т.к. "в процессе".
Тяяяяк. Не вижу кнопки прикрепит файл. Мож я маленький есчё?
Тада шлю на мыло.

Если использовать SynPHPSyn1 то все работает, а если SynUni и подгрузить лайтер для PHP то нет.

В чем причина?

Цитата(Coriolis @ 30.10.2005, 19:43)

Тяяяяк. Не вижу кнопки прикрепит файл. Мож я маленький есчё?

Эта кнопка должна появляться после предварительного просмотра сообщения

Цитата(GORI @ 31.10.2005, 09:44)

Если использовать SynPHPSyn1 то все работает, а если SynUni и подгрузить лайтер для PHP то нет. В чем причина?

Значится так...
Coriolis и GORI, можете модифицировать код следующим образом:

Цитата

... // всё, что выше - оставляем без изменений   if ((Pos2.char = 0) and (Pos2.line = 0)) or SynEdit.SelAvail {or (Length(Token) <> 1)} then     Exit;   Bracket1 := SynEdit.Lines[Pos1.Line-1][Pos1.Char];   if Bracket1 in BracketSet then begin     ...

Теперь скобки будут подсвечиваться абсолютно везде, где будут найдены
Потому как теперь мы будет отталкиваться не от найденной лексемы (Token), а от реальных симоволов в тексте (Lines)
Добавлено @ 17:32

Цитата(Coriolis @ 30.10.2005, 19:43)

Тада шлю на мыло.

Да, письмо получил
Когда подсветка будет готова можешь выложить её на сайте www.unihighlighter.com

Ой, не в ту тему написал! сорри.

Это сообщение отредактировал(а) Coriolis - 31.10.2005, 19:22

Блин Ну не работает оно с UniHighlighter... Можете примерчик простенький набросать? чтоб именно с загрузкой лайтера из файла...

Виталик самый щедрый на примеры

Заказывали примерчик?


Присоединённый файл ( Кол-во скачиваний: 38 )
 HighlightBrackets.zip 2,89 Kb

А вот вместе с EXE
(жаль нельзя к одному сообщению несколько файлов прикрепить)

Присоединённый файл ( Кол-во скачиваний: 57 )
 HighlightBrackets_exe.zip 370,59 Kb

Ок, спасибо за пример. Я его только поправил - чтобы не светилась скобка, которая находится за перед курсором.

Тут мне Snowy указал на глюк: алгоритм подсветки НЕ игнорирует скобки внутри кавычек.
Чего-то не пойму, как это профиксить...

Цитата(Coriolis @ 1.11.2005, 12:43)

Тут мне Snowy указал на глюк: алгоритм подсветки НЕ игнорирует скобки внутри кавычек. Чего-то не пойму, как это профиксить...

Гм... Так сходу ничего и получается...

Есть как минимум два пути:

1. Переписать метод SynEdit.GetMatchingBracketEx под свои нужды. Например, вставить нужные фильтры. Как то, игнорирование скобок во всех диапазонах или в диапазонах с определёнными именнами или еще что-нить

2. Сделать возможность в компоненте задавать свойство StringAttribute (которое объявлено только для чтения у потомка всех подсветок TCustomHighlighter). Просто в реализации метода SynEdit.GetMatchingBracketEx уже есть фильтрация диапазонов строки и комментария. Нужно лишь реализовать возможность в нашем компоненте задавать какие именно диапазоны (а точнее их атрибуты) являются диапазонами "строки" и "комментария"

а можно ли как-то сделать, чтобы парные скобки выделялись бы еще и разными цветами.? Как в экселе в строке формул?
поясню, к примеру (((1/2)*2)-2)

Это сообщение отредактировал(а) zvyagaaa - 1.6.2009, 05:18

Кстати да, крутая штука. 
zvyagaaa, ты если реализовал - поделись пожалуйста)