Use Arial in presentation if no font has been specified.

Fixes Issue #24
reckel-jm · Mar 30, 2024 · 1daffb2 · 1daffb2
1 parent c3e2b66
commit 1daffb2
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/generics/presentationcanvas.pas b/src/generics/presentationcanvas.pas
@@ -368,6 +368,10 @@ function TPresentationCanvasHandler.CalculateTextHeight(Font: TFont;
 
 procedure TPresentationCanvasHandler.AssignBGRAFont(Font: TFont);
 begin
+  // Issue #24
+  If (Font.Name='') or (LowerCase(Font.Name)='default') then
+    Font.Name := 'Arial';
+
   Bitmap.FontName  := Font.Name;
   Bitmap.FontStyle := Font.Style;
   Bitmap.FontHeight:= Round(Font.Height/0.85);