Enable bracket highlighting in SQL editors

This commit is contained in:
Ansgar Becker
2025-04-21 21:19:11 +02:00
parent 2e8b0870c3
commit 8929f32d9b

View File

@@ -14,7 +14,7 @@ uses
Generics.Defaults, opensslsockets, StdActns, Clipbrd, Types, LCLType, EditBtn,
FileUtil, LMessages, jsonconf, dbconnection, dbstructures, dbstructures.mysql,
generic_types, apphelpers, extra_controls, createdatabase,
SynEditMarkupSpecialLine, searchreplace, ImgList, IniFiles, LazFileUtils, tabletools;
SynEditMarkupSpecialLine, SynEditMarkupBracket, searchreplace, ImgList, IniFiles, LazFileUtils, tabletools;
type
@@ -13442,6 +13442,9 @@ begin
if Editor <> BaseEditor then begin
Editor.Keystrokes := BaseEditor.KeyStrokes;
end;
Editor.BracketHighlightStyle := sbhsBoth;
Editor.BracketMatchColor.Foreground := FMatchingBraceForegroundColor;
Editor.BracketMatchColor.Background := FMatchingBraceBackgroundColor;
end;