В общем, поюзал 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)
Первую скобку видит, а последнюю - нет. Игнорирует.