Hack to refresh screen fonts list

SuperDisk · Apr 3, 2024 · aed1006 · aed1006
1 parent 7c642f2
commit aed1006
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/trackergrid.pas b/src/trackergrid.pas
@@ -319,6 +319,11 @@ constructor TTrackerGrid.Create(
 begin
   inherited Create(AOwner);
 
+  // The LCL only populates the screen's font list once. Since we're
+  // dynamically adding fonts at startup, we need to refresh this list.
+
+  Screen.Fonts.Clear;
+
   FFontSize := 12;
 
   Self.PatternMap := PatternMap;