Цитата(markowww @ 15.11.2005, 14:19)

Хм. Мне нужно чтобы во всем тексте слово, к примеру, BEGIN подсвечивалось, а begin - нет. С возможностью Case Sensitive для отдельного списка это легко ;) А вот с Range как такое сделать, что-то я не понимаю.

Просто у корневого "диапазона" (Root) есть такое же свойство
В новой версии это называется 'Syntax Coloring'.
Устанавливаешь у него 'Case sensitive' и всё будет как надо

Цитата(markowww @ 15.11.2005, 14:19)

при использовании Сopy/Paste на узлах дерева в дизайнере возникает Access Violation.

Подробнее плиз
Какая подсветка, какие узлы копируешь, куда вставляешь?..

Цитата(Vitalik)

Просто у корневого "диапазона" (Root) есть такое же свойство В новой версии это называется 'Syntax Coloring'. Устанавливаешь у него 'Case sensitive' и всё будет как надо

Мда. Лопух. Не заметил ;) Но все таки, я думаю, логичнее будет сделать это свойство у каждого правила с наледованием от родителя по умолчанию. Мне просто в голову не пришло посмотреть в Syntax Coloring. ;)

Теперь по поводу Copy/Paste:
1. Ошибка при копировании узла дерева, в поддерево, где уже существует узел с таким именем. Вываливается сразу по команде Paste.
2. Если поддерево (Range) не содержало узал с таким же именем или было пусто, то копирование завершается, но при попытке раскрыть (Expand) это поддерево, тоже вываливается Access Violation.

Глюк вроде прикрыл, пришлось поправить SynEdit:

Код

procedure TCustomSynEdit.LinesChanged(Sender: TObject); var   vOldMode: TSynSelectionMode; begin   Exclude(fStateFlags, sfLinesChanging);   if HandleAllocated then   begin     UpdateScrollBars;     vOldMode := fActiveSelectionMode;     SetBlockBegin(CaretXY);     fActiveSelectionMode := vOldMode;     InvalidateRect(fInvalidateRect, False);     FillChar(fInvalidateRect, SizeOf(TRect), 0);     if fGutter.ShowLineNumbers and fGutter.AutoSize then       fGutter.AutoSizeDigitCount(Lines.Count);     if not (eoScrollPastEof in Options) then       TopLine := TopLine;     // Вот эти     if WordWrap then       fWordWrapPlugin.Reset;   end; end;