From 1daffb21b14463b6629c2f8ff012967fc574ec81 Mon Sep 17 00:00:00 2001
From: Jan Martin Reckel <wukijm@gmail.com>
Date: Sat, 30 Mar 2024 21:05:57 +0100
Subject: [PATCH] Use Arial in presentation if no font has been specified.

Fixes Issue #24
---
 src/generics/presentationcanvas.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/generics/presentationcanvas.pas b/src/generics/presentationcanvas.pas
index 02d99c6..5c40067 100644
--- 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);