Commit aed1006

Nick Faro committed on
Hack to refresh screen fonts list
commit aed1006e14fdd08c388a5fdd36e745bfd55542a4 parent 7c642f2
1 changed files +5−0
Modifiedsrc/trackergrid.pas +5−0
@@ -319,6 +319,11 @@ constructor TTrackerGrid.Create(
319 begin 319 begin
320 inherited Create(AOwner); 320 inherited Create(AOwner);
321 321
322 // The LCL only populates the screen's font list once. Since we're
323 // dynamically adding fonts at startup, we need to refresh this list.
324
325 Screen.Fonts.Clear;
326
322 FFontSize := 12; 327 FFontSize := 12;
323 328
324 Self.PatternMap := PatternMap; 329 Self.PatternMap := PatternMap;