* Correct default extension logic.

(cherry picked from commit ca13ca208963573d5d434179e8596dd7358314ff)

packages/fcl-image/src/freetype.pp

@@ -414,8 +414,8 @@ var p,fn : string;
     r : integer;
 begin
   Result:='';
-  if (pos('.', afilename)=0) and (DefaultFontExtension<>'') then
-    fn := afilename + DefaultFontExtension
+  if (ExtractFileExt(afilename)='') and (DefaultExtension<>'') then
+    fn := afilename + DefaultExtension
   else
     fn := aFilename;
   if FileExists(fn) then