From 930e49590c33e516172648fddfc4a6ed953bc83e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 1 Jul 2023 11:21:49 +0200
Subject: [PATCH] * Setting empty should also work.

---
 packages/fcl-image/src/freetype.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-image/src/freetype.pp b/packages/fcl-image/src/freetype.pp
index d0cb181f98..a6bbdfacc8 100644
--- a/packages/fcl-image/src/freetype.pp
+++ b/packages/fcl-image/src/freetype.pp
@@ -399,7 +399,9 @@ end;
 
 procedure TFontManager.SetExtension (AValue : string);
 begin
-  if AValue <> '' then
+  if AValue = '' then
+    FExtension:=''
+  else
     if AValue[1] <> '.' then
       FExtension := '.' + AValue
     else