feat: sync active line color and brace highlight with the app's dark or light mode

ansgarbecker · ansgarbecker · commit 351072849a18 · 2026-01-25T14:01:24.000+01:00
It's a pity these additional colors sit on a TSynEdit, not on a TSynSQLSyn. Even with the new TSynSQLSynSchemes we cannot provide these in presets. In the preferences, the user still has to edit these colors manually.
diff --git a/source/generic_types.pas b/source/generic_types.pas
@@ -189,6 +189,16 @@ procedure TSynSQLSynSchemes.ApplyScheme(Scheme: TSynSQLSyn);
     AppSettings.WriteInt(asHighlighterBackground, Attri.Background, Attri.Name);
     AppSettings.WriteInt(asHighlighterStyle, Attri.IntegerStyle, Attri.Name);
   end;
+  if Scheme.Name = SDarkScheme then begin
+    AppSettings.WriteString(asSQLColActiveLine, ColorToString(clNone));
+    AppSettings.WriteString(asSQLColMatchingBraceForeground, ColorToString($0028EFFF));
+    AppSettings.WriteString(asSQLColMatchingBraceBackground, ColorToString($004D513B));
+  end
+  else if Scheme.Name = SLightScheme then begin
+    AppSettings.WriteString(asSQLColActiveLine, ColorToString(clNone));
+    AppSettings.WriteString(asSQLColMatchingBraceForeground, AppSettings.GetDefaultString(asSQLColMatchingBraceForeground));
+    AppSettings.WriteString(asSQLColMatchingBraceBackground, AppSettings.GetDefaultString(asSQLColMatchingBraceBackground));
+  end
 end;
 
 procedure TSynSQLSynSchemes.ApplyScheme(SchemeName: String);
