fix(ui): filter away vertical writing fonts with an @ prefix

Refs #2455

Author: ansgarbecker

source/preferences.pas

@@ -533,8 +533,12 @@ procedure TfrmPreferences.FormCreate(Sender: TObject);
   InitLanguages;
   comboAppLanguage.Items.AddStrings(FLanguages);
 
-  comboGUIFont.Items.Assign(Screen.Fonts);
-  comboGUIFont.Items.Insert(0, '<'+_('Default system font')+'>');
+  comboGUIFont.Items.Clear;
+  comboGUIFont.Items.Add('<'+_('Default system font')+'>');
+  for i:=0 to Screen.Fonts.Count-1 do begin
+    if not Screen.Fonts[i].StartsWith('@') then
+      comboGUIFont.Items.Add(Screen.Fonts[i]);
+  end;
 
   Styles := TStyleManager.StyleNames;
   for i:=Low(Styles) to High(Styles) do begin
@@ -764,7 +768,11 @@ procedure TfrmPreferences.FormShow(Sender: TObject);
   comboSQLColElementChange(Sender);
 
   // Grid formatting:
-  comboDataFontName.Items := Screen.Fonts;
+  comboDataFontName.Items.Clear;
+  for i:=0 to Screen.Fonts.Count-1 do begin
+    if not Screen.Fonts[i].StartsWith('@') then
+      comboDataFontName.Items.Add(Screen.Fonts[i]);
+  end;
   comboDataFontName.ItemIndex := comboDataFontName.Items.IndexOf(AppSettings.ReadString(asDataFontName));
   updownDataFontSize.Position := AppSettings.ReadInt(asDataFontSize);
   updownMaxQueryResults.Position := AppSettings.ReadINt(asMaxQueryResults);