fix: font bold + italic setting not stored in settings

ansgarbecker · ansgarbecker · commit cc5b8116c09b · 2026-02-19T16:39:42.000+01:00
Closes #2398
diff --git a/source/preferences.pas b/source/preferences.pas
@@ -750,6 +750,7 @@ procedure TfrmPreferences.SQLFontChange(Sender: TObject);
   AttriIdx: Integer;
   Attri: TSynHighlighterAttributes;
   Foreground, Background: TColor;
+  FontStyle: Integer;
 begin
   if comboSQLFontName.ItemIndex > -1 then
     SynMemoSQLSample.Font.Name := comboSQLFontName.Items[comboSQLFontName.ItemIndex];
@@ -772,9 +773,12 @@ procedure TfrmPreferences.SQLFontChange(Sender: TObject);
     else Attri.Style := Attri.Style - [fsBold];
     if chkSQLItalic.Checked then Attri.Style := Attri.Style + [fsItalic]
     else Attri.Style := Attri.Style - [fsItalic];
+    FontStyle := Attri.IntegerStyle;
+    // Write attribute settings to in-memory color scheme
     Attri := FAppColorScheme.SynSqlSyn.Attribute[AttriIdx];
     Attri.Foreground := Foreground;
     Attri.Background := Background;
+    Attri.IntegerStyle := FontStyle;
   end;
   Modified(Sender);
 end;
