paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct default extension logic.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-01 11:32:56 +02:00
parent 930e49590c
commit ca13ca2089
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-image/src/freetype.pp
View File

@ -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