From 007e6e7dc9b90cf8ba172162917e93e2bbd8975d Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 23 Nov 2021 17:36:26 +0000
Subject: [PATCH] extctrls/exquestiondlg: Do not use an empty string as font
 name

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/exctrls/source/exquestiondlg.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/exctrls/source/exquestiondlg.pas b/components/exctrls/source/exquestiondlg.pas
index 96e811347..2c49fe72c 100644
--- a/components/exctrls/source/exquestiondlg.pas
+++ b/components/exctrls/source/exquestiondlg.pas
@@ -478,7 +478,10 @@ var
   QForm: TQForm;
 begin
   QForm := TQForm.CreateNew(Screen.ActiveCustomForm);
-  QForm.Font.Name := QuestionDlgEx_FontName;
+  if QuestionDlgEx_FontName = '' then
+    QForm.Font.Name := 'default'
+  else
+    QForm.Font.Name := QuestionDlgEx_FontName;
   QForm.Font.Size := QuestionDlgEx_FontSize;
   QForm.ButtonAlignment := QuestionDlgEx_ButtonAlignment;
   QForm.TextAlignment := QuestionDlgEx_TextAlignment;