fix: prevent editors from getting an empty font name

ansgarbecker · ansgarbecker · commit 74abc1666cfe · 2025-12-20T11:35:43.000+01:00
Refs #2338
diff --git a/source/main.pas b/source/main.pas
@@ -13364,12 +13364,15 @@ procedure TMainForm.SetupSynEditor(Editor: TSynMemo);
   BaseEditor: TSynMemo;
   LineNumberPart: TSynGutterLineNumber;
   CodeFoldingPart: TSynGutterCodeFolding;
+  FontName: String;
 begin
   LogSQL('Setting up TSynMemo "'+Editor.Name+'"', lcDebug);
   BaseEditor := SynMemoQuery;
   Editor.Color := GetThemeColor(clWindow);
   //Editor.ScrollHintColor := GetThemeColor(clInfoBk);
-  Editor.Font.Name := AppSettings.ReadString(asFontName);
+  FontName := AppSettings.ReadString(asFontName);
+  if not FontName.IsEmpty then
+    Editor.Font.Name := FontName;
   Editor.Font.Size := AppSettings.ReadInt(asFontSize);
   Editor.Font.Quality := fqCleartypeNatural;
   LineNumberPart := Editor.Gutter.LineNumberPart(0);
